kolvb5.pdf

(56 KB) Pobierz
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
Copyright © 2009, Janusz Bonarowski
1

Plik z chomika:

Inne pliki z tego folderu:

Inne foldery tego chomika:

Zgłoś jeśli naruszono regulamin