Jak zaprogramować sterowanie Timerem w VB.NET

Za pomocą kontrolki programu Visual Basic .NET Timer można sterować powtarzającymi się zdarzeniami.

Krok 1

Otwórz projekt Visual Basic. Dwukrotnie kliknij kontrolkę "Timer", aby dodać Timer1 do projektu. Dwukrotnie kliknij formant "Etykieta", aby dodać Label1 do formularza. Zmienia właściwość "Enabled" kontrolki Timer1 na "True" (true) i właściwość "Interval" (zakres) na 1000.

Krok 2

Naciśnij "F7", aby otworzyć okno kodu i wpisz:

Dim czas Jako Integer = 10

Spowoduje to utworzenie zmiennej i uruchomienie jej z wartością.

Krok 3

Otwórz podprogram Timer1_Tick i wprowadź następujący kod:

Jeśli czas> 0 To czas = czas - 1 Label1.Text = czas Else Timer1.Enabled = False End If

Po uruchomieniu programu Timer będzie zmniejszał zmienną czasową jeden po drugim na sekundę i wyświetlał wartość na etykiecie, aż licznik osiągnie 0. W tym czasie Timer zostanie wyłączony.

Krok 4

Naciśnij "Shift" i "F7", aby otworzyć okno projektu. Dwukrotnie kliknij kontrolkę Timer, aby dodać Timer2 do projektu. Zmień jego właściwość z "Aktywny" na "Prawdziwy", a jego właściwość "Przedział czasu" na 100. Następnie kliknij go dwukrotnie, aby otworzyć podprogram Timer2_Tick. Napisz następujący kod:

Jeśli (Label1.Left + Label1.Width)> Me.Width Then Label1.Left = Me.Left - 100 End If Label1.Left = Label1.Left + 5

Za pomocą tego kodu etykieta przesunie się poziomo po ekranie, przesuwając pięć pikseli co dziesiątą część sekundy. Kiedy etykieta dotrze do prawego końca formularza, przeskoczy z powrotem na lewy koniec i zacznie ponownie przewijać poziomo.

Krok 5

Naciśnij "Shift" i "F7", aby otworzyć okno projektu. Kliknij dwukrotnie Timer, aby dodać Timer3 do projektu. Zmień jego właściwość "Enabled" na "True", a jego właściwość "Interval" na 500. Kliknij dwukrotnie element "TextBox" (pole tekstowe), aby dodać obiekt TextBox1 do projektu. Dwukrotnie kliknij Timer3 projektu, aby otworzyć podprogram Timer3_Tick. Napisz następujący kod:

TextBox1.Text = TextBox1.Text.ToUpper TextBox1.Select (TextBox1.TextLength, 0)

Co pół sekundy, Timer zmieni cały tekst w TextBox1 na wielkie litery. Domyślnie, gdy Timer wprowadzi tę zmianę, kursor powraca na początek pola tekstowego. Druga linia kodu zapobiega temu.