Inhoud

• routebeschrijving

In Visual Basic .NET stelt de timer u in staat om periodieke gebeurtenissen tijdens de looptijd van uw toepassing te regelen. De timer heeft enkele unieke eigenschappen en methoden hiervoor. De belangrijkste eigenschap is het "Interval", dat aangeeft hoe vaak de timer de code moet uitvoeren. U geeft een bereikwaarde op in milliseconden; duizend milliseconden is gelijk aan één seconde. Enkele voorbeelden van wat u met een controller kunt doen, zijn onder meer het aftellen, het dynamisch wijzigen van eigenschapswaarden voor andere bedieningselementen en het constant in de gaten houden van sommige andere delen van de toepassing.

routebeschrijving

De timerintervalwaarde wordt uitgedrukt in milliseconden (klokafbeelding door Peter Hires Images from Fotolia.com)

1. Open een project in Visual Basic. Dubbelklik op de timer en voeg "Timer1" toe en dubbelklik op "Label" om "Label1" toe te voegen. Wijzig de regeleigenschap "Ingeschakeld" in "Waar" en verander het bereik in 1000.

2. Druk op "F7" om het codevenster te openen en voer de volgende code in:

   Dimtijd als geheel getal = 10

   Hiermee wordt een variabele gemaakt en geïnitialiseerd.

3. Open de applet Timer1_Tick en voer de volgende code in:

   If time> 0 Then time = time - 1 Label1.Text = time Else Timer1.Enabled = False End If

   Wanneer het programma wordt uitgevoerd, verlaagt de timer de variabele elke seconde door de waarde op het selectiekader weer te geven totdat de teller nul bereikt, waardoor de timer wordt uitgeschakeld.

   
   

4. Druk op "Shift" en "F7" om het projectvenster te openen. Dubbelklik op de timer en voeg "Timer2" toe aan het project. Wijzig de eigenschap "Ingeschakeld" in "True" en het bereik in 100 en dubbelklik erop om het subprogramma Timer2_Tick te openen. Typ vervolgens de volgende code:

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

   Deze code zorgt ervoor dat het paneel horizontaal over het scherm schuift en vijf pixels per tiende van een seconde verplaatst. Wanneer de selectiekader het rechteruiteinde van het formulier bereikt, gaat het terug naar links en begint het weer te bewegen.

5. Druk op "Shift" en "F7" om het projectvenster te openen. Dubbelklik op de controller en voeg "Timer3" toe aan het project. Wijzig de eigenschap "Ingeschakeld" in "True" en het bereik in 500. Dubbelklik vervolgens op "TextBox" om "TextBox1" toe te voegen. Dubbelklik op het project Timer3 om de applet Timer3_Tick te openen. Typ vervolgens de volgende code:

   
   

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

   Elke 30 seconden verandert de Timer alle tekst van "Tekstvak1" naar het bovenste vak. Als de timer de wijzigingen aanbrengt, keert de cursor standaard terug naar het begin van het tekstvak. De tweede coderegel voorkomt dat dit gebeurt.