Inhoud

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

### Retourtype:

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