Как да програмирате контрола на таймера в VB.NET

С контрола Visual Basic .NET Timer можете да контролирате повтарящи се събития.

Стъпка 1

Отворете проект на Visual Basic. Щракнете двукратно върху контрола "Timer", за да добавите Timer1 към проекта. Щракнете двукратно върху контрола "Label", за да добавите Label1 към формуляра. Променя собствеността "Активирано" на контрола Timer1 на "True" (true) и на "Interval" (обхват) до 1000.

Стъпка 2

Натиснете "F7", за да отворите прозореца с кода и въведете следното:

Размер на времето като цяло число = 10

Това ще създаде променлива и ще я стартира със стойност.

Стъпка 3

Отворете подпрограмата Timer1_Tick и въведете следния код:

Ако времето> 0 Тогава времето = време - 1 Label1.Text = time Другият Timer1.Enabled = False End Ако

Когато програмата се изпълни, таймерът ще намали променливата на времето един по един на секунда и ще покаже стойността на етикета, докато броят достигне 0. Тогава таймерът ще бъде деактивиран.

Стъпка 4

Натиснете "Shift" и "F7", за да отворите прозореца за проектиране. Щракнете двукратно върху контрола Timer, за да добавите Timer2 към проекта. Променете неговата собственост от "Enabled" на "True" и нейната "Interval" на 100. След това щракнете двукратно върху нея, за да отворите подпрограмата Timer2_Tick. Напишете следния код:

Ако (Label1.Left + Label1.Width)> Me.Width Тогава Label1.Left = Me.Left - 100 End Ако Label1.Left = Label1.Left + 5

С този код етикетът ще се придвижи хоризонтално по екрана, движейки се пет пиксела на всеки десети от секундата. Когато етикетът достигне десния край на формуляра, той ще се върне обратно към левия край и ще започне отново да се придвижва хоризонтално.

Стъпка 5

Натиснете "Shift" и "F7", за да отворите прозореца за проектиране. Щракнете двукратно върху таймера, за да добавите Timer3 към проекта. Променете свойството "Enabled" на "True" и неговата "Interval" на 500. Щракнете двукратно върху контрола "TextBox" (текстово поле), за да добавите TextBox1 към проекта. Щракнете двукратно върху Timer3 на проекта, за да отворите подпрограмата Timer3_Tick. Напишете следния код:

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

На всеки половин секунда таймерът ще промени целия текст в текстовата кутия1 на главни букви. По подразбиране, когато таймерът прави тази промяна, курсорът се връща в началото на текстовото поле. Вторият ред от кода предотвратява това да се случи.