V systému PROMOTIC je lepší použít metodu Pm.MessageBox.
s = MsgBox(prompt[, buttons][, title][, helpfile, context])| prompt | (String) Text, který je zobrazen v okně. Maximální délka textu je 1024 znaků. Pokud má být text složen z více řádků, pak na jejich rozdělení lze použít konstanty vbCr, vbLf nebo vbCrLf. |
|---|---|
| buttons | [nepovinné] (Integer) Součet čísel (konstant) odpovídající tlačítkům, druhu okna, implicitního tlačítka a způsobu chování aplikace. Pokud není nastaveno, pak přednastavená hodnota je vbOKOnly. vbOKOnly - Zobrazit pouze tlačítko OK vbOKCancel - Zobrazit tlačítka OK a Storno vbAbortRetryIgnore - Zobrazit tlačítka ABORT, RETRY a IGNORE vbYesNoCancel - Zobrazit tlačítka YES, NO a Storno vbYesNo - Zobrazit tlačítka YES a NO vbRetryCancel - Zobrazit tlačítka RETRY a Storno vbCritical - Zobrazit ikonu "Kritická zpráva" vbQuestion - Zobrazit ikonu "Dotaz varování" vbExclamation - Zobrazit ikonu "Varování" vbInformation - Zobrazit ikonu "Varování" vbDefaultButton1 - 1. tlačítko je přednastaveno vbDefaultButton2 - 2. tlačítko je přednastaveno vbDefaultButton3 - 3. tlačítko je přednastaveno vbDefaultButton4 - 4. tlačítko je přednastaveno vbApplicationModal - Režim Application modal. Pokud chce uživatel pokračovat v aktivitách v dané aplikaci, pak musí zareagovat na zprávu zobrazenou v okně. vbSystemModal - Režim System modal. Dokud nezareaguje uživatel na zprávu zobrazenou v okně, budou všechny aplikace pozastaveny. |
| title | [nepovinné] (String) Textový řetězec zobrazený v záhlaví okna. Pokud není nastaveno, pak v záhlaví bude zobrazen název aplikace. |
| helpfile | [nepovinné] (String) Cesta k souboru nápovědy, který bude využit v okně. Pokud je nastaveno, pak musí být také zadán parametr context. |
| context | [nepovinné] (Integer) Číslo tématu nápovědy ze souboru nápovědy. Pokud je nastaveno, pak musí být také zadán parametr helpfile. |
Pokud jsou zadány argumenty helpfile a context, pak je v okně automaticky zobrazeno tlačítko Nápověda.
Pokud je v okně tlačítko Storno, pak stisk klávesy Esc má stejný efekt jako kliknutí na Storno.
If vbOK = MsgBox("Hello World!", vbOKCancel+vbInformation, "MsgBox Example") Then
'...
End If