Zawartość

• Instrukcje

W Visual Basic .NET zegar umożliwia sterowanie okresowymi zdarzeniami podczas działania aplikacji. Zegar ma pewne unikalne właściwości i metody do tego. Najważniejszą właściwością jest „Interval”, który określa, jak często timer powinien uruchamiać kod. Podajesz wartość zakresu w milisekundach; tysiąc milisekund to jedna sekunda. Niektóre przykłady tego, co można zrobić z kontrolerem, to uruchomienie odliczania, dynamiczna zmiana wartości właściwości dla innych elementów sterujących i ciągłe obserwowanie innych części aplikacji.

Instrukcje

Wartość interwału timera podawana jest w milisekundach (zdjęcie zegara autorstwa Peter Hires Images z Fotolia.com)

1. Otwórz projekt w Visual Basic. Kliknij dwukrotnie timer i dodaj „Timer1” i kliknij dwukrotnie „Label”, aby dodać „Label1”. Zmień właściwość kontrolną „Włączone” na „Prawda” i zmień zakres na 1000.

2. Naciśnij „F7”, aby otworzyć okno kodu i wprowadzić następujący kod:

   Dim time As Integer = 10

   Tworzy to zmienną i inicjalizuje ją.

3. Otwórz aplet Timer1_Tick i wprowadź następujący kod:

   Jeśli czas> 0 Wtedy czas = czas - 1 Label1.Text = czas Inny Timer1.Enabled = False End Jeśli

   Po uruchomieniu programu timer będzie zmniejszał zmienną co sekundę, wyświetlając wartość na markizie, aż liczba osiągnie zero, powodując wyłączenie zegara.

4. Naciśnij „Shift” i „F7”, aby otworzyć okno projektu. Kliknij dwukrotnie timer i dodaj „Timer2” do projektu. Zmień właściwość „Włączone” na „Prawda”, a jej zakres na 100, a następnie kliknij na nią dwukrotnie, aby otworzyć podprogram Timer2_Tick. Następnie wpisz następujący kod:

   
   

   If (Label1.Left + Label1.Width)> Me.Width Następnie Label1.Left = Me.Left - 100 End If Label1.Left = Label1.Left + 5

   Ten kod powoduje, że panel przesuwa się poziomo po ekranie, przesuwając pięć pikseli na każdą dziesiątą część sekundy. Gdy markiza osiągnie prawy koniec formularza, wraca na lewo i zaczyna się ponownie ruszać.

5. Naciśnij „Shift” i „F7”, aby otworzyć okno projektu. Kliknij dwukrotnie kontroler i dodaj „Timer3” do projektu. Zmień właściwość „Enabled” na „True”, a jej zakres na 500. Następnie kliknij dwukrotnie „TextBox”, aby dodać „TextBox1”. Kliknij dwukrotnie projekt Timer3, aby otworzyć aplet Timer3_Tick. Następnie wpisz następujący kod:

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

   Co 30 sekund Timer zmienia cały tekst z „TextBox1” na górne pole. Domyślnie, gdy zegar wprowadza zmiany, kursor wraca na początek pola tekstowego. Druga linia kodu zapobiega temu.