End Sub. Цель занятия: ознакомить студентов с основными типами проектов Visual Basic, привить навыки создания интерфейса приложения

Option Explicit

End Sub

End Sub

Option Explicit

ЛАБОРАТОРНОЕ ЗАНЯТИЕ № 7

Цель занятия: ознакомить студентов с основными типами проектов Visual Basic, привить навыки создания интерфейса приложения.

Задание 1. Модальная форма

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

Разместите на форме три управляющие кнопки CommandButton1 – 3 как показано на рис. 35.

Создайте подчинённую форму (Проект \ Добавить форму). Для этого в окне Добавить форму (закладка Новый) выберите пиктограмму Dialog. На созданной форме разместите элемент управления Image1. Присвойте свойству Stretch значение True, свойству Visible – False. Загрузите картинку из Фотогаллереи (рис. 36). Создайте программный код.

Private Sub CancelButton_Click()

Image1.Visible = False

Private Sub OKButton_Click()

Image1.Visible = True

Рис. 35. Основная форма

Рис. 36. Простая форма 1

Создайте ещё две формы Form2 и Form3. Для Form2 создайте интерфейс, приведённый на рис. 38 и программный код:

Private Sub Command1_Click()

Image1.Visible = True

Private Sub Command2_Click()

Image1.Visible = False

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