Mostrar Formlario MDI

01/06/2005 - 20:05 por J o H n U s \(PE\) | Informe spam
Hola amigos tengo una consulta sobre a la hora de mostrar un formulario MDI,
principal lo que tengo es que cuando inicio el sistema me muestra un
pantalla de seguridad donde el usuario ingresa sus datos y si es OK,
entonces me muestra el formulario principal el mdi, pero ahora k lo muestro
el otro formulario aparece y nose oculta cuando lo oculta se cierra la
aplicacion aqui tengo algo de mi codigo.
desde un sub main hago k carge el el de ingreso de seguridad..

desde el modulo ago k muestre el formulario de login
SuB Main()

Application.Run(New FrmUser)

end Sub

IF (validacion)
MessageBox.Show("Ingreso al Sistema .NET")

'Aqui implementar para lo demas del formulario.

Dim MiForm1 As New Form1 (MI MDI)

MiForm1.Show()

Dr.Close()

Me.Close() (mi formulario anterior,de login) aca se cierra la aplicacion..

ELSE

mas codigooo

END IF

alguna solucion.. porfavor no se que pueda ser

Preguntas similare

Leer las respuestas

#1 J. Carlos Herrrero
01/06/2005 - 20:45 | Informe spam
Hola:
Prueba esto:

Module Inicio
Public Sub Main()
Dim lofrmInicial As New frmInicial
lofrmInicial.ShowDialog() 'Form para el login
Dim Resultado As DialogResult
Resultado = lofrmInicial.DialogResult
If Resultado = DialogResult.OK Then
Dim loPrincipal As New frmPrincipal
Application.Run(loPrincipal) 'Form MDI
End If
End Sub
End Module

Espero que te sirva
Un saludo desde Bilbo:
Carlos

"J o H n U s (PE)" escribió en el mensaje
news:
Hola amigos tengo una consulta sobre a la hora de mostrar un formulario
MDI,
principal lo que tengo es que cuando inicio el sistema me muestra un
pantalla de seguridad donde el usuario ingresa sus datos y si es OK,
entonces me muestra el formulario principal el mdi, pero ahora k lo
muestro
el otro formulario aparece y nose oculta cuando lo oculta se cierra la
aplicacion aqui tengo algo de mi codigo.
desde un sub main hago k carge el el de ingreso de seguridad..

desde el modulo ago k muestre el formulario de login
SuB Main()

Application.Run(New FrmUser)

end Sub

IF (validacion)
MessageBox.Show("Ingreso al Sistema .NET")

'Aqui implementar para lo demas del formulario.

Dim MiForm1 As New Form1 (MI MDI)

MiForm1.Show()

Dr.Close()

Me.Close() (mi formulario anterior,de login) aca se cierra la aplicacion..

ELSE

mas codigooo

END IF

alguna solucion.. porfavor no se que pueda ser


Respuesta Responder a este mensaje
#2 Tristan
01/06/2005 - 23:31 | Informe spam
O lo que es lo mismo:

Class TuForm
...
Public Shared Sub Main()
Dim fUser As New FrmUser
if fUser.ShowDialog() = DialogResult.OK Then
Application.Run(New frmPrincipal)
End If
End Sub

Más que nada para mostrar que no es necesario un módulo. El método Main
puede escribirse en la clase del formulario, con tal de que sea Shared.

Pero es que además soy una fanático de la simplificacion. No puedo evitarlo
;-)


Juan Carlos Badiola
MVP - C#
Respuesta Responder a este mensaje
#3 J o H n U s \(PE\)
02/06/2005 - 17:24 | Informe spam
Hola que tal, gracias por las repuestas, lo que pasa, ahora es que mestra el
formulario de Login con 2 Botones Aceptar y Cancelar, cuando lo hice que
carge del sub Main, todo bien, pero no llega al DialogResult.Ok, cuando hago
el seguimiento paso a paso, en la validadcion el usuario y la contraseña son
correctas ahi deberia pasar al MDI, pero no ingresa se queda siempre el
Login a la vista pero cuando doy cancelar recien va a la parte del
"DialogResult.Cancel" y o en Ok no se cual sea el problema..


"Tristan" escribió en el mensaje
news:%
O lo que es lo mismo:

Class TuForm
...
Public Shared Sub Main()
Dim fUser As New FrmUser
if fUser.ShowDialog() = DialogResult.OK Then
Application.Run(New frmPrincipal)
End If
End Sub

Más que nada para mostrar que no es necesario un módulo. El método Main
puede escribirse en la clase del formulario, con tal de que sea Shared.

Pero es que además soy una fanático de la simplificacion. No puedo


evitarlo
;-)


Juan Carlos Badiola
MVP - C#


Respuesta Responder a este mensaje
#4 J. Carlos Herrrero
02/06/2005 - 21:25 | Informe spam
Hola:
Prueba esto:

En el Form Inicial tienes que tener

Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnAceptar.Click
' tu codigo
'Si tus validaciones son buenas
Me.DialogResult = DialogResult.OK
Me.Close()
Me.Dispose()
End Sub

Private Sub btnCancelar_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnCancelar.Click
Me.DialogResult = DialogResult.Cancel
End Sub

Espero que te sirva
Un saludo desde Bilbo:
Carlos

"J o H n U s (PE)" escribió en el mensaje
news:e$
Hola que tal, gracias por las repuestas, lo que pasa, ahora es que mestra
el
formulario de Login con 2 Botones Aceptar y Cancelar, cuando lo hice que
carge del sub Main, todo bien, pero no llega al DialogResult.Ok, cuando
hago
el seguimiento paso a paso, en la validadcion el usuario y la contraseña
son
correctas ahi deberia pasar al MDI, pero no ingresa se queda siempre el
Login a la vista pero cuando doy cancelar recien va a la parte del
"DialogResult.Cancel" y o en Ok no se cual sea el problema..
Respuesta Responder a este mensaje
#5 Tristan
02/06/2005 - 21:58 | Informe spam
En general en los cuadros de diálogo, debes establecer en el botón de
Aceptar la propiedad DialogResult a OK y el botón de Cancelar con valor de
Cancel. Esa propiedad es justo lo que devuelve ShowDialog().

También puedes devolverlo por código tal y como te ha dicho J Carlos.

Juan Carlos Badiola
MVP - C#
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida