Программирование для карманных компьютеров полностью

2. Двойным щелчком на кнопке Command1 создайте обработчик события щелчка на кнопке. Окно с кодом будет открыто автоматически и шаблон обработчика данного события будет создан. В этом шаблоне нужно ввести код, приведенный в листинге 3.1. Листинг 3.1

Private Sub Command1_Click()

Label1.Font.Size = 20

Label1.Font.Bold = True

Label1.WordWrap = True

Label1.Alignment = vbCenter

Label1.Caption = «Здравствуй, Мир!»

Timer1.Interval = 300

Timer1.Enabled = True

Shape1.FillColor = &HFF&

Shape2.FillColor = &HFF&

Shape3.FillColor = &HFF&

End Sub

3. Двойным щелчком на компоненте Timer1 нужно создать обработчик события срабатывания таймера и ввести код из листинга 3.2. Листинг 3.2

Private Sub Timer1_Timer()

If (Shape1.FillStyle = 1) Then

Shape1.FillStyle = 0

Shape2.FillStyle = 0

Shape3.FillStyle = 0

Else

Shape1.FillStyle = 1

Shape2.FillStyle = 1

Shape3.FillStyle = 1

End If

End Sub

4. В списке устройств нужно выбрать эмулятор Pocket PC 2002 (рис. 3.13).

Рис. 3.13. Выбор устройства.