Slik programmerer du Timer-kontrollen i VB.NET

Trinn 1

Åpne et Visual Basic-prosjekt. Dobbeltklikk på "Timer" -kontrollen for å legge Timer1 til prosjektet. Dobbeltklikk på "Label" -kontrollen for å legge Label1 til skjemaet. Endre egenskapen "Aktivert" til Timer1-kontrollen til "Sann" (sann) og egenskapen "Intervall" (intervall) til 1000.

Trinn 2

Trykk "F7" for å åpne kodevinduet og skriv inn følgende:

Dimmetid som heltall = 10

Dette vil opprette en variabel og starte den med en verdi.

Trinn 3

Åpne Timer1_Tick subroutine og skriv inn følgende kode:

Hvis tid> 0 Da er tid = tid - 1 Etikett1.Tekst = tid annet tidtaker1.Enabled = Falske slutt Hvis

Når programmet kjøres, vil tidtakeren redusere tidsvariabelen ett for hvert hvert sekund og vise verdien på etiketten til tellingen når 0. På det tidspunktet vil tidtakeren deaktiveres.

Trinn 4

Trykk "Shift" og "F7" for å åpne designvinduet. Dobbeltklikk på Timer-kontrollen for å legge Timer2 til prosjektet. Endre eiendommen fra "Enabled" til "True" og den "Interval" -egenskapen til 100. Dobbeltklikk deretter på den for å åpne Timer2_Tick-underrutinen. Skriv følgende kode:

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

Med denne koden vil etiketten rulle horisontalt over skjermen og flytte fem piksler hvert tiendedels sekund. Når etiketten når helt til høyre på skjemaet, vil den hoppe helt til venstre og begynne å bla horisontalt igjen.

Trinn 5

Trykk "Shift" og "F7" for å åpne designvinduet. Dobbeltklikk på Timer for å legge Timer3 til prosjektet. Endre egenskapen "Enabled" til "True" og "Interval" -egenskapen til 500. Dobbeltklikk på "TextBox" -kontrollen (tekstboks) for å legge TextBox1 til prosjektet. Dobbeltklikk på prosjektet Timer3 for å åpne Timer3_Tick-underrutinen. Skriv følgende kode:

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

Hvert halve sekund vil tidtakeren endre hele teksten til TextBox1 til store bokstaver. Når timeren gjør denne endringen, går markøren som standard tilbake til begynnelsen av tekstboksen. Den andre kodelinjen forhindrer at dette skjer.