Программа доступна только после регистрации - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д