Formularios

"Roberto Ferreira" escribió:

Estoy haciendo una aplicacion en la cual se requiere identificarse primero
mediante un login y un password.. desde alli al verificar que los datos de
la persona son correctos me debe abrir un formulario mdi.. en fin el
problema surge en cuanto a que necesito cerrar el formulario en donde me
piden el login y el password.. cuando abre el formulario MDI debe cerrar
automaticamente el otro, pero no he podido conseguir el codigo que me
permita realizar esa operación. He intentado con fomulario.close() pero
nada...no me lo cierra.

Hola, Roberto:

Puedes optar por hacer que el procedimiento «Sub Main» sea el objeto inicial
de tu aplicación, cargando desde ahí el formulario que deseas utilizar para
identificar al usuario. Una vez que se haya cerrado éste, haces que el
formulario MDI sea el formulario inicial de la aplicación, pasándole dicho
formulario al método «Run» del objeto «Application». Añade un módulo a tu
proyecto e inserta el siguiente código:

Module Module1

Public Sub Main()

Dim frm As New FormLogin
Dim frmMDI As New FormMDI

' Mostramos el formulario de inicio de una
' manera modal
'
frm.ShowDialog()

' Mostramos el formulario MDI
Application.Run(frmMDI)

End Sub

End Module

Un saludo

Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.

Bueno, espera un momento porque me he dado cuenta que he olvidado decirte la
parte más importante. Para que se muestre el formulario MDI, el usuario se
ha tenido que identificar correctamente, por lo que deberás de capturar el
valor devuelto por el formulario inicial (el que hace de Login), haciendo
que éste se muestre como un cuadro de mensajes. El procedimiento «Sub Main»
se quedaría así:

Module Module1

Public Sub Main()

Dim frm As New FormLogin
Dim frmMDI As New FormMDI

' Mostramos el formulario de inicio como un
' cuadro de mensaje
'
If frm.ShowDialog() = DialogResult.OK Then

' Mostramos el formulario MDI
Application.Run(frmMDI)

End If

End Sub

End Module

Lógicamente, el cuadro de diálogo tendrá que devolver un valor
«DialogResult.OK» para que pueda ser verificado por el procedimiento
llamador, el procedimiento «Sub Main». Si por ejemplo, en el formulario
tienes un botón de comando llamado «btnAceptar», una vez comprobado la
identificación del usuario, deberás de incluir la siguiente sentencia:

Me.DialogResult = DialogResult.OK
Me.Close

Si el usuario no se ha identificado, cerrarías el formulario de la siguiente
manera:

Me.DialogResult = DialogResult.Cancel
Me.Close


Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.

Muchisimas gracias.. estoy por probar el codigo que me distes pero de
antemano muchas gracias.. Saludos.
Roberto

Gracias Enrique me funcionó perfectamente..!!