Innehåll

• vägbeskrivning

I Visual Basic .NET kan timern styra periodiska händelser under körtiden för din applikation. Timern har några unika egenskaper och metoder för detta. Den viktigaste egenskapen är "Intervall", som anger hur ofta timern ska köra koden. Du anger ett intervallvärde i millisekunder; tusen millisekunder är lika med en sekund. Några exempel på vad du kan göra med en kontroller är att köra en nedräkning, dynamiskt ändrade egenskapsvärden för andra kontroller och för att hålla ett konstant öga på andra delar av applikationen.

vägbeskrivning

Timerintervallvärdet anges i millisekunder (klockafilm av Peter Hires Bilder från Fotolia.com)

1. Öppna ett projekt i Visual Basic. Dubbelklicka på timern och lägg till "Timer1" och dubbelklicka på "Label" för att lägga till "Label1". Ändra kontrollenheten "Enabled" till "True" och ändra intervallet till 1000.

2. Tryck på "F7" för att öppna kodfönstret och ange följande kod:

   Dim tid som heltal = 10

   Detta skapar en variabel och initierar den.

3. Öppna Timer1_Tick-applet och ange följande kod:

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

   När programmet körs, kommer timern att minska variabeln varje sekund genom att visa värdet på markeringen tills räkningen når noll, vilket gör att timern stängs av.

   
   

4. Tryck på "Shift" och "F7" för att öppna projektfönstret. Dubbelklicka på timern och lägg till "Timer2" för projektet. Ändra egenskapen "Enabled" till "True" och dess intervall till 100, dubbelklicka sedan på den för att öppna Timer2_Tick-subprogrammet. Skriv sedan följande kod:

   Om (Label1.Left + Label1.Width)> Me.Width Then Label1.Left = Me.Left - 100 avsluta om Label1.Left = Label1.Left + 5

   Denna kod gör att panelen rullar horisontellt över skärmen och flyttar fem pixlar var tionde sekund. När markeringen når den högra änden av formen går den till vänster och börjar flytta igen.

5. Tryck på "Shift" och "F7" för att öppna projektfönstret. Dubbelklicka på regulatorn och lägg till "Timer3" i projektet. Ändra egenskapen "Enabled" till "True" och dess intervall till 500. Därefter dubbelklicka på "TextBox" för att lägga till "TextBox1". Dubbelklicka på Timer3-projektet för att öppna Timer3_Tick-appleten. Skriv sedan följande kod:

   
   

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

   Varje 30 sekund ändras timern all text från "TextBox1" till den övre rutan. Som standard, när timern gör ändringarna, återgår markören till början av textrutan. Den andra raden av kod förhindrar att detta händer.