• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

InputBox - OK hay Cancel?

Các mẹo vặt linh tinh khác, không thuộc nhóm nào
User avatar
vo_minhdat2007
Quản trị
Quản trị
Posts: 2227
Joined: Sun 17/07/2005 1:40 am
Has thanked: 13 times
Been thanked: 87 times
Contact:

InputBox - OK hay Cancel?

Postby vo_minhdat2007 » Sat 20/06/2009 10:20 am

Thủ thuật: Phân biệt nút OK và Cancel trong InputBox
Tác giả: developer.com
Mô tả: Khi bạn hiện 1 InputBox, bạn sẽ không biết rằng người dùng nhấn Cancel hay là một chuỗi rỗng và nhấn OK. Bạn nghĩ không có cách nào để phân biệt? Sai!


Nếu bạn nhấn Cancel khi hiện InputBox, VB trả về vbNullString, còn khi nhấn OK mà không nhập gì, giá trị trả về là "". Tuy nhiên VB lại xem vbNullString tương đương "" mặc dù nó hoàn toàn khác nhau.
Vậy nhiệm vụ của chúng ta là tách nó ra. Và ta sẽ dùng con trỏ!

Code: Select all

  1. Dim strInput As String
  2.  
  3. strInput = InputBox("Nhap vao gi do di!")
  4.  
  5. If StrPtr(strInput) = 0 Then
  6.     MsgBox "Dam nhan Cancel a X("
  7. End If
  8.  



User avatar
vie87vn
Thành viên tích cực
Thành viên tích cực
Posts: 150
Joined: Sat 05/04/2008 10:15 am
Location: Quán Đôi - Củ Chi
Been thanked: 2 times
Contact:

Re: InputBox - OK hay Cancel?

Postby vie87vn » Sat 20/06/2009 11:45 am

Cái này mới biết luôn nè!
Thanks for sharing!
Hoàng Sa và Trường Sa là của Việt Nam.

tammao_ndn
Thành viên chính thức
Thành viên chính thức
Posts: 10
Joined: Thu 28/10/2010 11:33 pm

Re: InputBox - OK hay Cancel?

Postby tammao_ndn » Wed 19/01/2011 2:59 pm

có ai chỉ rõ hơn cho mình với được ko..khó hiểu quá....mới tham gia diễn đàn mong a e giiup đỡ

tin_jimmy
Thành viên chính thức
Thành viên chính thức
Posts: 23
Joined: Mon 26/10/2009 1:57 pm

Re: InputBox - OK hay Cancel?

Postby tin_jimmy » Wed 23/02/2011 5:46 pm

strptr là hàm j? và nó làm j?

bigboy83
Thành viên năng nổ
Thành viên năng nổ
Posts: 66
Joined: Thu 26/03/2009 8:26 am

Re: InputBox - OK hay Cancel?

Postby bigboy83 » Sun 01/01/2012 10:29 am

Hôm nay tự nhiên cũng mệt với cái Inputbox này, mình cũng tìm được bài của bạn vo_minhdat2007 nhưng vẫn ko biết thay đổi cái strptr trong vb.net thế nào . cuối cùng cũng tìm được cách giải quyết. các bạn nào ko dùng được cách của bạn vo_minhdat2007 thi dùng tạm cách sau nha.
  1. Dim txt as string = InputBox("Nhập Tên", "ví dụ")
  2.         If txt Is String.Empty Then
  3.             MsgBox("đã chọn cancel")
  4.         Else
  5.             MsgBox("đã chọn Ok")
  6.         End If


thân mến


Return to “[VB] Mẹo vặt khác”

Who is online

Users browsing this forum: No registered users and 0 guests