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


Codis d'error

5 La crida al procediment no és vàlida

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

Please support us!