. I Visual Basic NET, Timerkontrol lader dig styre tilbagevendende begivenheder i løbet kørt tid for din ansøgning. Timer har få egenskaber og metoder , der er unikke for det. Dens vigtigste egenskab er Interval , som angiver , hvor ofte timeren skal udføre sin kode . Du leverer et interval værdi i millisekunder , 1.000 millisekunder svarer et sekund. Nogle eksempler på , hvad du kan gøre med en Timerkontrol omfatter udførelse af en nedtælling , dynamisk skiftende ejendom værdier for andre kontroller, og opretholde en konstant vagt på en anden del af ansøgningen. Instruktioner
1
Åbn en Visual Basic-projekt . Dobbeltklik på Timerkontrol at føje Timer1 til projektet. Dobbeltklik på Label kontrol til at tilføje Label1 til formularen . Skift Timer1 kontrolelementet Aktiveret egenskab til True , og Interval egenskaben til 1000
2
Tryk på " F7 " for at åbne kodevinduet , og skriv følgende kode : .
Dim tid Som integer = 10
Dette skaber en variabel og initialisere den
3
Åbn Timer1_Tick subrutine , og skriv følgende kode : .
p Hvis tiden > 0 Then
tid = tid - 1
Label1.Text = tid
Else
Timer1.Enabled = False
End If
Når programmet kører , vil timeren formindske den tid variable med én hvert sekund, og vise værdien på etiketten , indtil tælleren når 0, på hvilket tidspunkt timeren slukker.
< br > 4
Tryk på " Shift " og " F7 " for at åbne design -vinduet. Dobbeltklik på Timerkontrol at føje Timer2 til projektet. Ændre sin Aktiveret egenskab til True , og dens Interval ejendom til 100 , og derefter dobbeltklikke på den for at åbne Timer2_Tick underprogram. Indtast følgende kode : Hej p Hvis ( Label1.Left + Label1.Width ) > Me.Width Så
Label1.Left = Me.Left - 100
End If
Label1.Left = Label1.Left + 5
Denne kode får etiketten for at rulle vandret hen over skærmen , bevæger fem pixels hver tiendedel af et sekund. Når etiketten når den højre ende af den form, den springer tilbage til venstre og begynder at rulle på tværs igen.
5.
Tryk på " Shift " og " F7 " for at åbne design -vinduet. Dobbeltklik på Timerkontrol at føje timer3 til projektet. Ændre sin Aktiveret egenskab til True , og Interval ejendom til 500 . Dobbeltklik på TextBox kontrol for at tilføje TextBox1 til projektet. Dobbeltklik på timer3 på projektet for at åbne Timer3_Tick underprogram. Indtast følgende kode : Hej
TextBox1.Text = TextBox1.Text.ToUpper
TextBox1.Select ( TextBox1.TextLength , 0)
Hver halve sekund Timeren skifter hele teksten i TextBox1 til store bogstaver. Som standard er det når Timer gør denne ændring flytter markøren tilbage til begyndelsen af tekstboksen. Den anden linje kode forhindrer dette i at ske .