Funzione MsgBox
Mostra un riquadro contenente un messaggio e restituisce un valore.
Sintassi:
MsgBox (Text As String [,Type As Integer [,Dialogtitle As String]])
Valore restituito:
Integer
Parametro:
Text (Testo): stringa visualizzata come messaggio nella finestra di dialogo. Le interruzioni di riga possono essere inserite con Chr$(13).
DialogTitle (TitoloDialogo): stringa visualizzata nella barra del titolo della finestra di dialogo. Se questa stringa è omessa, viene visualizzato il nome dell'applicazione corrispondente.
Type (Tipo): espressione intera che specifica il tipo di finestra di dialogo e definisce il numero e il tipo dei pulsanti o delle icone visualizzate. Type rappresenta una combinazione di modelli di bit (elementi delle finestre di dialogo definiti sommando i rispettivi valori):
Valori
Costante con nome |
Valore intero |
Definizione |
MB_OK |
0 |
Visualizza solo il pulsante OK. |
MB_OKCANCEL |
1 |
Visualizza i pulsanti OK e Annulla. |
MB_ABORTRETRYCANCEL |
2 |
Visualizza i pulsanti Interrompi, Riprova e Ignora. |
MB_YESNOCANCEL |
3 |
Visualizza i pulsanti Sì, No e Annulla. |
MB_YESNO |
4 |
Visualizza i pulsanti Sì e No. |
MB_RETRYCANCEL |
5 |
Visualizza i pulsanti Riprova e Annulla. |
MB_ICONSTOP |
16 |
Aggiunge l'icona Arresta alla finestra di dialogo. |
MB_ICONQUESTION |
32 |
Aggiunge l'icona Domanda alla finestra di dialogo. |
MB_ICONEXCLAMATION |
48 |
Aggiunge l'icona Punto esclamativo alla finestra di dialogo. |
MB_ICONINFORMATION |
64 |
Aggiunge l'icona Informazione alla finestra di dialogo. |
|
128 |
Primo pulsante della finestra di dialogo come pulsante predefinito. |
MB_DEFBUTTON2 |
256 |
Secondo pulsante della finestra di dialogo come pulsante predefinito. |
MB_DEFBUTTON3 |
512 |
Terzo pulsante della finestra di dialogo come pulsante predefinito. |
Valore restituito:
Costante con nome |
Valore intero |
Definizione |
IDOK |
1 |
OK |
IDCANCEL |
2 |
Annulla |
IDABORT |
3 |
Interrompi |
IDRETRY |
4 |
Riprova |
IDIGNORE |
5 |
Ignora |
IDYES |
6 |
Sì |
IDNO |
7 |
No |
Esempio:
Sub ExampleMsgBox
Dim sVar As Integer
sVar = MsgBox("Milano")
sVar = MsgBox("Milano",1)
sVar = MsgBox( "Milano",256 + 16 + 2,"Titolo della finestra di dialogo")
sVar = MsgBox("Milano", MB_DEFBUTTON2 + MB_ICONSTOP + MB_ABORTRETRYCANCEL, "Titolo della finestra di dialogo")
End Sub