Powitanie
Należy utworzyć nowy projekt, wstawić obiekt typu CommandButton, Edit, oraz dwa obiekty Label. Wprowadzić odpowiednie zmiany tak, aby nadać aplikacji wygląd zbliżony do poniższej ilustracji.
Zadeklarować zmienną licznik typu całkowitego .
Dim licznik As Integer
Zaprogramować funkcję Load formatki tak aby zmienna licznik przyjmowała wartość 0
licznik = 0
wprowadzić do procedury Click przycisku poniższy kod: licznik = licznik + 1
If licznik = 1 Then
Command1.Caption = "Politechnika Czestochowska:jak nazywasz sie?"
Command1.BackColor = QBColor(10)
Command1.FontSize = 14
Command1.FontName = "arial"
Label2.Visible = True
Text1.Visible = True
ElseIf licznik = 2 Then
Command1.Caption = "Witam " + Text1.Text Command1.BackColor = QBColor(13)
Command1.FontSize = 20
Command1.FontName = "arial"
Label2.Visible = False
Text1.Visible = False
ElseIf licznik = 3 Then
Command1.Caption = "Milego Dnia"
Command1.BackColor = QBColor(14)
Command1.FontSize = 20
Command1.FontName = "arial"
Label2.Visible = False
Text1.Visible = False
ElseIf licznik = 4 Then
Command1.Caption = "Zamknij"
Command1.BackColor = QBColor(15)
Command1.FontSize = 20
Command1.FontName = "arial"
Label2.Visible = False
Text1.Visible = False
ElseIf licznik = 5 Then
Unload Me
End If