Cum se programează comanda Timer în VB.NET

Cu controlul Visual Basic .NET Timer puteți controla evenimentele recurente.

Pasul 1

Deschideți un proiect Visual Basic. Faceți dublu clic pe butonul "Timer" pentru a adăuga Timer1 la proiect. Faceți dublu clic pe butonul "Label" pentru a adăuga eticheta1 la formular. Modifică proprietatea "Activat" a comenzii Timer1 la "True" (true) și la proprietatea "Interval" (range) la 1000.

Pasul 2

Apăsați "F7" pentru a deschide fereastra de cod și tastați următoarele:

Dim timp ca intreg = 10

Aceasta va crea o variabilă și o va porni cu o valoare.

Pasul 3

Deschideți subrutina Timer1_Tick și introduceți următorul cod:

Dacă timpul> 0 Apoi timpul = timpul - 1 Label1.Text = timpul Timer altfel1.Enabled = Sfârșitul False Dacă

Când programul este executat, Timerul va micșora variabila de timp una câte una în fiecare secundă și va afișa valoarea de pe etichetă până când numărul ajunge la 0. În acel moment, Timerul va fi dezactivat.

Pasul 4

Apăsați "Shift" și "F7" pentru a deschide fereastra de proiectare. Faceți dublu clic pe butonul Timer pentru a adăuga Timer2 la proiect. Schimbați proprietatea de la "Enabled" la "True" și proprietatea "Interval" la 100. Apoi faceți dublu clic pe el pentru a deschide subrutina Timer2_Tick. Scrieți următorul cod:

În cazul în care (Label1.Left + Label1.Width)> Me.Width Atunci Label1.Left = Me.Left - 100 Sfârșit Dacă Label1.Left = Label1.Left + 5

Cu acest cod, eticheta se va deplasa orizontal pe ecran, deplasând cinci pixeli la fiecare zecime dintr-o secundă. Când eticheta ajunge la capătul din dreapta al formularului, aceasta va reveni la capătul din stânga și va începe să se deruleze din nou orizontal.

Pasul 5

Apăsați "Shift" și "F7" pentru a deschide fereastra de proiectare. Faceți dublu clic pe Timer pentru a adăuga Timer3 la proiect. Schimbați proprietatea "Enabled" la "True" și proprietatea "Interval" la 500. Faceți dublu clic pe controlul "TextBox" (casetă text) pentru a adăuga TextBox1 la proiect. Faceți dublu clic pe Timer3 al proiectului pentru a deschide subrutina Timer3_Tick. Scrieți următorul cod:

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

La fiecare jumătate de secundă, Timerul va schimba tot textul din TextBox1 la majuscule. În mod implicit, când Timerul face această schimbare, cursorul revine la începutul casetei de text. A doua linie de cod împiedică acest lucru să se întâmple.