Message Box di conferma in Visual Basic 6
Nell'ambito di un programma è spesso opportuno chiedere all'utente la conferma di un'operazione per diversi motivi: un tasto di comando potrebbe essere stato cliccato erroneamente, oppure l'utente potrebbe non essere più sicuro di un valore specificato ed è bene bloccarlo in tempo, e cosi via.
Visual Basic mette a disposizione dello sviluppatore il già noto oggetto MsgBox che può essere utilizzato in svariati modi, a seconda del parametro "tipo" che gli viene passato.
In questo articolo - è intuibile - lo useremo per creare un messaggio di conferma grazie al parametro predefinito vbYesNo.
Apriamo la nostra copia di VB6, creiamo un nuovo EXE e ad un qualsiasi evento (trattandosi di un esempio va benissimo anche il caricamento della pagina) scateniamo la seguente routine:
Private Sub Form_Load()
Dim conferma
conferma = MsgBox("Scegli un'opzione...", vbYesNo)
If conferma = 6 Then
MsgBox "Hai scelto SI"
Else
MsgBox "Hai scelto NO"
End If
End Sub
Memorizziamo in una variabile il Message Box per poi controllarne il valore: nel caso di vbYesNo il numero identificativo 6 rappresenta SI, mentre 7 rappresenta NO.
Se il valore di conferma è 6 vuol dire che l'utente ha confermato la sua scelta, altrimenti significa che ha preferito rinunciare, almeno temporaneamente.
Nell'ambito di un vero e proprio programma, ad esempio al click su un bottone di inserimento dati in un database, si può prendere anche in considerazione il solo SI, lasciando che non venga eseguito nulla in caso negativo.
Ad esempio:
Private Sub InserisciNelDB_Click()
Dim conferma
conferma = MsgBox("Confermare l'inserimento?", vbYesNo)
If conferma = 6 Then
' Mi connetto al database
' Effettuo l'inserimento dei dati
' Chiudo la connessione al database
' Restituisco un messaggio di successo
End If
End Sub
