Originariamente inviato da Mabi
...
codice:
Dim Messaggio As String
Messaggio = MsgBox("Continuare la stampa ?", vbCritical + vbYesNo, "Stampa")
If Messaggio = "6" Then
'SI
End If
If Messaggio = "7" Then
'NO
End If
MsgBox ritorna un tipo preciso di dati (vbMsgBoxResult). Perchè usare una stringa?
codice:
Dim Messaggio As VbMsgBoxResult
Messaggio = MsgBox("Continuare la stampa?", vbCritical + vbYesNo, "Attenzione ...")
Select Case Messaggio
Case VbMsgBoxResult.vbYes
'... SI
Case VbMsgBoxResult.vbNo
'... NO
End Select
Poi nel caso che i pulsanti siano solo 2 si può fare così (che è più compatto).
codice:
If MsgBox("Continuare la stampa?", vbCritical + vbYesNo, "Attenzione ...") = vbYes Then
'... SI
Else
'... NO
End If