Funzione MsgBox
Mostra un riquadro contenente un messaggio e restituisce un valore.
MsgBox (Prompt As String [,Buttons = MB_OK [,Title As String]]) As Integer
prompt: stringa visualizzata come messaggio nella finestra di dialogo. Le interruzioni di riga possono essere inserite con Chr$(13).
title (titolo): stringa visualizzata nella barra del titolo della finestra di dialogo. Se questa stringa è omessa, la barra del titolo visualizza il nome dell'applicazione corrispondente.
buttons (pulsanti): numero intero che specifica il tipo di finestra di dialogo, nonché il numero e il tipo dei pulsanti da visualizzare e il tipo di icona. buttons rappresenta una combinazione di modelli di bit, cioè una combinazione di elementi che può essere definita sommando i rispettivi 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_ABORTRETRYIGNORE
|
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.
|
Integer
|
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
|
5 Richiamo di procedura non valido
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("Las Vegas", MB_DEFBUTTON2 + MB_ICONSTOP + MB_ABORTRETRYIGNORE, "Titolo della finestra di dialogo")
End Sub