How to close all other forms by clicking the button in one form? ? ?

hallo18c

After running the program, multiple forms are opened. I want to close all the forms by clicking the button in one of them. How do you master this function?
Thanks in advance, ^ _ ^

drshowtime

drshowtime

end process

nkawei

If your control form is A_form
Your accused form is B_form

Write in the charged form
    Dim formtemp1 As A_Form
    Public Function Instance (ByVal frm As A_Form)
        formtemp = frm
    End Function

Write in the control form

    Dim tempfrm As New B_Form
    tempfrm.Instance (Me)

    tempfrm.close ‘This sentence closes the controlled window

Similarly, you can do other things. If assigned, update something.

huyanqing

In the button event code:
Application.Exit ();
return;

nkawei

Write off a 1
Repost

If your control form is A_form
Your accused form is B_form

Write in the charged form
    Dim formtemp1 As A_Form
    Public Function Instance (ByVal frm As A_Form)
        formtemp1 = frm ’Wrong one in this sentence 1
    End Function

Write in the control form

    Dim tempfrm As New B_Form
    tempfrm.Instance (Me)

    tempfrm.close ‘This sentence closes the controlled window

Similarly, you can do other things. If assigned, update something.

hallo18c

Haha, thank you friends, the problem is solved.