LibreOfficeDev 25.8 Help
Toont een dialoogvenster met een bericht en retourneert een waarde.
MsgBox (Prompt As String [,Buttons = MB_OK [,Title As String]]) As Integer
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. | 
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 | 
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