VB - Condicion para txt(contraseña)

Cuestiones y dudas acerca de lenguajes de programación diversos.

Moderador: Moderadores

Avatar de Usuario
rAuL V. C

VB - Condicion para txt(contraseña)

Mensaje por rAuL V. C » Jue Mar 20, 2003 6:02 pm

Lo que quiero hacer es que en el txtcontraseña a la tercera vez que uno intenta meter un contraseña que no es.

salga un msgbox indicando "no es la contraseña correcta" y que el form se oculte "Hide"

y tambien quisera saber como poner un contador en un form

Gracias de antemano por sus respuestas

Que Dios les bendiga y no a la GUERRA

Avatar de Usuario
ABCdatos
Administrador foro
Mensajes: 680
Registrado: Dom Mar 03, 2002 1:00 am
Contactar:

Mensaje por ABCdatos » Vie Mar 21, 2003 4:25 am

Tienes que declarar una variable en el entorno del formulario como contador, y cada vez que la comprobación no es correcta, incrementarla.

Si el botón que lanza la comprobación tras rellenar la contraseña se llama cmdContraseña, el código sería:

Dim iContadorErrores as Integer

Private Sub cmdContraseña_Click()
If txtcontraseña.Value<>"contraseña" Then
iContadorErrores = iContadorErrores + 1
If iContadorErrores = 3 Then
Msgbox "no es la contraseña correcta", vbExclamatrion
Me.Hide
' Resto del código cuando se llegó a tres errores.
Else
' Contraseña incorrecta, pero sin llegar al tercer intento.
txtcontraseña.Value = ""
End If
Else
' Código a ejecutar en caso de contraseña Correcta
iContadorErrores = 0
End If
End Sub

Saludos.
Equipo ABCdatos.
http://www.abcdatos.com/

Avatar de Usuario
rAúL

Gracias

Mensaje por rAúL » Vie Mar 21, 2003 9:07 pm

Gracias
ABCdatos escribió:Tienes que declarar una variable en el entorno del formulario como contador, y cada vez que la comprobación no es correcta, incrementarla.

Si el botón que lanza la comprobación tras rellenar la contraseña se llama cmdContraseña, el código sería:

Dim iContadorErrores as Integer

Private Sub cmdContraseña_Click()
If txtcontraseña.Value<>"contraseña" Then
iContadorErrores = iContadorErrores + 1
If iContadorErrores = 3 Then
Msgbox "no es la contraseña correcta", vbExclamatrion
Me.Hide
' Resto del código cuando se llegó a tres errores.
Else
' Contraseña incorrecta, pero sin llegar al tercer intento.
txtcontraseña.Value = ""
End If
Else
' Código a ejecutar en caso de contraseña Correcta
iContadorErrores = 0
End If
End Sub

Saludos.

Responder

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados