Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста стр.21
Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста стр.21 Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста

ГЛАВА З Т Первая программа

Рассмотрим еще один пример. На этот раз используем инструмент Timer (таймер). Откройте новый проект, щелкнув вкладку Start Page над окном Design (если у вас еще открыт прежний). Затем разместите на форме кнопку Button, два таймера Timer, а также надпись Label.

Обратите внимание на то, что элемент Timer не расположен на форме, а потому во время работы программы мы его не увидим.

Задача программы после щелчка кнопки Button 1 - окрасить Label 1 в красный цвет и сделать так, чтобы на ней появилась надпись Stop. За счет работы таймеров надпись периодически появляется и исчезает. После ее щелчка программа прекращает работу.

После размещения элементов на форме можете изменить их свойства. Увеличьте, например, размеры элементов и шрифта надписей на них. Затем создайте процедуры событий для каждого элемента, например, дважды щелкнув по каждому из них. Напишите код для Button 1: Timerl. Start. Это значит, что при щелчке Button 1 происходит событие

Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста

Рис. 3.2 т Окно кодов

Первая программа

Button_Click, в результате которого включается Timerl (событие Timerl-Tick). Затем напишите код для Timerl:

Private Sub Timerl_Tick (ByVal sender As System. _ Object, ByVal e As System.EventArgs) Handles Timerl.Tick

Labell.BackColor = Color.Red

Label1.Text = "Стоп"

Timer2.Start()

Timerl.Stop() End Sub

Теперь, после того как таймер отработает установленное время (свойство Interval в окне Properties), надпись Labell окрасится в красный цвет, свойство Текст примет значение Stop. Затем запустится Timer2, a Timerl остановится. Дважды щелкните Timer2 и напишите коды в созданной редактором процедуре обработки событий TimerJTick

Private Sub Timer2_Tick (ByVal sender As System. _ Object, ByVal e As System.EventArgs) Handles Timer2.Tick

Labell.BackColor = Color.White

Labell.Text =

Timerl.Start()

Timer2.Stop() End Sub

После запуска Timer2 отрабатывает положенное время, а затем окрашивает надпись в белый цвет, убирает текст, включает Timerl и, наконец, выключается. Пустые кавычки означают отсутствие текста.


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta