Loading form ¿? (RESOLVED)

[Sanko]

Hi i have 2 forms "form1" and "MdiPrincipal"

In form1 i have a button when the user do a click the form1 must close and show the mdi

Code:

Private Sub CmdAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdAceptar.Click
Dim Mdi As New MdiPrincipal  
Mdi.Show()
'Mdi.Dispose()
Me.close()

but when i click the button it opens the mdi and then automatically closes

if i use

Mdi.ShowDialog(Me)

it opens the Mdi but the form1 is already open

if i use

Me.hide()

the form1 is invisible but is in memory...

I want to close the form1 and open the Mdi

[RobDog888]

You may want to use a Module Sub Main procedure as your startup object. Then in there you can run your
form1 with .ShowDialog. When it gets disposed the next line of code in the sub main will execute. This would be your
mdiprincipal.showdialog.

Option Explicit On 
 
Module Module1
    Public Sub Main()
        Application.Run(New Form1)
        Application.Run(New MdiPrincipal)
    End Sub
End Module

[Shaggy Hiker]

I generally have a construct where there is a perpetual loop in Sub Main. The loop calls a sub which holds a Select statement. For each case, I show a separate form. It looks something like this in Main:

theState=1
do while thestate>0
  Ladder
loop

Sub Ladder looks something like this:

[Highlight=VB]

Sub Ladder()
select case theState

case 1
form1.showdialog
case 2
form2.showdialog
end select
end sub

This means that each form only has to set the theState variable to the next form that should be shown, then it can close. Of course, in this example, the forms are all global instances, but you certainly could make them local to the select case.

[Sanko]

Ok but i have a splash screen wich opens form1 and then i must open the MDI; the estructure looks like

Show splash screen (validations, DB, etc) --> then closes the splash screen and opens ("form1") wich is a Login form if the user is acepted he must click a button which closes the login form and --> open the MDI

Splash --> User Login --> MDI

[RobDog888]

Since your splash form has the validation code in it you can probably organize it like so...

Option Explicit On 
 
Module Module1
    Public Sub Main()
        Application.Run(New frmSplash)
        Application.Run(New Form1)
        Application.Run(New MdiPrincipal)
    End Sub
End Module

[Sanko]

Thanks

RobDog888
Shaggy Hiker

for the tips now i got it working.







Traspasing vb6 -> vb.net