Практическая работа №1. Тема: VBA. Элементы управления.

Практическая работа №1.

Тема: VBA. Элементы управления.

Цели:1. Изучение  интерфейса редактора VBA.

          2. Изучение объектов Visual Basic for Application на примере линейной программы.

Краткие теоретические сведения.

Форма (UserForm) представляет собой диалоговое окно, в котором можно размещать различные элементы управления. В приложении может быть как одна, так и несколько форм. Новая форма добавляется в проект выбором команды Insert(Вставка) ® UserForm.

В VBA имеется обширный набор встроенных элементов управления.

Элементы управления являются объектами. Как любые объекты, они обладают свойствами, методами и событиями.

1.    Элементы управления создаются при помощи Панели элементов, которая отображается на экране либо выбором команды Вид (View) ® Панель элементов (Toolbox), либо нажатием кнопки  панели инструментов Standard.

На этой панели представлены кнопки, позволяющие конструировать элементы управления. Для создания элементов управления служат все кнопки панели инструментов, за исключением кнопки Выбор объекта .

Таблица 1. Основные  элементы управления и соответствующих кнопок панели элементов.

Элемент управления	Название	Кнопка	Элемент управления	Название	Кнопка
Поле	TextBox		Переключатель	OptionButton
Надпись	Label		Флажок	CheckBox
Кнопка	CommandButton		Рисунок	Image
Список	ListBox		Поле со списком	ComboBox

Таблица 2. Основные общие свойства элементов управления.

Свойство	Описание
Caption	Надпись, отображаемая при элементе управления.
Visible	Допустимые значения: True (элемент управления отображается во время выполнения программы) и False (в противном случае).
Enabled	Допустимые значения: True (пользователь вручную может управлять элементом управления) и False (в противном случае).
Height, Width	Устанавливают геометрические размеры объекта (высоту и ширину).
Left и Top	Устанавливают координаты верхнего левого угла элемента управления, определяющие его местоположение в форме
BackColor, ForeColor, BorderColor	Устанавливают цвет заднего и переднего плана элемента управления, также его границы.
BackStyle	Устанавливает тип заднего фона.
Picture (создание картинки)	Внедряет картинку на элемент управления. Например, на поверхности кнопки картинка отображается с помощью следующей инструкции: CommandButton1. Picture =LoadPicture("с:\my doc\Kpyг.bmp").
Picture (удаление картинки)	После того как картинка создана на элементе управления, иногда возникает необходимость ее удалить. Это легко достигается присвоением свойству Picture значения LoadPicture("") CommandButton1.Picture = LoadPicture("").

После размещения элементов управления на форме необходимо связать объект на форме с кодом.

Задание 1. Создать пользовательскую форму на примере простейшего диалогового окна.

Рисунок 1

Рисунок 2

Ход работы:

1.     Откройте новую рабочую книгу.

2.    Нажмите комбинацию клавиш Alt +F11  для открытия редактора Visual Basic.

3.    Выполнить команду  Insert / UserForm. В редакторе появятся окно с пользовательской формой и панель с элементами управления.

4.    Используя панель инструментов, заполните пользовательскую форму элементами управления, создав требуемое диалоговое окно приложения.

Для этого на форму поместите элементы управления: четыре  кнопки(CommandButton); одно текстовое поле (TextBox).

5.    Используя диалоговое окно Свойства (Properties), отображаемое нажатием кнопки

 , свойство Caption пользовательской формы определить равным Песнь о воробушке и бабочке, а кнопок - равными Первый акт, Второй акт и Третий акт, Спасибо за внимание.

6.    Написать  процедуру  обработки события - нажатие кнопки.

Для написания процедуры обработки события - нажатия кнопки Первый акт, дважды ее щелкнуть. Откроется редактор кода на листе модуля UserForm1.

Введите текст процедуры:

Private Sub CommandButton1_Click()

TextBox1.Text = "Воробышек за бабочкой скок-скок-скок"

End Sub

Для написания процедуры обработки событий - нажатий кнопок Второй акт и Третий акт ввести аналогичные процедуры:

Private Sub CommandButton2_Click()

TextBox1.Text = "Воробышек за бабочкой прыг-прыг-прыг"

End Sub

Private Sub CommandButton3_Click()

TextBox1.Text = "Воробышек бабочку ням-ням-ням"

End Sub

Private Sub CommandButton4_Click()

End

End Sub

7.    Выполнение созданной программы.

Процесс создания диалогового окна и процедур, связанных с ним, завершен. Для выполнения созданной программы нажать кнопку   или выполнить команды меню Run / Run Sub UserForm или нажать функциональную клавишу F5.