MsgBox

Msgbox jest funkcją wyświetlającą komunikat, jej zastosowanie wygląda tak

a = Msgbox("Komunikat",przyciski+ikona,"Tytuł")

Wyświetli to nam okienko o nazwie Tytuł i o treści Komunikat
Spośród przycisków i ikon możemy wybrać :

VbCritical - ikona krytyczna
VbQuestion - znak zapytania
VbExclamation - żółty ostrzegawczy trójkąt
VbInformation - ikona informacji
VbSystemModal - mała ikona systemowa
VbOKonly - tylko przycisk ok
VbOKCancel - przyciski ok. i anuluj
VbAbortRetryIgnore - przyciski przerwij, ponów i ignoruj
VbYesNoCancel - przyciski tak nie anuluj
VbYesNo = przyciski tak nie
VbRetryCancel przyciski ponów, anuluj

Wymagany jest tylko 1 parametr, czyli treść komunikatu, pozostałych parametrów nie musimy podawać.

a = Msgbox("Witaj")

Jeżeli nie chcemy później sprawdzić jaką opcje z komunikatu wybrał użytkownik lub nie musimy tego robić, nie trzeba podawać zmiennej, która przechowa wynik, można to zrobić w ten sposób:

Msgbox "Witaj"

Przykładowy komunikat wyglądał by tak :

a = Msgbox("Witaj użytkowniku",VbOKonly,"Powitanie")

Można też łączyć przyciski i ikony znakiem +

a = Msgbox("Podoba ci się program",VbYesNo + VbInformation,"Pytanie")

Zmienna a przechowuje nam kliknięty przycisk, oto ich numery :

1 - ok
2 - anuluj
3 - przerwij
4 - ponów
5 - ignoruj
6 - tak
7 - nie

Możemy więc sprawdzić jak użytkownik odpowiedział na nasze pytanie. Musisz jednak dojść do lekcji If.. Then

Różnica między wyświetlaniem funkcji z rezultatem oraz bez jest następująca:

- gdy chcemy uzyskać z funkcji jakąś wartość piszemy:
Wartosc = Funkcja("Parametr1","Paramater2",...)

- gdy nie potrzebujmy uzyskać wartości:
Funkcja "Parametr1","Paramter2",....

Paramtery oddzielamy przecinkami, jeżeli chcemy pominąć jakiś paramter zostawiamy poprostu puste miejsce i piszemy sam przecinek:

Funkcja "Paramter1", ,"Paramter3"

Funkcja , , ,"Paramter4"

Niektóre parametry są obowiązkowe, niektórych nie musimy podawać, wszystko zależy od funkcji.

Visual Basic informuje o parametrach które nie są wymagane, pokazuje je w nawiasie kwadratowym:




Na obrazku można zobaczyć, że dla funkcji MsgBox tylko 1 parametr jest wymagany, reszta nie jest obowiązkowa

Przykład:

Private Sub Form_Load()

' wyświetlamy komunikat, nie oczekujemy na odpowiedź

MsgBox "Komunikat nr.1"

' komunikat z tytułem

MsgBox "Komunikat nr.2", , "Tytuł"

' komunikat z obrazkiem

MsgBox "Komunikat nr.3", vbInformation, "Tytuł"

' komunikat z pytaniem Tak/Nie

MsgBox "Komunikat nr.4", vbYesNo, "Tytuł"

' jak wyżej ale pobieramy odpowiedź komunikatu do zmiennej

' jeżeli użytkownik wybierze Tak zmienna wynik dostanie wartość 6, jeżeli nie będzie miała wartość 7

Dim wynik As Byte

wynik = MsgBox("Komunikat nr.5", vbYesNo, "Tytuł")

' wyświetlamy uzyskany przed chwilą wynik

MsgBox wynik

End Sub

MsgBox Arguments

Constant	Value	Description
vbOKOnly	0	OK button only (default)
vbOKCancel	1	OK and Cancel buttons
vbAbortRetryIgnore	2	Abort, Retry, and Ignore buttons
vbYesNoCancel	3	Yes, No, and Cancel buttons
vbYesNo	4	Yes and No buttons
vbRetryCancel	5	Retry and Cancel buttons
vbCritical	16	Critical message
vbQuestion	32	Warning query
vbExclamation	48	Warning message
vbInformation	64	Information message
vbDefaultButton1	0	First button is default (default)
vbDefaultButton2	256	Second button is default
vbDefaultButton3	512	Third button is default
vbDefaultButton4	768	Fourth button is default
vbApplicationModal	0	Application modal message box (default)
vbSystemModal	4096	System modal message box
vbMsgBoxHelpButton	16384	Adds Help button to the message box
VbMsgBoxSetForeground	65536	Specifies the message box window as the foreground window
vbMsgBoxRight	524288	Text is right aligned
vbMsgBoxRtlReading	1048576	Specifies text should appear as right-to-left reading on Hebrew and Arabic systems

MsgBox Return Values

Constant	Value	Description
vbOK	1	OK button pressed
vbCancel	2	Cancel button pressed
vbAbort	3	Abort button pressed
vbRetry	4	Retry button pressed
vbIgnore	5	Ignore button pressed
vbYes	6	Yes button pressed
vbNo	7	No button pressed

Msgbox.doc 4/4

---