[RESOLVED] [2005] Closing previous form

[wence]

I need to close a previous form, and open a new form2. This code helps in opening new form but fails to close the old form. Besides, is there a way to use function in form1 at form2? for example, i need to display what hav been selected at the combobox(form1) at form 2.

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
     
 
        Form2.ShowDialog()
        Me.Close()
End Sub

[shakti5385]

check this code

Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
Private Declare Function PostMessage Lib "user32.dll" Alias "PostMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim objType As Type() = Reflection.Assembly.GetExecutingAssembly.GetTypes()
        Dim x As Integer, i As Integer
        Try
            For x = LBound(objType) To UBound(objType)
                If Not objType(x).Name = Me.Name Then '/// make sure you dont unload this form yet.
                    i = FindWindow(vbNullString, objType(x).Name)
                    If Not i = 0 Then
                        PostMessage(i, CInt(&H10), vbNullString, vbNullString)
                    End If
                End If
            Next
        Catch ex As Exception
            MessageBox.Show("Oops, the following error occured:" & ex.Message)
        Finally
            MyBase.Close() '/// now that all the other forms are closed , unload this one.
        End Try
    End Sub

[wence]

The name is where i put the name of current form, or form to be opened?

[sparrow1]

I need to close a previous form, and open a new form2. This code helps in opening new form but fails to close the old form. Besides, is there a way to use function in form1 at form2? for example, i need to display what hav been selected at the combobox(form1) at form 2.

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
     
 
        Form2.ShowDialog()
        Me.Close()
End Sub

Hi,

You can try this:

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
     
 
        Form2.ShowDialog()
        Form1.Hide()
End Sub

However If you close form1 (startup form) then it will close the hole application, but when you want to close another form, for example Form 3 then you can use Form3.Close.

Hope it helps,

sparrow1

[wence]

Sparrow1, i type form1.hide, it got arrow, when i change it to me.hide, form 1 doesnt seem disappear. Whats the reason?

[sparrow1]

Sparrow1, i type form1.hide, it got arrow, when i change it to me.hide, form 1 doesnt seem disappear. Whats the reason?

Hi,

I suppose that button9 is a control in Form1.
Then Try this:

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
     
 
        Form2.Show()
        Me.Hide()
End Sub

Wkr,

sparrow1

[wence]

It still doesn't work. Form 1 still stays there when i click the button

[alextyx]

You can try this:


visual basic code:--------------------------------------------------------------------------------Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click


Form2.ShowDialog()
Form1.Hide()
End Sub--------------------------------------------------------------------------------

I suggest to use the second sparrow's suggestion, or simply change the order of the lines:

You can try this:


visual basic code:--------------------------------------------------------------------------------Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

Form1.Hide()
Form2.ShowDialog()

End Sub--------------------------------------------------------------------------------

Anyway you can act on Form1 also from within Form2's code. You only need to have a reference to Form1.

[wence]

Oh ya, just change the sequence, me.hide() comes first before form2.showdialog() and it works.
By the way, can i display the textbox's text in form1 at form2?

[HanneSThEGreaT]

Yes
Just use dot notation..

Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
 
Form1.Hide()
Form2.TextBox1.Text = Text1.Text 'this will insert text1's value (from form1) into form2
Form2.ShowDialog()
 
End Sub

[wence]

Thanks Hannesthegreat, fantastic, it works.

[wence]

The problem now is that it can only close form1 and enter form2 once. Once i do the same thing all over again, means i go back to form1 and try to close it in order to enter form2 once again, an error occurs saying that ""Form that is already displayed modally cannot be displayed as a modal dialog box. Close the form before calling showDialog". How should this be fixed?

When i tried to close application for form1 then only form2.showdialog but it just closes everything .

[stanav]

Suppose Form1 is your startup Form then

'Create a new instance of Form2
        Dim frm2 As New Form2
        'Hide the main form
        Me.Visible = False
        'Show the new instance of Form2 as a dialog. At this point
        'the only active form on your screen should be frm2... And it'll stay there
        'until the user close it (i.e. via a button click)
        frm2.ShowDialog()
        'When the user close frm2, display the main form again
        Me.Visible = True