Code:
Dim intRezultat As Integer
intRezultat = MsgBox("Pitanje koje želiš da postaviš", vbYesNo, "Ime message box-a")
Select Case intRezultat
Case vbYes
'set naredbi 1 na primer:
MsgBox "Kliknuo si Yes", vbOKOnly + vbInformation, "Rezultat YES NO upita"
Case vbNo
'set naredbi 2 na primer:
MsgBox "Kliknuo si No", vbOKOnly + vbInformation, "Rezultat YES NO upita"
End Select
ili
Code:
Dim intRezultat As Integer
intRezultat = MsgBox("Pitanje koje želiš da postaviš", vbYesNo, "Ime message box-a")
If intRezultat = vbYes Then
'set naredbi 1 na primer:
MsgBox "Kliknuo si Yes", vbOKOnly + vbInformation, "Rezultat YES NO upita"
Else
'set naredbi 2 na primer:
MsgBox "Kliknuo si No", vbOKOnly + vbInformation, "Rezultat YES NO upita"
End If
Izbor je na tebi :)
Pozdrav