. In Visual Basic NET , lässt die Timer-Steuerung steuern Sie wiederkehrende Ereignisse während der Laufzeit für Ihre Anwendung. Timer hat einige Eigenschaften und Methoden, die einzigartig für sie sind . Seine wichtigste Eigenschaft ist Intervall , wie oft der Timer sollte seinen Code ausführen angibt. Sie liefern ein Intervall in Millisekunden ; 1.000 Millisekunden entspricht einer Sekunde . Einige Beispiele dafür, was man mit einem Timer-Steuerelement tun gehören die Durchführung einen Countdown , sich dynamisch verändernden Eigenschaft Werte für andere Steuerelemente und Aufrechterhaltung einer konstanten Uhr auf einem anderen Teil der Anwendung. Anleitung
1
Öffnen Sie ein Visual Basic-Projekt. Doppelklicken Sie auf das Timer-Steuerelement Timer1 zum Projekt hinzuzufügen . Doppelklicken Sie auf das Label-Steuerelement Label1 zum Formular hinzufügen . Ändern Sie den Timer1 Kontrolle Enabled-Eigenschaft auf True und die Interval-Eigenschaft auf 1000
2
Presse "F7" , um das Codefenster zu öffnen, und geben Sie den folgenden Code: .
Dim Zeit Integer = 10
es wird eine Variable und initialisiert es
3
Öffnen Sie die Timer1_Tick Unterprogramm und geben Sie den folgenden Code: .
Wenn Zeit > 0 Then
= Zeit - 1 of
Label1.Text = Zeit
Else
Timer1.Enabled = False End If
Wenn das Programm läuft , wird der Timer die Zeit durch eine variable verringern jede Sekunde , und zeigen den Wert auf dem Etikett , bis der Zählerstand 0 , an welchem Punkt der Timer schaltet erreicht .
< br > 4
Taste " Shift" und " F7 ", um das Design-Fenster zu öffnen. Doppelklicken Sie auf das Timer-Steuerelement hinzufügen Timer2 zum Projekt. Ändern Sie die Enabled-Eigenschaft auf True und die Interval-Eigenschaft auf 100 , dann doppelklicken Sie darauf , um die Timer2_Tick Subroutine öffnen. Geben Sie den folgenden Code:
( Label1.Left + Label1.Width ) > Me.Width Dann
Label1.Left = Me.Left - 100
End If
Label1.Left = Label1.Left + 5
Dieser Code bewirkt, dass das Etikett horizontal scrollen über den Bildschirm bewegt fünf Pixel jedes Zehntel einer Sekunde . Wenn das Etikett auf das rechte Ende der Form erreicht , springt er wieder nach links und beginnt Scrollen über wieder .
5
Presse "Shift" und "F7 ", um das Design-Fenster zu öffnen. Doppelklicken Sie auf das Timer-Steuerelement hinzufügen Timer3 zum Projekt. Ändern Sie die Enabled-Eigenschaft auf True und die Interval-Eigenschaft auf 500 . Doppelklicken Sie auf das TextBox-Steuerelement TextBox1 zum Projekt hinzuzufügen . Doppelklicken Sie auf das Projekt Timer3 die Timer3_Tick Subroutine öffnen. Geben Sie den folgenden Code:
TextBox1.Text = TextBox1.Text.ToUpper
TextBox1.Select ( TextBox1.TextLength , 0)
Jede halbe Sekunde die Timer ändert alles der Text in TextBox1 in Großbuchstaben . Standardmäßig wird, wenn der Timer diese Änderung macht es bewegt den Cursor an den Anfang des Textes ein. Die zweite Zeile des Codes verhindert, dass dies geschieht.
