15/12/2008, 17:51
|
| | Fecha de Ingreso: diciembre-2008
Mensajes: 6
Antigüedad: 15 años, 5 meses Puntos: 0 | |
Respuesta: ¿Cómo cerrar una ventana al acceder a otra? Hola, como andás otra vez XD.
Yo la ventana de log in siempre la hago como un formulario de dialogo.
Entonces deberías:
Crear un nuevo Window Form, "Dialog".
Agregarle dos textbox.
Vas a ver que los botones de OK y Cancel ya vienen O.o
entonces.... create una clase "INICIO" y ponle el siguiente codigo:
Class Inicio
Sub Main()
Dim iuLogIn as new IULogIn
if iuLogIn.showdialog() = DialogResult.OK then
Dim iuMenuPrincipal as new IUMenuPrincipal
iuMenuPrincipal.show
End if
End Sub
Luego... en la clase IULogIn.... pones lo siguiente.....
Class IULogin
Private Sub btnCancel_Click(ByVal sender As Object, ByVal e _
As System.EventArgs) Handles btnCancel.Click
DialogResult = DialogResult.Cancel
End Sub
Private Sub btnOK_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnOK.Click
If txtNombreUS.Text.Length = 0 Then
MessageBox.Show("Debe ingresar algo...")
txtUserName.Focus()
ElseIf validarPassword(txtUserName.Text, _
txtPassword.Text) Then
'En caso de que la pass o el nombre usuario sean invalidos....
MsgBox("Usuario o Pass inválida", _
MsgBoxStyle.Exclamation)
txtUserName.Focus()
Else
'Retorna OK
DialogResult = DialogResult.OK
End If
End Sub
End Class |