InputBox - OK hay Cancel?

Các mẹo vặt linh tinh khác, không thuộc nhóm nào
Đăng trả lời
Hình đại diện của thành viên
vo_minhdat2007
Quản trị
Quản trị
Bài viết: 2227
Ngày tham gia: Chủ nhật 17/07/2005 1:40 am
Has thanked: 13 times
Been thanked: 87 times
Tiếp xúc:

InputBox - OK hay Cancel?

Gửi bài by vo_minhdat2007 »

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ỏ!

Mã: Chọn tất cả

Dim strInput As String strInput = InputBox("Nhap vao gi do di!") If StrPtr(strInput) = 0 Then    MsgBox "Dam nhan Cancel a X("End If 
Hình đại diện của thành viên
vie87vn
Thành viên tích cực
Thành viên tích cực
Bài viết: 150
Ngày tham gia: Thứ 7 05/04/2008 10:15 am
Đến từ: Quán Đôi - Củ Chi
Been thanked: 2 times
Tiếp xúc:

Re: InputBox - OK hay Cancel?

Gửi bài by vie87vn »

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
Bài viết: 10
Ngày tham gia: Thứ 5 28/10/2010 11:33 pm

Re: InputBox - OK hay Cancel?

Gửi bài by tammao_ndn »

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
Bài viết: 23
Ngày tham gia: Thứ 2 26/10/2009 1:57 pm

Re: InputBox - OK hay Cancel?

Gửi bài by tin_jimmy »

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ổ
Bài viết: 66
Ngày tham gia: Thứ 5 26/03/2009 8:26 am

Re: InputBox - OK hay Cancel?

Gửi bài by bigboy83 »

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
Đăng trả lời

Quay về