Pro potřeby systému PROMOTIC je vhodnější 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 lze na jejich rozdělení 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 implicitně nastaveno vbDefaultButton2 - 2. tlačítko je implicitně nastaveno vbDefaultButton3 - 3. tlačítko je implicitně nastaveno vbDefaultButton4 - 4. tlačítko je implicitně nastaveno 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