Visual Basic - contraseña, ayuda porfa??

Life is soft - evento anual de software empresarial
 
Vista:

contraseña, ayuda porfa??

Publicado por felo (1 intervención) el 24/04/2006 06:09:18
hola a todos

mi pregunta es como puedo hacer por codigo, que al teclear cualquier cosa en un textbox salga un asterisco, se que puedo poner en la propiedades del textbox passwd un * y ya resuelvo, no es que me quiera complicar, solo que esto lo estoy diseñando en access y el textbox no tiene esa propiedad, y si le pongo en la mascara de entrada el *, solo podre poner una clave de longitud acorde a la mascara de entrada, en fin si alguien sabe como hacer esto por codigo, se los agradeceria, muchas gracias, salu2s
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:contraseña, ayuda porfa??

Publicado por Nicolas (97 intervenciones) el 24/04/2006 08:40:15
En el evento KeyPress según se vaya escribiendo, sustituyes la tecla pulsada por el KeyAscii 42.
Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:contraseña, ayuda porfa??

Publicado por Public (10 intervenciones) el 24/04/2006 09:56:06
Prueba en el eveno keypress a ir cambiando la máscara. aumentandola o disminuyendola en función de que vaya añadiendo o suprimiendo caracteres.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

gracias nicolas, gracias public

Publicado por felo (4 intervenciones) el 24/04/2006 15:23:41
gracias por la ayuda.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

intente pero nose como hacerlo

Publicado por felo (4 intervenciones) el 24/04/2006 22:56:03
hola perdona que los moleste otra vez, me puedes dar un ejemplo de como puedo poner el codigo, para hacerlo, gracias, saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:intente pero nose como hacerlo

Publicado por Nicolas (97 intervenciones) el 25/04/2006 09:36:03
Ahí va el ejemplo:
Private Sub Text1_KeyPress(KeyAscii As Integer)
Static s As String
If KeyAscii = 13 Then ' Enter, pasamos al siguiente control
KeyAscii = 0
MsgBox "La contraseña es " & s ' esto es sólo para el ejemplo
' aquí se comprobaría si la contraseña es correcta
SendKeys "{TAB}"
Exit Sub
End If
If KeyAscii = 8 Then ' tecla retroceso
If Len(s) > 0 Then
s = Left(s, Len(s) - 1)
Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
' posicionamos el cursor al final
Text1.SelStart = Len(Text1)
End If
KeyAscii = 0
Else
s = s & Chr(KeyAscii)
KeyAscii = 42 ' sustituimos la tecla pulsada por "*"
End If
End Sub
Espero que te sirva, Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar