Copyright © 2009, Janusz Bonarowski
1
KolVB5
Posługując się obiektem Timer wyświetlić w TextBox’się, w odstępach (1) co 1/2 sekundy
(2) co 1 sekundy
dwa hasła: pierwsze: Visual, drugie Basic.
Polecenia uruchamiania, zatrzymywania aplikacji oraz zmiany tempa wyświetlania tekstów i zakończenia aplikacji wykonać z menu.
Rozwiązanie
Rys. 1. Propozycja formularza
Jeśli ustawimy interwał dla Timer1 na 500, to zdarzenie Tick będzie generowane co 500 milisekund, czyli co ½ sekundy, a gdy na 1000, to co 1 sekundę
Private Sub mnuStart_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles mnuStart.Click mnuStart.Enabled = False
mnuStop.Enabled = True Timer1.Enabled = True End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Timer1.Tick If TextBox1.Text = "Basic" Then
TextBox1.Text = "Visual"
ElseIf TextBox1.Text = "Visual" Then TextBox1.Text = "Basic"
End If End Sub
Private Sub mnuStop_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles mnuStop.Click mnuStart.Enabled = True
mnuStop.Enabled = False Timer1.Enabled = False End Sub
Private Sub mnuCoPolSekundy_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles mnuCoPolSekundy.Click Timer1.Interval = 500
End Sub
Private Sub mnuCoSekunde_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles mnuCoSekunde.Click Timer1.Interval = 1000
End Sub
Private Sub mnuKoniec_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles mnuKoniec.Click If MsgBox("Czy zamknąć aplikację", MsgBoxStyle.Question + _
MsgBoxStyle.YesNo, "Koniec") = MsgBoxResult.Yes Then Application.Exit()
End If End Sub