In Visual Basic . NET , het Timer-besturingselement kunt u bepalen terugkerende gebeurtenissen tijdens de looptijd voor uw toepassing . Timer heeft enkele eigenschappen en methoden die uniek zijn voor het. Haar belangrijkste eigenschap is Interval , die aangeeft hoe vaak de timer zijn code moet worden uitgevoerd . U levert een interval waarde in milliseconden ; 1000 milliseconden is gelijk aan een seconde . Enkele voorbeelden van wat u kunt doen met een timer controle omvatten het uitvoeren van een countdown , dynamisch veranderende waarde van onroerend goed voor andere controles en het handhaven van een constant in de gaten op een ander deel van de applicatie . Instructies
1 Open een Visual Basic project . Dubbelklik op de Timer controle te Timer1 toe te voegen aan het project . Dubbelklik op het besturingselement Label te Label1 toe te voegen aan het formulier . Verander de Timer1 controle 's Enabled eigenschap op True en de eigenschap Interval tot 1000
Press 2 " F7 " om het venster code te openen , en typ de volgende code : . Dim tijd
als integer = 10
Dit creëert een variabele en initialiseert het
3 Open de Timer1_Tick subroutine en typ de volgende code : .
Als de tijd > 0 dan tijd
= tijd - 1 Label1.Text = tijd
Else
Timer1.Enabled = False End of als
Wanneer het programma loopt , zal de timer de tijd variabele verlagen door een per seconde , en geeft de waarde op het etiket , totdat de teller op 0 staat , op welk punt de timer wordt uitgeschakeld .
< br > 4 Druk op " Shift " en " F7 " om het ontwerp -venster te openen . Dubbelklik op de Timer controle te Timer2 toe te voegen aan het project . Verander de eigenschap Enabled in op True en haar Interval eigendom tot 100 , dubbelklik op het bestand om het Timer2_Tick subroutine te openen . Typ de volgende code :
Als ( Label1.Left + Label1.Width ) > Me.Width Dan
Label1.Left = Me.Left - 100 End
Als Label1.Left = Label1.Left + 5
Deze code
zorgt ervoor dat het etiket om horizontaal te scrollen over het scherm , bewegen vijf pixels elke tiende van een seconde . Wanneer het etiket het juiste eind van het formulier bereikt springt het terug naar links en begint het scrollen over weer .
Druk op " Shift " en " F7 " om het ontwerp -venster te openen 5 . Dubbelklik op de Timer controle te Timer3 toe te voegen aan het project . Verander de eigenschap Enabled op True en de eigenschap Interval tot 500 . Dubbelklik op het deTextBoxbesturingselement om TextBox1 toe te voegen aan het project . Dubbelklik op Timer3 aan het project om de Timer3_Tick subroutine te openen . Typ de volgende code : TextBox1.Text = TextBox1.Text.ToUpper TextBox1.Select ( TextBox1.TextLength , 0 ) op Twitter
Elke halve seconde de timer verandert alles de tekst in TextBox1 in hoofdletters. Door gebrek, wanneer de timer maakt deze wijziging het beweegt de cursor terug naar het begin van het tekstvak . De tweede regel van de code voorkomt dit .
|
