Foros del Web

Foros del Web (http://www.forosdelweb.com/)
-   Visual Basic clásico (http://www.forosdelweb.com/f69/)
-   -   Hacer password (http://www.forosdelweb.com/f69/hacer-password-318912/)

crucifijo 22/07/2005 08:12

Hacer password
 
Hola amigos experots fijense que estoy haciendo un password muy sencillo pero tengo un prbolema para emezar

Tengo una etiqueta con el titulo password una caja de texto donde digito el password la caja del texto se llama text1.

Dos botones un de aceptar y el otro cancelar, el boton aceptar se llama Command1 y el boton cancelar se llama Command2, toda la programacion la hice en el boton aceptar y esto es lo que puse como programacion:

Private Sub Command1_Click()
If Text1.Text = 123 Then
Form2.Show
Form1.Hide
Else
MsgBox ("Clave incorrecta")
End If
End Sub

La duda es que tengo que cuando corre el programita si digito un numero diferente a 123 me manda el mensaje ("Clave incorrecta") y si lo digito bien me pasa a la otra forma, pero si dejo en blanco o no digito nada me manda un error y el debug.

Quisiera saber si ustedes me pueden decir como hacer para que cuando la caja de texto este en blanco o no se le digite nada me mande el mensaje ("Clave incorrecta") o de que otra forma lo puedo hacer se los agradeceria muchisimo si me hechan la mano.

hmtech 22/07/2005 08:32

hola:

pudes intentar:

if txtpassword <> "123"
msgbox "Clave incorrecta", VBOkOnly ,"Error"
txtpassword.text = ""
else
form2.show
form1.hide

end if

recuerda la comillas para que tome la contrasena como string.

saludos hmtect

xochitemol 23/07/2005 10:03

Otra respuesta
 
lo que yo te recomiendo es que primero elimines los espacios en blanco de la cadena aqui te paso un poco de ejemplo.

if (text1.text = trim(variable)) then
empieza tu programay ahora otra cosa en lugar de usar form.hide te recomiendo usar unload para eliominar memoria despues de usar el form
exit sub
else
msgbox(" Contraeña invalida")
exit sub
end if

espero que quepas para que sirve el EXIT SUB si no lo sabes es para salir de ese proceso y que no ejecute lo demas.


La zona horaria es GMT -6. Ahora son las 21:16.

Desarrollado por vBulletin® Versión 3.8.7
Derechos de Autor ©2000 - 2014, Jelsoft Enterprises Ltd.

SEO by vBSEO 3.3.2