Проверка вводимого пароля - VB

Узнай цену своей работы

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

Есть код для открытия файла после ввода пароля. При неправильном пароле программа работает правильно, а при правильном пароле говорить что ошибка. Как быть?

Решение задачи: «Проверка вводимого пароля»

textual
Листинг программы
Private Sub mnuFileOpen_Click()
Dim Pwd As String, Opn As String
Pwd = 'password'
Opn = InputBox('Введите пожалуйста пароль для открытия документа!', , 'Ввод пароля')
If Opn = Pwd Then
CommonDialog1.ShowOpen
RichTextBox1.LoadFile CommonDialog1.FileName
Else
MsgBox 'Вы ввели неправильный пароль', , 'Информация'
End If
End Sub

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


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

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

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