Functie MsgBox

Toont een dialoogvenster met een bericht en retourneert een waarde.

Syntaxis:


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

Parameters:

prompt: Tekenreeksexpressie weergegeven als een bericht in het dialoogvenster. Regeleinden kunnen worden ingevoegd met Chr$(13).

title: Tekenreeksexpressie weergegeven in de titelbalk van het dialoogvenster. Als deze wordt weggelaten, wordt in de titelbalk de naam van de betreffende toepassing weergegeven.

buttons: Een gehele-getalexpressie die het dialoogtype specificeert, evenals het aantal en type van de weer te geven knoppen en het pictogramtype. buttons vertegenwoordigt een combinatie van bitpatronen, dat wil zeggen dat een combinatie van elementen kan worden gedefinieerd door hun respectievelijke waardes toe te voegen:

Benoemde constante	Geheel getal	Definitie
MB_OK	0	Alleen knop OK weergeven.
MB_OKCANCEL	1	Knoppen OK en Annuleren weergeven.
MB_ABORTRETRYIGNORE	2	De knoppen Afbreken, Opnieuw proberen en Negeren weergeven.
MB_YESNOCANCEL	3	Knoppen Ja, Nee en Annuleren weergeven.
MB_YESNO	4	Knoppen Ja en Nee weergeven.
MB_RETRYCANCEL	5	Knoppen Opnieuw proberen en Annuleren weergeven.
MB_ICONSTOP	16	Voeg het pictogram Stoppen aan het dialoogvenster toe.
MB_ICONQUESTION	32	Voeg het pictogram Vraagteken aan het dialoogvenster toe.
MB_ICONEXCLAMATION	48	Voeg het pictogram Uitroepteken aan het dialoogvenster toe.
MB_ICONINFORMATION	64	Voeg het pictogram Informatie aan het dialoogvenster toe.
	128	Eerste knop in het dialoogvenster als standaardknop.
MB_DEFBUTTON2	256	Tweede knop in het dialoogvenster als standaardknop.
MB_DEFBUTTON3	512	Derde knop in het dialoogvenster als standaardknop.

Geretourneerde waarde:

Integer

Benoemde constante	Geheel getal	Definitie
IDOK	1	OK
IDCANCEL	2	Annuleren
IDABORT	3	Afbreken
IDRETRY	4	Opnieuw proberen
IDIGNORE	5	Negeren
IDYES	6	Ja
IDNO	7	Nee

Foutcodes:

5 Ongeldige aanroep van procedure

Voorbeeld:


Sub ExampleMsgBox
Dim sVar As Integer
 sVar = MsgBox("Las Vegas")
 sVar = MsgBox("Las Vegas",1)
 sVar = MsgBox( "Den Bosch",256 + 16 + 2,"Dialoogtitel")
 sVar = MsgBox("Las Vegas", MB_DEFBUTTON2 + MB_ICONSTOP + MB_ABORTRETRYIGNORE, "Dialoogtitel")
End Sub