Innhold

• retninger

I Visual Basic. NET, kan timeren du kontrollere periodiske hendelser i løpet av søknadsperioden. Timeren har noen unike egenskaper og metoder for dette. Den viktigste egenskapen er "Intervall", som angir hvor ofte timeren skal kjøre koden. Du gir en verdi i millisekunder; tusen millisekunder er lik ett sekund. Noen eksempler på hva du kan gjøre med en kontroller inkluderer å kjøre nedtelling, dynamisk endring av eiendomsverdier for andre kontroller, og for å holde et konstant øye med andre deler av applikasjonen.

retninger

Timerintervallverdien er gitt i millisekunder (ur bilde av Peter Hires Bilder fra Fotolia.com)

1. Åpne et prosjekt i Visual Basic. Dobbeltklikk på timeren og legg til "Timer1" og dobbeltklikk "Label" for å legge til "Label1". Endre "Enabled" kontrollegenskapen til "True" og endre rekkevidden til 1000.

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

   Dim tid som helhet = 10

   Dette skaper en variabel og initialiserer den.

3. Åpne Timer1_Tick-applet og skriv inn følgende kode:

   Hvis tid> 0 Så tid = tid - 1 Label1.Text = time Else Timer1.Enabled = False End If

   Når programmet kjører, vil timeren redusere variabelen hvert sekund ved å vise verdien på teltet til tellingen når null, slik at timeren slås av.

   
   

4. Trykk "Shift" og "F7" for å åpne prosjektvinduet. Dobbeltklikk timeren og legg til "Timer2" til prosjektet. Endre egenskapen "Aktivert" til "True" og rekkevidden til 100, og dobbeltklikk på den for å åpne Timer2_Tick-underprogrammet. Skriv deretter inn følgende kode:

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

   Denne koden får panelet til å rulle horisontalt over skjermen, og beveger fem piksler hver tiende sekund. Når markeringen når den høyre enden av skjemaet, går den tilbake til venstre og begynner å bevege seg igjen.

5. Trykk "Shift" og "F7" for å åpne prosjektvinduet. Dobbeltklikk på kontrolleren og legg til "Timer3" til prosjektet. Endre egenskapen "Enabled" til "True" og rekkevidden til 500. Dobbeltklikk deretter på "TextBox" for å legge til "TextBox1". Dobbeltklikk på Timer3-prosjektet for å åpne Timer3_Tick-appleten. Skriv deretter inn følgende kode:

   
   

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

   Hvert 30 sekund endrer timeren all tekst fra "TextBox1" til den øvre boksen. Som standard, når tidtakeren gjør endringene, går markøren tilbake til begynnelsen av tekstboksen. Den andre linjen med kode forhindrer at dette skjer.