MsgBox Function
Mostra un quadre de diàleg que conté un missatge i torna un valor.
Sintaxi:
MsgBox (Text As String [,Type As Integer [,Dialogtitle As String]])
Valor de retorn:
Enter
Paràmetre:
Text: Expressió de cadena que es mostra com a missatge al quadre de diàleg. Els salts de línia es poden inserir amb Chr$(13).
DialogTitle: Expressió de cadena que es mostra a la barra de títol del diàleg. Si s'omet, es mostra el nom de l'aplicació respectiva.
Tipus: Qualsevol expressió d'enter que especifica el tipus de diàleg i defineix el nombre i el tipus de botons o icones que es mostren. El tipus representa una combinació de patrons de bits (elements de diàleg definits afegint els seus valors respectius):
Valors
|
Constant amb nom |
Valor enter |
Definició |
|
MB_OK |
0 |
Mostra només el botó «D'acord». |
|
MB_OKCANCEL |
1 |
Mostra els botons «D'acord» i «Cancel·la». |
|
MB_ABORTRETRYCANCEL |
2 |
Mostra els botons «Avorta», «Reintenta« i «Ignora». |
|
MB_YESNOCANCEL |
3 |
Mostra els botons «Sí», «No» i «Cancel·la». |
|
MB_YESNO |
4 |
Mostra els botons «Sí» i «No». |
|
MB_RETRYCANCEL |
5 |
Mostra els botons «Reintenta» i «Cancel·la». |
|
MB_ICONSTOP |
16 |
Afig la icona de «Stop» al diàleg. |
|
MB_ICONQUESTION |
32 |
Afig la icona de pregunta al diàleg. |
|
MB_ICONEXCLAMATION |
48 |
Afig la icona d'exclamació al diàleg. |
|
MB_ICONINFORMATION |
64 |
Afig la icona d'informació al diàleg. |
|
|
128 |
Estableix el primer botó del diàleg com a botó predeterminat. |
|
MB_DEFBUTTON2 |
256 |
Estableix el segon botó del diàleg com a botó predeterminat. |
|
MB_DEFBUTTON3 |
512 |
Estableix el tercer botó del diàleg com a botó predeterminat. |
Valor de retorn:
|
Constant amb nom |
Valor enter |
Definició |
|
IDOK |
1 |
D'acord |
|
IDCANCEL |
2 |
Cancel·la |
|
IDABORT |
3 |
Interromp |
|
IDRETRY |
4 |
Reintenta |
|
IDIGNORE |
5 |
Ignora |
|
IDYES |
6 |
Sí |
|
IDNO |
7 |
No |
Exemple:
Sub ExampleMsgBox
Dim sVar As Integer
sVar = MsgBox("Las Vegas")
sVar = MsgBox("Las Vegas",1)
sVar = MsgBox( "Las Vegas",256 + 16 + 2,"Títol del diàleg")
sVar = MsgBox("Las Vegas", MB_DEFBUTTON2 + MB_ICONSTOP + MB_ABORTRETRYCANCEL, "Dialog title")
End Sub