Private Sub cmdOK_Click()
txtParol.PasswordChar = "*"
Parol = txtParol.Text 'Присвоение переменной Parol значения,
' введенного в текстовое поле для ввода пароля
Форма для ввода пароля должна выгрузиться
Форма Калькулятор должна загрузиться
End Sub
е) напишите программный код процедуры, которая выполняется при загрузке формы Калькулятор. В процедуре проверяется правильность ввода пароля. Если пароль неверный, программа завершает работу. Вместо пароля " Privet" установите любой собственный пароль:
Private Sub Form_Load()
If frmParol.Parol <> " Privet " Then MsgBox "Пароль невірний!!!", 16, "Помилка": End
End Sub
6. Проверьте правильность работы приложения и сохраните проект впапке ЛАБ7 с именем Лр7_Зад1.
ЗАВДАННЯ НА САМОСТІЙНУ (В) Й ПРАКТИЧНУ РОБОТУ (ВС, ЛС)