Ключевое слово 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