Hola a todos,

Tengo el clásico formulario de Log In con una dirección de correo electrónico y una contraseña para acceder a la aplicación ofimática.

Sin embargo, me gustaría conseguir lo siguiente: Cuando el usuario haga click en el icono del ojo , entones que se le muestre / oculte la contraseña que haya introducido.

Pues bien, eso (más o menos) lo he conseguido con el siguiente código:

Private Sub cbContraseña_Click()
   If tbContraseña.PasswordChar = "*" Then
      tbContraseña.PasswordChar = ""
   Else
      tbContraseña.PasswordChar = "*"
   End If
End Sub

Sin embargo, me gustaría modificar al mismo tiempo el icono del ojo en función de si se encuentra en "estado oculto" o en "estado mostrar".

He probado con el siguiente código, pero me da error "No coinciden los tipos".

Private Sub cbContraseña_Click()
   If tbContraseña.PasswordChar = "*" Then
      cbContraseña.Picture = "C:\Users\jesuspg\Downloads\mostrar.bmp"
      tbContraseña.PasswordChar = ""
   Else
      cbContraseña.Picture = "C:\Users\jesuspg\Downloads\ocultar.bmp"
      tbContraseña.PasswordChar = "*"
   End If
End Sub

Agradecería cualquier apoyo.

Muchas gracias.

Por cierto, algo que no comenté: tbContraseña es el cuadro de texto de la contraseña y, cbContraseña es el botón que muestra u oculta la contraseña. Perdonad.

Sube tu archivo

Hace 14 minutos , JSDJSD dijo:

Sube tu archivo

Ahí tienes el formulario con lo básico (para saber a lo que me refiero)... Y las imágenes también (para que puedas hacer pruebas).

 

Un saludo.

TuArchivo.xlsm ocultar.bmp mostrar.bmp

Private Sub cbContraseña_Click()
   If tbContraseña.PasswordChar = "*" Then
      cbContraseña.Picture = LoadPicture("C:\Users\jesuspg\Downloads\ocultar.bmp")
      tbContraseña.PasswordChar = ""
   Else
      cbContraseña.Picture = LoadPicture("C:\Users\jesuspg\Downloads\mostrar.bmp")
      tbContraseña.PasswordChar = "*"
   End If
End Sub

 

Hace 56 minutos , Antoni dijo:

Private Sub cbContraseña_Click()
   If tbContraseña.PasswordChar = "*" Then
      cbContraseña.Picture = LoadPicture("C:\Users\jesuspg\Downloads\ocultar.bmp")
      tbContraseña.PasswordChar = ""
   Else
      cbContraseña.Picture = LoadPicture("C:\Users\jesuspg\Downloads\mostrar.bmp")
      tbContraseña.PasswordChar = "*"
   End If
End Sub

 

SOLUCIONADO. Ya sabía yo que era una gilipollez que el gran @Antoni iba a resolver en un pis pas... Jajaja. Gracias, genio!

Hace 22 horas, jesuspg dijo:

SOLUCIONADO. Ya sabía yo que era una gilipollez que el gran @Antoni iba a resolver en un pis pas... Jajaja. Gracias, genio!

"En el país de los ciegos el tuerto es el rey" ?