IBM Lotus Symphony
|
Zobrazí dialógové okno obsahujúce správu a vráti hodnotu.
MsgBox (Text As String [,Type As Integer [,Dialogtitle As String]])
Typ Integer
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ý, zobrazí sa názov príslušnej aplikácie.
Type: Každý celočíselný výraz, ktorý špecifikuje typ dialógového okna a definuje číslo a typ zobrazených tlačidiel alebo ikon. Type predstavuje kombináciu bitových vzorov (prvky dialógového okna zadefinované pridaním príslušných hodnôt):
Hodnoty
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.
Návratová hodnota:
1 : OK
2 : Zrušiť
3 : Prerušiť
4 : Zopakovať
5 : Ignorovať
6 : Áno
7 : Nie
Sub ExampleMsgBox
Dim sVar as Integer
sVar = MsgBox("Las Vegas")
sVar = MsgBox("Las Vegas",1)
sVar = MsgBox( "Las Vegas",256 + 16 + 2,"Názov dialógového okna")
end sub