Rozbudowujemy MsgBox
Funkcję MsgBox z ćwiczenia ""Hello World!" i funkcja MsgBox" możemy trochę przyozdobić.
Po pierwsze można do niej dodać piktogramy: informacyjny, ostrzeżenia, krytyczny i pytający.
Dla przykładu użyjmy piktogram informacyjny, musimy trochę zmienić składnię, gdyż teraz funkcja MsgBox ma więcej niż tylko argument wyświetlający tekst:
Sub HelloWorld()
komunikat = MsgBox("Hello World!", vbInformation)
End Sub
(po wciśnięciu przecinka rozwinie się lista możliwych w tym miejscu parametrów)
Możemy teź sprawić by były wyświetlane przyciski OK i Cancel (anuluj) (zmienna "komunikat przyjmie wtedy wartość "1" jeżeli zostanie wybrany przycisk OK, albo "2" dla Cancel):
Sub HelloWorld()
komunikat = MsgBox("Hello World!", vbInformation+vbOkCancel)
End Sub
Możemy pójść jeszcze dalej i wykorzystać zmienną "komunikat" do sterowania programem (tekst po apostrofie jest komentarzem - cały tekst w linii zaczynający się od apostrofu nie jest interpretowany jako kod programu):
Sub HelloWorld()
komunikat = MsgBox("Hello World!", vbInformation + vbOKCancel)
If komunikat = 1 Then 'jeżeli zostanie wybrany przycisk OK to wyświetl komunikat Dzień Dobry!
MsgBox "Dzień Dobry!"
Else 'w przeciwnym wypadku wyświetl Do widzenia!
MsgBox "Do widzenia!"
End If 'koniec "jeżeli"
End Sub