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

Ключевое слово Me

В программном коде часто используется ключевое слово Me, которое возвращает имя активного окна.

Вместо программного кода

Private Sub UserForm_Click()

UserForm1.BackColor = vbRed

End Sub

Можно написать

Private Sub UserForm_Click()

Me.BackColor = vbRed

End Sub

Примеры:

Пример 1

Используются две формы UserForm1 UserForm2

Ø Создать UserForm1

Ø Вызвать обработчик Activate для UserForm1

Private Sub UserForm_Activate()

UserForm1.Caption = "Щелкните по мне"

End Sub

Ø Создать UserForm2

Ø Вызвать обработчик события Click для UserForm1

Private Sub UserForm_Click()

Load UserForm2

UserForm2.StartUpPosition = 3

UserForm2.Show

End Sub

Ø Событие Deactivate для UserForm1

Private Sub UserForm_Deactivate()

UserForm1.Caption = "Я потеряла фокус"

UserForm2.Caption = "Фокус перешел от UserForm1 ко мне"

End Sub

Пример 2

Предполагается наличие двух форм UserForm1 UserForm2

В событии Initialize формы UserForm1 загружается и отображается форма UserForm2

Когда пользователь щелкает мышкой на UserForm2 она скрывается и отображается форма UserForm1

При щелчке на UserForm1форма UserForm2 отображается снова

Событие Initialize для UserForm1

Private Sub UserForm_Initialize()

Load UserForm2

UserForm2.Show

End Sub

Событие Click для UserForm2

Private Sub UserForm_Click()

UserForm2.Hide

End Sub

Событие Click для UserForm1

Private Sub UserForm_Click()

UserForm2.Show

End Sub

Приводим список основных элементов управления и соответствующих кнопок панели элементов.

Таблица – Элементы управления

Элемент управления	Имя	Кнопка для создания элемента
Надпись	Label
Поле	TextBox
Кнопка	CommandButton
Флажок	CheckBox
Переключатель	OptonButton
Выключатель	ToggleButton
Полоса прокрутки	ScroolBar
Счётчик	Spin Button
Рисунок	Image
Список	ListBox
Поле со списком	ComboBox
Рамка	Frame
Вкладки	MultiPage
Ярлыки	TabStrip

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