Indhold

• retninger

I Visual Basic .NET, giver timeren dig mulighed for at kontrollere periodiske begivenheder i løbet af din applikations runtime. Timeren har nogle unikke egenskaber og metoder til dette. Den vigtigste egenskab er "Interval", som angiver, hvor ofte timeren skal køre koden. Du angiver en rækkeværdi i millisekunder; tusind millisekunder er lig med et sekund. Nogle eksempler på hvad du kan gøre med en controller er at køre en nedtælling, dynamisk skiftende egenskabsværdier for andre kontroller og for at holde et konstant øje med andre dele af applikationen.

retninger

Timerintervallværdien er angivet i millisekunder (urbillede af Peter Hires Billeder fra Fotolia.com)

1. Åbn et projekt i Visual Basic. Dobbeltklik på timeren og tilføj "Timer1" og dobbeltklik på "Label" for at tilføje "Label1". Skift "Aktiveret" kontrolegenskab til "True" og ændre rækkevidden til 1000.

2. Tryk på "F7" for at åbne kodevinduet og indtaste følgende kode:

   Dim tid som helhed = 10

   Dette skaber en variabel og initialiserer den.

3. Åbn Timer1_Tick-applet og indtast følgende kode:

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

   Når programmet kører, vil timeren reducere variablen hvert sekund ved at vise værdien på markeringen, indtil tællingen når nul, hvilket får timeren til at slukke.

   
   

4. Tryk på "Shift" og "F7" for at åbne projektvinduet. Dobbeltklik på timeren og tilføj "Timer2" til projektet. Skift "Aktiveret" egenskaben til "True" og dens rækkevidde til 100, og dobbeltklik derefter på den for at åbne Timer2_Tick-underprogrammet. Indtast derefter følgende kode:

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

   Denne kode får panelet til at rulle vandret over skærmen og flytte fem pixels hver tiende sekund. Når markøren når den højre ende af formularen, går den tilbage til venstre og begynder at bevæge sig igen.

5. Tryk på "Shift" og "F7" for at åbne projektvinduet. Dobbeltklik på controlleren og tilføj "Timer3" til projektet. Skift "Aktiveret" egenskaben til "True" og dens rækkevidde til 500. Dobbeltklik derefter på "TextBox" for at tilføje "TextBox1". Dobbeltklik på Timer3-projektet for at åbne Timer3_Tick-applet. Indtast derefter følgende kode:

   
   

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

   Hvert 30 sekund ændrer timeren al tekst fra "TextBox1" til den øverste boks. Som standard, når timeren laver ændringerne, vender markøren tilbage til begyndelsen af ​​tekstboksen. Den anden linje af kode forhindrer det i at ske.