ocultar un form vb

[Sai-To]

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!

[CesarTkgo69]

Ola viejito,
Se me imagina que es esto:

Código (vb) [Seleccionar] Expandir


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 
Chauuuuz

[nhaalclkiemr]

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:

Código (vb) [Seleccionar] Expandir

Set Form2 = Nothing

Saludos

[klaususkun]

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)

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!

[NadiceJMA]

yo utilizo este

Código [Seleccionar] Expandir


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

[marrion]

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

[Syddhartha]

Hola, quiero aportar mi manera, principalmente lo haria con una conexion SQL (si quieren explico como) con pass... pero bueno aca tenes una opcion....

Código [Seleccionar] Expandir

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.

[vivachapas]

Código [Seleccionar] Expandir

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

[CamaleonB]

Para sacar eso no se necesita fuerza bruta.....Con el w32asm no te da un respiro

salu2

[vivachapas]

jaja no es verdad... hay q encriptarlo y todo eso q ya se hablo en otro tema xD

SALUDOS