IBM Lotus Symphony
|
Zobrazí dialógové okno obsahujúce správu.
MsgBox Text As String [,Type As Integer [,Dialogtitle As String]] (ako príkaz) or MsgBox (Text As String [,Type As Integer [,Dialogtitle As String]]) (ako funkcia)
Text: Reťazcový výraz zobrazený ako správa v dialógovom okne. Ukončenia riadka môžu byť vložené pomocou Chr$(13).
DialogTitle: Reťazcový výraz zobrazený v lište s nadpismi tohto dialógového okna. Ak je vynechaný, lišta s nadpismi zobrazí názov príslušnej aplikácie.
Typ: Každý celočíselný výraz, ktorý špecifikuje typ dialógového okna, ako aj číslo a typ tlačidiel, ktoré sa majú zobraziť a typ ikony. Typ predstavuje kombináciu bitových vzorov, t.j. kombináciu prvkov, ktoré môžu byť definované pridaním ich príslušných hodnôt:
0 : Zobraziť len tlačidlo OK.
1 : Zobraziť tlačidlá OK a Zrušiť.
2 : Zobraziť tlačidlá Prerušiť, Zopakovať a Ignorovať.
3 : Zobraziť tlačidlá Áno, Nie a Zrušiť.
4 : Zobraziť tlačidlá Áno a Nie.
5 : Zobraziť tlačidlá Zopakovať a Zrušiť.
16 : Do dialógového okna pridať ikonu Zastaviť.
32 : Do dialógového okna pridať ikonu otáznika.
48 : Do dialógového okna pridať ikonu výkričníka.
64 : Do dialógového okna pridať Ikonu Informácie.
128 : Nastaviť prvé tlačidlo v dialógovom okne ako predvolené tlačidlo.
256 : Nastaviť druhé tlačidlo v dialógovom okne ako predvolené tlačidlo.
512 : Nastaviť tretie tlačidlo v dialógovom okne ako predvolené tlačidlo.
Sub ExampleMsgBox
Const sText1 = "Nastala neočakávaná chyba."
Const sText2 = "Vykonávanie programu však bude pokračovať."
Const sText3 = "Chyba"
MsgBox(sText1 + Chr(13) + sText2,16,sText3)
End sub