[Q] Cho mình hỏi một chút vể msgbox

[xeko]

Các bạn nào có thể giúp mình với. Ai biết làm cái gì dể msgbox hiển thị 2 nút OK và Cancel . Néu kick vào một trong 2 nút này một sự kien sẽ diễn ra(sự kiện khi kick 2 nút này là khác nhau)

[tinystar]

Loại này không có sẵn đâu, phải tự chế thui

[gamehacker]

Thì bác dùng như sau :
Nếu 2 nút bác muốn là yes và no
msgbox "Alo" , vbyesno , "Title"
Nếu 2 nút bác muốn là retry và cancel
msgbox "Alo , vbretrycancel , "Title"

[White_Rose]

a = msgbox("Alo", vbYesNo, "Welcome")
if a = vbYes then
RaiseEvent ...
Else
RaiseEvent ...
End If

[trungnt88]

dim kq as integer
kq=msgbox("He HE Cha`o ca'c ca'c ban",vbyesno+vbquestion,"Hello !")
select case kq
case vbyes
msgbox " Click Yes"
case vbno
msgbox " Click no"
end select

[Nicky]

Trời
Cách của Trung với cách của anh WR có khác chỗ nào đâu --> ok :D

[thehung]

Đơn giản, bạn chỉ cần dùng dòng lệnh như sau là được:
if msgbox("Thu cac nut cua messagebox", vbYesNo, "The Hung") = vbyes then msgbox(" Da thu xong", , "The Hung")

[binhbean]

Trời ơi, cùng một kết quả trả lại của hàm msgbox mà, trình bày nhiều làm gì cho người ta rối cả trí nên vậy. Chỉ nên nói là: Nếu ấn Yes thì trả về vbYes, không thì thôi. Ôi mẹ ơi. Hoang mang tợn...

[trungnt88]

làm một cái frmMsgBox riêng đi ! đa dụng hơn !

[gamehacker]

trungnt88 nói cũng chí lí , mình đa số là dùng frmmsgbox riêng của mình thôi ,
Bạn tạo 1 form rồi tạo 1 function để gọi nó

[nganha]

Người ta hỏi về MsgBox với hai nút OK và Cancel tại sao lại chỉ cho người ta mã để xuất hiện hai nút Yes+No làm gì.
Hãy dùng MsgBox Prompt, [Button], [Title], [HelpFile], [Context]
Để hiển thị hai nút OK và Cancel dùng vbOKCancel cho tham số Button.

[xeko]

Thank you.......................................

[trungnt88]

tự tạo form msg : imge tuỳ ý
tiếng việt
màu tuỳ ý ,...

[My_Friends]

Bạn thử tham khảo cái MsgBox này thử xem

giờ thì mình viết nút xoá mẫu tin gồm MsgBox gồm hai nút OK và cancel nhen !
Dim hoi as string
hoi = MsgBox" Muon xoa mau tin nay khong ",Vbinformation +VbOKCancel ,"Thong bao"
if hoi = vbOk then
.delete
.Movenext
else
exit sub
end if

[nvnptc]

Các bạn hãy tạ ra một form, sử dụng các nút, thay tiếng anh bằng tiếng việt như thế này nè, đảm bảo người sử dụng sẽ dể chịu hơn.