IBM Lotus Symphony
|
Powoduje wyświetlenie okna dialogowego zawierającego komunikat i zwraca wartość.
MsgBox (Tekst As String [,Typ As Integer [,Tytuł okna dialogowego As String]])
Liczba całkowita
Tekst: Łańcuch wyświetlany jako komunikat w oknie dialogowym. Podział wiersza można wstawić za pomocą funkcji Chr$(13).
Tytuł okna dialogowego: Łańcuch wyświetlany na pasku tytułu okna dialogowego. Jeśli ten parametr zostanie pominięty, na pasku tytułu będzie wyświetlana nazwa odpowiedniej aplikacji.
Typ: Liczba całkowita określająca typ okna dialogowego oraz liczbę i typ wyświetlanych przycisków i ikon. Parametr Typ przedstawia kombinację wzorców bitowych (elementy okna dialogowego są definiowane przez dodawanie odpowiednich wartości):
Wartości
0 : Wyświetla tylko przycisk OK.
1 : Wyświetla przyciski OK i Anuluj.
2 : Wyświetla przyciski Przerwij, Ponów i Ignoruj.
3 : Wyświetla przyciski Tak, Nie i Anuluj.
4 : Wyświetla przyciski Tak i Nie.
5 : Wyświetla przyciski Ponów próbę i Anuluj.
16 : Dodaje ikonę Stop do okna dialogowego.
32 : Dodaje ikonę Pytanie do okna dialogowego.
48 : Dodaje ikonę Wykrzyknik do okna dialogowego.
64 : Dodaje ikonę Informacja do okna dialogowego.
128 : Pierwszy przycisk w oknie dialogowym jest zaznaczony domyślnie.
256 : Drugi przycisk w oknie dialogowym jest zaznaczony domyślnie.
512 : Trzeci przycisk w oknie dialogowym jest zaznaczony domyślnie.
Zwracana wartość:
1 : OK
2 : Anuluj
3 : Przerwij
4 : Ponów próbę
5 : Ignoruj
6 : Tak
7 : Nie
Sub Przyklad_MsgBox
Dim sZm as Integer
sZm = MsgBox("Las Vegas")
sZm = MsgBox("Las Vegas",1)
sZm = MsgBox( "Las Vegas",256 + 16 + 2,"Tytuł okna dialogowego")
end sub