saludos gente y disculpen pero bueno esta es mi pregunta si yo muestro un form de una aplicacion y rse form pide una clave y si lan tienes buena, lan clave, se aparezca el otro form.
Ahora como hago para cerrar o esconder el primer form, el que pide lan clave???
Disculpen que los moleste!
Ola viejito,
Se me imagina que es esto:
Private Sub Command1_Click()
if txtUser = "blablaAdmin" And txtPass = "blablaPass" then
' Se ingreso bien el usuario y contraseña entonces
Form2.Show
Me.Hide ' O !creo¡ que funciona con: Unload Me
Else ' Si no se cumple entonces
msgbox "Usuario o Contraseña Invalidos",,"Error"
End Sub
Espero que sea eso ;D
Chauuuuz
Pues ya te pusieron la respuesta...
Ahora como comentario solo decir que si quieres descargar el formulario completamente de memoria despues de ocultarlo tienes que poner:
Set Form2 = Nothing
Saludos ;)
yo utilizaba envez de me.hide "el nombre del form".hide justo despues de hacer el show del otro form. claro k esto era en el VBA (visual basic para aplicaciones en concreto word xD)
Citar
Private Sub Command1_Click()
if txtUser = "Admin" And txtPass = "Admin" then
' Se ingreso bien el usuario y contraseña
Form2.Show
Form1.Hide
' Si no se cumple entonces
msgbox "Usuario o Contraseña Invalidos",,"Error"
End Sub
Suponiendo que el form1 es el actual y el form2 el que queremos mostrar si es correcto!
yo utilizo este
Private Sub Command1_Click()
if txtUser = "Admin" And txtPass = "Admin" then
' comprueba los datos
Form2.Show
unload me //sabien que form1 o el form dnd estas es el que pide la clave
' de lo contrario
msgbox "Usuario o Contraseña no son correctas",,"Incorrecto"
End Sub
aunque parece que mejor en tu kso usa el form1.hide
bueno aun que ya hay respuestas yo tb añadiré mi granito!! otra forme es:
Me.hide
ya Me se refiere al mismo formulario
saludos
;D
Hola, quiero aportar mi manera, principalmente lo haria con una conexion SQL (si quieren explico como) con pass... pero bueno aca tenes una opcion....
Public Sub Command1_Click()
If Text1.Text = "(contraseña)" Then
Form1.Visible = False
Else
MsgBox "Error, contraseña incorrecta", vbCritical, "Error"
End If
End Sub
Chau . Suerte con tu programa.
PD:¿ Por que ponen nombre de usuario, si lo va a uar el ? Bueno en caso de que me equivoque, disculpadme.
Private Sub Command1_Click()
If Text1.Text = "la contraseña" Then
Unload Me
Form2.Show
Else
MsgBox "La contraseña es incorrecta", vbCritical
End
End If
End Sub
muchos codes... con eso basta... aparte lo cierra si esta mal.. eso sirve para evitar los generadores de fuerza bruta... (algo de ellos xD xq si abren el programa x cada intento ya nos cago la proteccion xD)
SALUDOS
Para sacar eso no se necesita fuerza bruta.....Con el w32asm no te da un respiro
salu2
jaja no es verdad... hay q encriptarlo y todo eso q ya se hablo en otro tema xD
SALUDOS
Disculpame pero tu codigo
Private Sub Command1_Click()
If Text1.Text = "la contraseña" Then
Unload Me
Form2.Show
Else
MsgBox "La contraseña es incorrecta", vbCritical
End
End If
End Sub
Me parece (No quiero decir que lo este) esta mal. Si la contraseña es igual a "la contraseña" (o sea la correcta) ¿cierra el programa?.En ese orden no llega mostrar el formulario 2 porque ya cerraste antes de que termine de ejecutar el codigo. Creo que seria haci:
Private Sub Command1_Click()
If Text1.Text = "la contraseña" Then
Form2.Show
Unload Me
Else
MsgBox "La contraseña es incorrecta", vbCritical
End
End If
End Sub
Si me equivoco disculpame. Chau suerte
CitarMe parece (No quiero decir que lo este) esta mal. Si la contraseña es igual a "la contraseña" (o sea la correcta) ¿cierra el programa?.En ese orden no llega mostrar el formulario 2 porque ya cerraste antes de que termine de ejecutar el codigo.
Disculpa que te corriga, pero estas equivocado, el programa nunca se cierra, solo el form1 luego se ejecuta la siguiente instrucción mostrando el form2, ¡pruebalo y veras!
De todas formas, tambien podrias cerrar el form1 despues de cargar el form2 y desde alla, ejemplo:
En el form1:
Private Sub Command1_Click()
If Text1.Text = "la contraseña" Then
Form2.Show
Else
MsgBox "La contraseña es incorrecta", vbCritical
End If
End SubY en el form2:
Private Sub Form_Load()
Unload Form1
End Sub
Pd: Ya con tantas soluciones, ¡creo que el tio capto la seña!
¡S4lu2!
Gracias por la correcion, parece que posteo la pregunta y no aparecio mas, en fin por si otro necesita ocultar su form....
lo que te puedo decir es que lo malo de este tipo de contraseña es que es insegura porque puedes abrir el ejecutable osea el archivo .exe en un bloc de notas, y con pasiciencia encuentras la contraseña entre todo el code, incluso si no me equivoco puedes buscar por ejemplo text1.text y quizas hay este tu pass pero es seguro que la encuentras, asi que mejor encrptala de alguna manera