Встроенные элементы управления VBA

Т.к. встроенные элементы управления VBA являются объектами, то они обладают набором свойств и методов, а также событиями, на которые они могут реагировать. Рассмотрим общие свойства элементов управления:

1. Name – имя элемента управления, которое используется для доступа к нему в программном коде.
2. Caption- возвращает или устанавливает надпись, отображаемую при элементе управления
3. Visible- логическое свойство, которое определяет, надо ли отображать элемент управления во время выполнения программы.
4. Enabled- логическое свойство, которое определяет, достижим ли для пользователя элемент управления во время выполнения программы.
5. Height и Width- возвращает или устанавливает геометрические размеры элемента управления
6. СontrolTipText- возвращает или устанавливает текст в окне всплывающей подсказки, связанной с элементом управления

Рассмотрим элементы управления.

А) Элемент Кнопка (CommandButton)

Используется для инициирования выполнения некоторых действий, вызываемых при нажатии на кнопку. Основным событием является событие Click.

B) Элемент Поле (TextBox)

Используется для ввода текста пользователем , который в последующем используется в программе , или для ввода в него результатов расчетов программы . Основным событием является событие Change. Кроме вышеперечисленных общих свойств для элементов управления обладает также другими свойствами:

Text- возвращает текст, содержащийся в поле

Multiline- параметр, принимающий логические значения, который устанавливает многострочный режим ввода текста в поле.

PasswordChar –устанавливает символ, отображаемый при вводе пароля

С) Элемент Надпись (Label)

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

D) Элемент Переключатель (OptionButton)

Позволяет выбрать одну из нескольких взаимоисключающих альтернатив. Обычно эти элементы управления отображаются группами при помощи элемента управления Рамка. Основными событиями являются события Click и Change. Свойство Value возвращает True , если переключатель выбран и False - в противном случае.

Е) Элемент Флажок (CheckBox)

Представляет пользователю возможность выбора. Свойства и события идентичны элементу управления OptionButton

F) Элемент Счетчик (SpinButton)

Применяется для установки числового значения. Его основные свойства:

1.Value-возвращает или устанавливает текущее числовое значение

2. Min- минимальное числовое значение

3. Max- максимальное числовое значение

Scrollchange- Устанавливает шаг изменения при щелчке на одной из стрелок элемента

G) Элемент Поле со списком (Combobox)

Применяется для хранения списка значений. Основное событие-Change

Основные свойства:

ListIndex-возвращает номер выбранного элемента списка. Нумерация элементов начинается с нуля. Если ни один элемент из списка не выбран, возвращает значение –1.

ListCount-возвращает число элементов списка

Заполняют элементы списка при инициализации формы, где расположен элемент Combobox.

Заполнить список можно одним из следующих способов:

Поэлементно с помощью метода AddItem. Например:

With ComboBox1

. AddItem “Июнь”

. AddItem “Июль”

. AddItem “Август”

Еnd With

Либо массивом, используя свойство List:

ComboBox1.List=Array(“Июнь”,”Июль”,”Август”)

Задание 2.

Рассмотрим пример простого приложения ввода пароля. Для скрытия вводимой информации вместо вводимого литера в поле ввода будет отображаться звездочка. При правильном вводе пароля нажатие кнопки ОК приведет к отображению сообщения (см. рисунок ниже). При некорректном вводе пароля нажатие кнопки ОКприведет к очистке поля ввода. Итак, создайте форму с кнопкой (свойство Name которой установите равным cmdOK) и полем ввода (свойство Name которой установите равным txtPassword). В модуле формы наберите следующий код:

Sub UserForm_Initialize ()

' В этой процедуре устанавливаем значения некоторых свойств

' формы и ее элементов управления

Caption = " Ввод пароля"

cmdOK.Caption = "OK"

With txtPassword

.PasswordChar = "*"

. MaxLength = 6

End With

End Sub

Sub cmdOK_Click ()

' Эта процедура вызывается при нажатии кнопки OK формы

Dim Пароль As String

Пароль = "Привет"

If txtPassword. Text = Пароль Then

MsgBox ("Пароль введен правильно")

Unload Me

Else

txtPassword.Text = Empty

End If

End Sub

Поиск по сайту: