• Viernes 8 de Noviembre de 2024, 12:37

Autor Tema:  Como Ocultar Lo Que Escribo  (Leído 1844 veces)

gervb

  • Nuevo Miembro
  • *
  • Mensajes: 20
    • Ver Perfil
Como Ocultar Lo Que Escribo
« en: Miércoles 14 de Mayo de 2008, 21:18 »
0
Hola a todos tengo hecho un programita de gestion el mismo utiliza varios usuarios ahora yo quisiera ocultar cada vez que escribo la contraseña, con asteriscos como se podria hacer.
Gracias de antemano

cpmario

  • Miembro HIPER activo
  • ****
  • Mensajes: 629
    • Ver Perfil
    • http://www.cpimario.com
Re: Como Ocultar Lo Que Escribo
« Respuesta #1 en: Miércoles 14 de Mayo de 2008, 21:48 »
0
La manera más fácil es usar la propiedad PasswordChar de un TextBox.

O puedes usar un código parecido al siguiente en el evento Keypress de un TextBox

Código: Text
  1.     Dim letters As String
  2.     'Caracteres permitidos en la contraseña
  3.     letters = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzáéíóúüÁÉÍÓÚÜñÑ0123456789"
  4.     If KeyAscii = 8 Then
  5.         If Len(mvarRespuesta) > 0 Then
  6.             'Resta un caracter a la contraseña
  7.             mvarRespuesta = Left(mvarRespuesta, Len(mvarRespuesta) - 1)
  8.         End If
  9.     ElseIf InStr(letters$, Chr$(KeyAscii)) Then
  10.         'Guarda el valor de la contraseña
  11.         mvarRespuesta = mvarRespuesta + Chr$(KeyAscii)
  12.         KeyAscii = 42
  13.     Else
  14.         KeyAscii = 0
  15.     End If
  16.    
  17.     'El Ucase es para no tener que evaluar mayúsculas y minúsculas
  18.     If UCase(mvarRespuesta) = UCase(gstrMainKey) Then
  19.          'Aquí va el código para evaluar la contraseña
  20.     Endif
  21.  
:comp:

gervb

  • Nuevo Miembro
  • *
  • Mensajes: 20
    • Ver Perfil
Re: Como Ocultar Lo Que Escribo
« Respuesta #2 en: Jueves 15 de Mayo de 2008, 01:22 »
0
Gracias cpmario me sirvio mucho el codigo que me diste.