Программа доступна только после регистрации - VB

Формулировка задачи:

На форме существуют две кнопки:одна "Регистрация",другая "Экзамен".Ели нажать на кнопку "Экзамен" ,то в определенном порядке будут появляться несколько InputBox с вопросами(ответил на один вопрос,нажал Ок,появился новый вопрос) .Однако это возможно лишь тогда,когда пользователь прошел регистрацию.А иначе при нажатии кнопки "Экзамен" появляется MsgBox "Сначала пройдите регистрацию".Как добиться такой связи между "регистрацией" и "экзаменом"?Спасибо!

Код к задаче: «Программа доступна только после регистрации - VB»

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

11   голосов, оценка 4.091 из 5


СОХРАНИТЬ ССЫЛКУ