HOW TO USE PASSWORD CHAR IN INPUTBOX?

[vcavusoglu]

HOW TO USE PASSWORD CHAR IN INPUTBOX? OR ALTERNATIVE

 

[SeanGriffin]

Set the PasswordCharacter property equal to the character you want all characters to be displayed as in the text box.

-Sean

 

[JohnYingling]

Add a form called frmPassword. It will show modally.
Put a Public procedure in Form frmPassword.
frmPassword has a label for prompt, a textbox for entry and commands control array of OK and Cancel. Set textbox passwordchar to "*".

code:--------------------------------------------------------------------------------
' in Main Form
strPassword = frmpassword.GetPassword("Enter your password&quot
if Len(strPassword) = 0 then ' no entry
'........
else
'.... password entered
End if

'frmPassword
Option Explicit
Public Function GetPassword(Optional ByVal strPrompt As String = "&quot As String
lblPassword = strPrompt
Me.Show vbModal ' Modal form, waits for Hide, visible=false
GetPassword = txtPassword

Unload Me
End Function
Private Sub cmdOKCancel_Click(Index As Integer)
If cmdOKCancel(1).Value Then ' Cancelled
txtPassword = ""
End If
Me.Hide ' Release modal
End Sub


Private Sub Form_Unload(Cancel As Integer)
Set frmPassword = Nothing ' Release everything
End Sub

http://WWW.VBCompare.Com