Программа доступна только после регистрации - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 4.091 из 5
Похожие ответы