Buenas.. Saludos a los del Foro
Tengo una pequña solucion a como cerrar un formulario para abrir otro:
1) En un modulo realice 2 procedimientos uno para abrir Llamado "Public Sub Main()" y otro para Abrir el formulario Menu llamado AbrirFormularioMenu, les dejo el codigo para que lo analicen
2) es importante que en las propiedades del Proyecto coloquen como formulario inicial el procedimiento Sub Main.
- Esto se hace haciendo clic derecho al proyecto con el que se esta trabajado, esto es en Explorador de Soluciones.
- En la pestaña aplicacion Selecciona como objeto inicial Sub Main.
- Con esto deberias solucionar el problema..
Dejo Mi correo para cualquier pregunta o sugerencia
tonylmedina@hotmail.comEste es el Modulo
----------------------------------------------------------------------------------------------------
Module ModuleAbrirSistema
Public Sub Main()
Dim f As Form
f = New Form1
f.ShowDialog()
End Sub
Public Sub AbrirFormularioMenu(ByVal Autenticacion As Boolean)
If Autenticacion = True Then
Dim f As Form
f = New Form2
f.ShowDialog()
End If
End Sub
End Module
----------------------------------------------------------------------------------------------------
Ahora el formulario que se abre primero se llama Form1 y tiene el siguiente codigo
----------------------------------------------------------------------------------------------------
Public Class Form1
Private Sub BtnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCancelar.Click
Me.Close()
End Sub
Private Sub BtnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAceptar.Click
If textUsuario="Nombre_Usuario" And textPass="Password" Then
Me.Dispose()
'Este es un procedimento que esta en el codigo del Modulo anterior
AbrirFormularioMenu(True)
Else
MsgBox("Usuario o Contraseña Incorrecta")
End If
End Sub
End Class
----------------------------------------------------------------------------------------------------