double arrow

Public Parol As String

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.

ЗАВДАННЯ НА САМОСТІЙНУ (В) Й ПРАКТИЧНУ РОБОТУ (ВС, ЛС)


Понравилась статья? Добавь ее в закладку (CTRL+D) и не забудь поделиться с друзьями:  



Сейчас читают про: