Для работы программы достаточно создать на форме labelы с именами p, pFake, Mes.
| Код |
Dim Mask As String
Private Sub Form_Load()
Mask = "#"
Password = "123"
p.Caption = ""
pFake.Caption = ""
Mes.Caption = "Введите пароль {" + Password + "}"
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
If (KeyAscii = 13) Then 'Enter
temp = p.Caption
If (temp = Password) Then
Mes.Caption = "Succes"
Else
Mes.Caption = "Failed"
End If
Else
p.Caption = p.Caption + Chr(KeyAscii)
pFake.Caption = pFake.Caption + Mask
'MsgBox KeyAscii
End If
End Sub
|
Почему когда я ввожу "123" и нажимаю Enter выводится сообщение "Failed". А если я оставлю поле пустым, то "Succes". Ничего не понимаю! |
