październik 15, 2008 @ 4:16 pm · Zamieszczone w kategoriach Zdjęcia

Dim licznik As Integer

Private Sub Command1_Click()
licznik = licznik + 1
Label3.Caption = licznik

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 = 26
'Command1.FontName = "Arial"
Label2.Visible = False
Text1.Visible = False

ElseIf licznik = 3 Then
Command1.Caption = "Milego dnia"
Command1.BackColor = QBColor(14)
Command1.FontSize = 18
'Command1.FontName = "Arial"
'Label2.Visible = False
'Text1.Visible = False

ElseIf licznik = 4 Then
Command1.Caption = "Zamknij"
Command1.BackColor = QBColor(15)
Command1.FontSize = 18
'Command1.FontName = "Arial"
'Label2.Visible = False
'Text1.Visible = False

ElseIf licznik = 5 Then
Unload Me

End If
End Sub

Private Sub Form_Load()
Label2.Visible = False
Text1.Visible = False
licznik = 0
Label3.Visible = False
End Sub

Private Sub pomoc_Click()
Form1.Show vbModal
End Sub

Dodaj komentarz