MsgBox-funktionen

Viser en dialog indeholdende en besked og returnerer en værdi.

Syntaks:


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

Parametre:

prompt: Strengudtryk, der vises som en besked i dialogfeltet. Linjeskift kan indsættes med Chr$(13).

title: Strengudtryk, der vises i titellinjen af dialogvinduet. Hvis udeladt, vises programnavnet i titellinjen.

buttons: Et heltalsudtryk, som specificerer dialogtypen foruden antallet og typen af knapper, der skal vises, og ikontypen. buttons repræsenterer en kombination af bitmønstre, hvilket betyder, at en kombination af elementer kan defineres ved at lægge deres respektive værdier sammen:

Navngivet konstant	Heltaltsværdi	Definition
MB_OK	0	Vis kun knappen OK.
MB_OKCANCEL	1	Vis knapperne OK og Annuller.
MB_ABORTRETRYIGNORE	2	Vis knapperne Annuller, Prøv igen og Ignorer.
MB_YESNOCANCEL	3	Vis knapperne Ja, Nej og Annuller.
MB_YESNO	4	Vis knapperne ja og nej.
MB_RETRYCANCEL	5	Vis knapperne Prøv igen og Annuller.
MB_ICONSTOP	16	Føj stop-ikonet til dialogen.
MB_ICONQUESTION	32	Føj spørgsmålstegn-ikonet til dialogen.
MB_ICONEXCLAMATION	48	Føj udråbstegn-ikonet til dialogen.
MB_ICONINFORMATION	64	Føj informations-ikonet til dialogen.
	128	Første knap i dialogen som standardknap.
MB_DEFBUTTON2	256	Anden knap i dialogen som standardknap.
MB_DEFBUTTON3	512	Tredje knap i dialogen som standardknap.

Returværdi:

Integer

Navngivet konstant	Heltalsværdi	Definition
IDOK	1	OK
IDCANCEL	2	Annullér
IDABORT	3	Afbryd
IDRETRY	4	Forsøg igen
IDIGNORE	5	Ignorér
IDYES	6	Ja
IDNO	7	Nej

Fejlkoder:

5 Ugyldigt Procedurekald

Eksempel:


Sub ExampleMsgBox
Dim sVar As Integer
 sVar = MsgBox("Løkken")
 sVar = MsgBox("Løkken",1)
 sVar = MsgBox( "Las Vegas",256 + 16 + 2,"DialogTitle")
 sVar = MsgBox("Løkken", MB_DEFBUTTON2 + MB_ICONSTOP + MB_ABORTRETRYIGNORE, "Dialogtitel")
End Sub