Программа доступна только после регистрации - VB
Формулировка задачи:
На форме существуют две кнопки:одна "Регистрация",другая "Экзамен".Ели нажать на кнопку "Экзамен" ,то в определенном порядке будут появляться несколько InputBox с вопросами(ответил на один вопрос,нажал Ок,появился новый вопрос) .Однако это возможно лишь тогда,когда пользователь прошел регистрацию.А иначе при нажатии кнопки "Экзамен" появляется MsgBox "Сначала пройдите регистрацию".Как добиться такой связи между "регистрацией" и "экзаменом"?Спасибо!
Решение задачи: «Программа доступна только после регистрации»
textual
Листинг программы
Dim Login As String
Private Sub Command1_Click()
Login = InputBox("Введите фамилию и имя", "Регистрация")
If len(trim(login)) = 0 Then
MsgBox "Неверные данные", vbInformation + vbOKOnly, "Внимание!"
Else
MsgBox Login & ". Регистрация успешно завершена", vbInformation + vbOKOnly, "Конец регистрации"
End If
End Sub
Private Sub Command2_Click()
If len(trim(login)) = 0 Then
MsgBox "Сначала пройдите регистрацию!!!", vbInformation + vbOKOnly, "Внимание!"
Else
Rem 'Начинаем экзамен
End If
End Sub