IBM Lotus Symphony
|
Powoduje wyświetlenie okna dialogowego zawierającego komunikat.
MsgBox Tekst As String [,Typ As Integer [,Tytuł okna dialogowego As String]] (As Statement) lub MsgBox (Tekst As String [,Typ As Integer [,Tytuł okna dialogowego As String]]) (As Function)
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, liczbę i typ przycisków oraz typ ikon. Parametr Typ przedstawia kombinację wzorców bitowych, czyli kombinację elementów definiowanych przez dodanie odpowiednich 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.
Sub Przyklad_MsgBox
Const sTekst1 = "Wystąpił nieoczekiwany błąd."
Const sTekst2 = "Wykonywanie programu będzie jednak kontynuowane."
Const sTekst3 = "Błąd"
MsgBox(sTekst1 + Chr(13) + sTekst2,16,sTekst3)
End sub