Option Explicit

End Sub

End Sub

Pictu

End Sub

Option Explicit

'Общая процедура визуализации объекта Image1

Sub Pictu()

Image1.Visible = True

'Вызов процедуры

Private Sub Command1_Click()

'Гашение изображения при щелчке по картинке

Private Sub Image1_Click()

Image1.Visible = False

Сохраните проект. Выполните компиляцию. Закройте Visual Basic. Проверьте работоспособность приложения.

Загрузите файл Проект1.vbp (VB Учебные \ Проекты \ 10 Картинки).

Измените программный код таким образом, чтобы картинки появлялись на экране при щелчке мыши по поверхности формы.

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

Задание 2. События клавиатуры KeyPress

Создайте интерфейс приложения (рис. 29).

Присвойте свойствам объектов значения, приведённые в таб. 7.

Таблица 7

Объект	Свойства	Значение свойства
Label1	Caption	Вычисление площади круга и длины окружности
Label2	Caption	Введите радиус и нажмите клавишу Enter
Label3	Caption	Площадь круга
Label4	Caption	Длина окружности
Label5	Caption	R=
Label6	Caption	S=
Label7	Caption	L=
Label8	Caption	СБРОС!
Shape1	Shape	3 – Circle
Text1	MaxLength
Text2	Text
Text3	Text
Text4	Text

Рис. 29. Окно формы Циркуль.

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

Const pi = 3.14159 'Объявление константы

Dim R%, S%, l% 'Объявление переменных

'Процедура инициализации объектов

Private Sub Label8_Click()

Тext2.Text = ""

Тext 3.Text = ""

Тext 4.Text = ""

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