Rozbudowujemy MsgBox.doc

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