• Home
 · 
• String Manipulation
 · 
• Simple secure password textbox example. Use a locked Textbox control as a password Textbox that see

Simple secure password textbox example. Use a locked Textbox control as a password Textbox that see

Simple secure password textbox example. Use a locked Textbox control as a password Textbox that seems to accept typed user input without

Rate Simple secure password textbox example. Use a locked Textbox control as a password Textbox that see

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'
'   Code by Wade Reynolds, 2000
'
'   "Password Textbox That Does Not Store The Password"
'
'   Create a new project with a form,
'   textbox (Text1), and a label (Label1).
'
'   (Label1 exists only to show you what is in strPassword.)
'
'   Copy and paste the following code into Form1's
'   code window.
'
'   Enjoy!
'



Dim strPassword As String 'Stores the password typed into the locked textbox

Private Sub Form_Load()
    Text1.Locked = True 'The control is locked, but we can still set focus and 'type' into it.
    Text1.PasswordChar = "*" 'Sets the textbox as a password box using * as the mask character
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case Is = vbKeyBack
            If Text1.Text = "" Then 'If nothing in Text1 (or in strPassword), ignore the backspace subroutine
              Else
                strPassword = Left(strPassword, (Len(strPassword) - 1)) 'Erase the last character from strPassword
                Text1.Text = Left(Text1.Text, (Len(Text1.Text) - 1)) 'Erase the last 'character' from Text1
                Label1.Caption = strPassword 'Update Label1
            End If
        Case 9 To 47, 112 To 127
        
        Case Else
            Text1.Text = Text1.Text & Text1.PasswordChar 'Add a 'character' into Text1.Text
            strPassword = strPassword & Chr(KeyCode) 'Add the new character to strPassword
            Label1.Caption = strPassword 'Update Label1
    End Select
End Sub