如何在一个窗体中单击按钮就关闭其他所有窗体？？？

hallo18c

运行程序后打开多个窗体，我想单击其中一个窗体中的按钮就关闭所有的窗体，请问各位高手应该如何实现这个功能？
先谢谢了，^_^

drshowtime

结束进程

drshowtime

结束进程

nkawei

假如你的控制窗体为 A_form
你的被控窗体为 B_form

在被控窗体中写入
    Dim formtemp1 As A_Form
    Public Function Instance(ByVal frm As A_Form)
        formtemp = frm
    End Function

在控制窗体中写入

    Dim tempfrm As New B_Form
    tempfrm.Instance(Me)

    tempfrm.close ‘这句就可以关闭被控制的窗体

同样地，你还可以做其他事情。如赋值，更新什么的。

huyanqing

按钮事件代码中：
Application.Exit();
return;

nkawei

写掉一个 1
重贴一次

假如你的控制窗体为 A_form
你的被控窗体为 B_form

在被控窗体中写入
    Dim formtemp1 As A_Form
    Public Function Instance(ByVal frm As A_Form)
        formtemp1 = frm  ’本句中写错一个 1
    End Function

在控制窗体中写入

    Dim tempfrm As New B_Form
    tempfrm.Instance(Me)

    tempfrm.close ‘这句就可以关闭被控制的窗体

同样地，你还可以做其他事情。如赋值，更新什么的。

hallo18c

哈哈，谢谢各个朋友，问题解决了。