MsgBox Function

Mostra un riquadro contenente un messaggio e restituisce un valore.

Sintassi:


MsgBox (Prompt As String [,Buttons = MB_OK [,Title As String]]) As Integer

Parametri:

prompt: String expression displayed as a message in the dialog box. Line breaks can be inserted with Chr$(13).

title: String expression displayed in the title bar of the dialog. If omitted, the title bar displays the name of the respective application.

buttons: Any integer expression that specifies the dialog type, as well as the number and type of buttons to display, and the icon type. buttons represents a combination of bit patterns, that is, a combination of elements can be defined by adding their respective values:

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.


Valore restituito:

Integer

Costante con nome

Valore intero

Definizione

IDOK

1

OK

IDCANCEL

2

Annulla

IDABORT

3

Interrompi

IDRETRY

4

Riprova

IDIGNORE

5

Ignora

IDYES

6

IDNO

7

No


Codici di errore:

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