MsgBox-funktion

Indhold

# 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.

### Returtype

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