End Sub. 1. При создании формы присвойте следующие имена элементам управления

End With

Начальные условия

1. При создании формы присвойте следующие имена элементам управления:

– кнопке ОК – cmdOK;

– кнопке Отмена – cmdОтмена;

– полю ввода – txtПароль;

2. Саму форму назовите frmПароль.

Выполнение задания:

1. В редакторе VBA создайте форму, представленную на рис.12.10.

Надписи на кнопках ОК и Отмена задайте в окне свойств этих кнопок.

2. В модуле формы наберите код инициализации формы. Для этого дважды щелкните по форме (на экране появится пустая процедураPrivate SubUserForm_Click()), в списке процедур выберите процедуру Initialize, а затем введите код:

Private Sub UserForm_Initialize()

cmdOK.Default = True

cmdОтмена.Cancel = True

With txtПароль

.PasswordChar = "*"

. MaxLength = 7

3. Дважды щелкните по кнопке cmdOK в форме и введите код для обработки события «Щелчок по кнопке OK»:

Рис. 12.10. Конструирование формы Пароль

Private Sub cmdOK_Click()

Dim Пароль As String

'Определяем пароль, который должен _

ввести пользователь:

Пароль = " Student "

If txtПароль.Text = LCase(Пароль) Then

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

Unload Me