Элементы управления

е)Панель элементов

Панель элементов содержит элементы, которые можно поместить в форме:

· Выбор объектов (Select Objects)

· Надпись (Label)

· Поле (TextBox)

· Поле со списком (ComboBox)

· Список (ListBox)

· Флажок (CheckBox)

· Переключатель (OptionButton)

· Выключатель (ToggleButton)

· Рамка (Flame)

· Кнопка(CommandButton)

· Набор вкладок (TabStrip)

· Набор страниц (MultiPage)

· Полоса прокрутки (ScrollBar)

· Счетчик (SpinButton)

· Рисунок (Image)

· Редактор ссылок (RefEdit)

Элементы управления могут быть добавлены на панель элементов или удалены с нее. Для добавления элементов надо выполнить команды меню Сервис-Дополнительные элементы (Tools-Additional Controls) и установить флажок для нужных элементов.

1. Элемент Надпись (Label) добавляет в форму текст сообщений и заголовков. В свойстве Caption задать необходимую надпись: Caption= «Фамилия»

Свойство ForeColor определяет цвет, а Font устанавливает шрифт.

2. Элемент Поле (TextBox) – предназначен для ввода и отображения данных. Для отображения и ввода пользователем данных используются свойства Text и Value. Они содержат введенную пользователем информацию.

Если объект связан с ячейкой рабочего листа с помощью свойства ControlSource, то он всегда отображает содержимое только этой ячейки.

Для связи объекта с ячейкой используется оператор: TextBox1.Text=<ссылка на ячейку> или

TextBox1.Value=<ссылка на ячейку>

Например, TextBox1.Text=Sheets(«Лист1»).Cells(4,5)

Для присвоения ячейке значения из поля применяется оператор вида

=<ссылка на ячейку>.Value= TextBox1.Value

Например, Cells(3,7).Value=TextBox3.Value

3. Элемент Кнопка (CommandButton) – используется для выполнения операций. Каждой кнопке назначается процедура, которая выполняется при щелчке мыши по кнопке, вызывающем события Click или DblClick.

Пример, для перемножения чисел создадим программный код по событию Change объекта TextBox2 (или по событию Click объекта CommandButton):

Private Sub B_Change()

TextBox3.Value = TextBox2.Value * TextBox1.Value

End Sub

Private Sub B_Change()

P = A * B

End Sub

Private Sub CommandButton1_Click()

P = A * B

End Sub

Чтобы при нажатии кнопки, кроме перемножения, помещался результат в ячейку листа запишем программный код для кнопки CommandButton1 события Click:

Private Sub CommandButton1_Click()

P.Value = A.Value * B.Value

Sheets("Товар").Cells(30, 1).Value = P.Value

Дата добавления: 2014-01-13