End Sub. Private Sub Тext1_KeyPress(KeyAscii As Integer)

End If

End If

Else

Private Sub Тext1_KeyPress(KeyAscii As Integer)

End Sub

'Процедура обработки события: нажатие клавиши Enter

'Анализ кода клавиши

If KeyAscii = 13 Then

If Тext1.Text = "" Then ‘Анализ введённой информации

R = CInt(Тext1)

'Вычисление площади круга и длины окружности

S = pi * R ^ 2: l = 2 * pi * R

Тext2.Text = CStr(R)

Тext3.Text = CStr(S)

Текст4.Text = CStr(Int(l))

Сохраните проект. Выполните компиляцию.

Закройте Visual Basic.

Проверьте работоспособность приложения.

Откройте проект Циркуль.vbp (VB Учебные \ Проекты \ 04 Окружность).

Просмотрите работу приложения в режиме интерпретации. Сопоставьте программный код с кодом приложения созданного вами.

Закройте Visual Basic без сохранения проекта.

Задание 3. События перемещения указателя мыши MouseMove

Создайте новый проект.

Присвойте свойству формы Caption значение «Наш Город».

Разместите на форме объект Image1.

Присвойте свойству Stretch этого объекта значение True.

Для свойства Picture выберите файл Машерова.jpg (VB Учебные \ Фотогаллерея \ Минск).

На это изображение разместите последовательно ещё шесть элементов управления Image:

Image2 Stretch – True, Picture – Немига.jpg

Image3 Stretch – True, Picture – Троицкое.jpg

Image4 Stretch – True, Picture – Оперный театр.jpg

Image5 Stretch – True, Picture – Кино Москва.jpg

Image6 Stretch – True, Picture – Колас.jpg

Image7 Stretch – True, Picture – Авто.jpg

В меню Правка выполните команду выделить всё. Присвойте свойству Visible значение False.

Рядом с изображениями разместите семь меток Label1 – 7 (рис. 30).

Рис. 30. Окно формы Наш город

Отформатируйте их в соответствие с рисунком. Свойству BackColor присвойте значение Window Frame. Свойству ForeColor – Window Backgrownd.. Свойству Alignment – 2–Center.

Создайте программный код. При создании программного кода используйте буфер обмена для копирования процедур.

' Наезд указателя мыши на Метку

Дата добавления: 2014-12-27