SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Visual Basic para principiantes => Mensaje iniciado por: gervb en Miércoles 14 de Mayo de 2008, 21:18

Título: Como Ocultar Lo Que Escribo
Publicado por: gervb en Miércoles 14 de Mayo de 2008, 21:18
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
Título: Re: Como Ocultar Lo Que Escribo
Publicado por: cpmario en Miércoles 14 de Mayo de 2008, 21:48
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:
Título: Re: Como Ocultar Lo Que Escribo
Publicado por: gervb en Jueves 15 de Mayo de 2008, 01:22
Gracias cpmario me sirvio mucho el codigo que me diste.