Oppure

Loading
Le Message Box ci consentono di visualizzare messaggi personalizzati, usando anche icone varie. L'istruzione che ci consente di fare tutto questo la MsgBox. Ecco in dettaglio MsgBox:

FUNZIONE:

MsgBox text -string, [style], [title -string]

PARAMETRI:

text  = Rappresenta il testo che deve essere visualizzato
style = Rappresenta lo stile dei bottoni e dell'icona
title = Titolo della finestra

PARAMETRO STYLE:

Ecco gli stili pi importanti:
Stili pulsanti:


  • vbYesNo (S, No)

  • vbYesNoCancel (S, No, Annulla)

  • vbOk (Ok)

  • vbOkCancel (Ok, Annulla)



Stili icone:


  • vbInformation ("i" Informazione)

  • vbQuestion ("?" Domanda)

  • vbCritical ("x" Errore critico)

  • vbExclamation ("!" Esclamazione)



VALORI DI RITORNO:
MsgBox, ogni volta che si preme un pulsante, ritorna un valore ad una variabile.Ecco i valori di ritorno:


  • vbOk (Ok)

  • vbYes (S)

  • vbNo (No)

  • vbCancel (Annulla)



REGOLE:

Per usare due stili contemporaneamente (pulsanti + icona), basta usare <vbstilepulsante>+<vbstileicona>
Per elaborare una richiesta, si usa la seguente sintassi:

SINTASSI:

Dim return 'Valore ritorno
return = MsgBox(<parametri>) 'MsgBox che ritorna il valore
If return = <valoreritorno> Then
'Se il valore di ritorno ... allora...
<istruzioni>
End If

Ecco un quiz scritto in VBS:

CODICE:

Option Explicit
On Error Resume Next

Dim title,risposta

title = "QuIz! 2.0" 'Titolo dell'applicazione

risposta=MsgBox("Il coccige la parte terminale della colonna vertebrale ?",vbYesNo+vbQuestion,title)
'Visualizza una MsgBox

if risposta=vbYes then
'Se la risposta si

MsgBox "Esatto!",vbInformation,title
'Visualizza esatto

else
'altrimenti

MsgBox "Hai sbagliato!" & vbCrLf & "Che ci vuoi fare...",vbExclamation,title
'Visualizza sbagliato
end if
A cura di: Membro non piu' appartenente alla Community