Istruzione MsgBox

Mostra una finestra di dialogo contenente un messaggio.

Sintassi:


   MsgBox prompt As String [,buttons = MB_OK [,title As String]]
   response = MsgBox( prompt As String [,buttons = MB_OK [,title As String]])

Parametri:

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.


Codici di errore:

5 Richiamo di procedura non valido

Esempio:


Sub ExampleMsgBox
 Const sText1 = "Si è verificato un errore inatteso."
 Const sText2 = "Tuttavia, l'esecuzione del programma continuerĂ ."
 Const sText3 = "Errore"
 MsgBox(sText1 + Chr(13) + sText2,16,sText3)
 MsgBox(sText1 + Chr(13) + sText2, MB_ICONSTOP, sText3)
End Sub

Sostienici!