Comment programmer le contrôle Timer dans VB.NET

Avec le contrôle Visual Basic .NET Timer, vous pouvez contrôler les événements récurrents.

Étape 1

Ouvrez un projet Visual Basic. Double-cliquez sur le contrôle "Minuteur" pour ajouter Timer1 au projet. Double-cliquez sur le contrôle "Label" pour ajouter Label1 au formulaire. Modifie la propriété "Enabled" du contrôle Timer1 en "True" (true) et la propriété "Interval" (plage) en 1000.

Étape 2

Appuyez sur "F7" pour ouvrir la fenêtre de code et tapez ce qui suit:

Dim time As Integer = 10

Cela va créer une variable et la démarrer avec une valeur.

Étape 3

Ouvrez le sous-programme Timer1_Tick et entrez le code suivant:

Si heure> 0 Alors heure = heure - 1 Label1.Text = heure Else Timer1.Enabled = False End If

Lorsque le programme est exécuté, le minuteur diminuera la variable de temps une par une et affichera la valeur sur l'étiquette jusqu'à ce que le compte atteigne 0. À ce moment, le minuteur sera désactivé.

Étape 4

Appuyez sur "Shift" et "F7" pour ouvrir la fenêtre de conception. Double-cliquez sur le contrôle Timer pour ajouter Timer2 au projet. Changez sa propriété de "Enabled" à "True" et sa propriété "Interval" à 100. Cliquez ensuite deux fois dessus pour ouvrir le sous-programme Timer2_Tick. Écrivez le code suivant:

Si (Label1.Left + Label1.Width)> Me.Largeur Alors Label1.Left = Me.Left - 100 Fin Si Label1.Left = Label1.Left + 5

Avec ce code, l'étiquette se déplacera horizontalement sur l'écran, en se déplaçant de cinq pixels tous les dixièmes de seconde. Lorsque l'étiquette atteint l'extrémité droite du formulaire, elle retourne à l'extrémité gauche et recommence à défiler horizontalement.

Étape 5

Appuyez sur "Shift" et "F7" pour ouvrir la fenêtre de conception. Double-cliquez sur le minuteur pour ajouter Timer3 au projet. Changez sa propriété "Enabled" en "True" et sa propriété "Interval" en 500. Double-cliquez sur le contrôle "TextBox" (zone de texte) pour ajouter TextBox1 au projet. Double-cliquez sur Timer3 du projet pour ouvrir le sous-programme Timer3_Tick. Écrivez le code suivant:

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

Toutes les demi-secondes, le minuteur changera tout le texte de TextBox1 en lettres majuscules. Par défaut, lorsque le minuteur effectue cette modification, le curseur revient au début de la zone de texte. La deuxième ligne de code empêche cela de se produire.