End Sub
End Sub
End If
End With
Else
End Sub
End With
3. Дважды щелкните по кнопке cmdOK в форме и введите код для обработки события «Щелчок по кнопке OK»:
Private Sub cmdOK_Click()
Dim Пароль As String
‘Определяем пароль, который должен ввести пользователь:
Пароль = “Student”
If txtПароль.Text = LCase(Пароль) Then
MsgBox “Пароль введен правильно!”
Unload Me
With txtПароль
.Text = Empty
.SetFocus
4. Дважды щелкните по кнопке cmdОтменаи введите код для обработки события «Щелчок по кнопке Отмена»:
Private Sub cmdОтмена_Click()
Unload Me
5. Протестируйте работу программы при правильном и неправильном пароле.
Элемент управления Список создается кнопкой ListBox ( Рис. 12‑11 ). Этот элемент используется для отображения данных, организованных списком. В списке пользователь может выбрать одно или несколько значений.
Рис. 12‑11. Список Группа в форме в режиме конструирования | Рис. 12‑12. Этот же список во время выполнения программы |
Обратите внимание: в режиме конструирования список похож на поле ввода. Во время выполнения программы, если в список не помещаются все его элементы, появляются линейки прокрутки (Рис. 12‑12).
Основными событиями, связанными со списком, является событие Change.