Real mask you password

This code mask symbol in TextBox. Nobody (unmask-programm) cant show you password. Four line of code protect you programm.

Original Author: Vitaliy Bykov

Code

'Place at Form TextBox.
'General Declarations
Dim pswd As String
'
Private Sub Text1_KeyPress(KeyAscii As Integer)
  pswd = pswd + Chr(KeyAscii)
  KeyAscii = Asc("*")
End Sub
'You can replace string KeyAscii = Asc("*") to
'KeyAscii = 0 and TextBox is no symbols "*"


About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 82 times

Categories

Visual Basic 6

Attachments

No attachments for this post

Comments

No comments have been added for this post.

You must be logged in to make a comment.