PDA

Visualizza versione completa : aitatemi con la msgbox


simon79vi
09-04-2003, 14.03.31
questa la mia msgbox
Sub Auto_open()
MsgBox "CIAO", vbOKCancel
End Sub

Vorrei fare in modo che se premo il tasto ok mi esce la parola "BRAVO" mentre se premo cancel esce "CATTIVO"
Deve essere semplice penso ma ho provato e non ci sono riuscito.
Mi aiutate? grazie

ciao

steneroz
09-04-2003, 15.00.43
If MsgBox("CIAO", vbOKCancel) = vbOK Then
MsgBox "BRAVO"
Else
MsgBox "CATTIVO"
End If

Mass8
09-04-2003, 15.54.53
Ti consiglio di scaricare gli MzTools ( www.mztools.com ). Sono molto utili per varie cose, ma soprattutto per le MsgBox.
Ciao
:)

metallica83
09-04-2003, 22.40.16
Puoi associare il valore in uscita da msgbox ad una variabile facendo semplicemente

dim var as integer

var=msgbox("CIAO",vbOkCancel)

il valore che assume var te lo puoi leggere nelle MSDN, ma e' un valore diverso a seconda che il tasto premuto sia ok o cancel, e
quindi un valore che ti permetta di fare una scelta con la struttura if.