VISUAL BASIC 6 como por password com ***

leefalcon18

Power Member
pessoal gostaria de fazer uma password simples como esta

MAS NAO SEI COMO SE mete ******
PAra nao poder ver a password escrita

Dim pass As Integer
pass = InputBox(" Introduza uma password para poder aceder a area do cliente")
If pass = "123" Then
MsgBox "Bem vindo "
Else
MsgBox "password errada"

End If
Area_gerente.Show
 
leefalcon18,

A inputbox não tem a propriedade PasswordChar para colocares um caracter (normalmente o *) para assim cobrires o que inseres. A alternativa é fazeres uma inputbox com um textbox e ai sim colocares * na propriedade PasswordChar.

Espero ter ajudado.

Cumps.
 
Acho que o que ele queria dizer era um Form novo. Fazes um form com um label, uma textbox e uma command button. Na TextBox, fazes o que o Armadillo disse - txtPassword.PasswordChar = "*"
 
Back
Topo