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