DMITRIY_78
Новый пользователь
- Сообщения
- 7
- Реакции
- 0
Смотрите видео ниже, чтобы узнать, как установить наш сайт в качестве веб-приложения на домашнем экране.
Примечание: Эта возможность может быть недоступна в некоторых браузерах.
Private Sub Form_Load() ''====== вход в программу по паролю
...........
ElseIf Password = "1" Then 'проверка правильного значения
Form1.Show
Exit Do
...........
Loop
End Sub
Private Sub CommandButton1_Click()'переходим на форму 2
Unload Form1 'выгружаем форму из памяти
Form2.Show
End Sub
Private Sub CommandButton4_Click() 'вот на этой кнопке и появляется InputBox с паролем
Form1.Show
Unload Form2 'выгружаем форму из памяти
End Sub
Private Sub CommandButton4_Click() 'вот на этой кнопке и появляется InputBox с паролем
Form1.Show
Я не могу объяснить проще, чем это.Заведите где-нибудь глобальную переменную (нужно создать обычный модуль) и там храните состояние успеха ввода пароля.