如何在Visual Basic中使用按钮关闭打开的窗体？及游戏菜单窗体切换异常问题解决

1. 基础问题：用按钮关闭打开的窗体 #

要在VB里实现按钮关闭窗体，分两种场景处理：

• 关闭当前按钮所在的窗体：直接在按钮的点击事件里写 Me.Close() 即可，这行代码会关闭当前代码所属的窗体。
• 关闭其他已打开的窗体：如果要关闭某个特定名称的窗体（比如名为TargetForm的窗体），可以遍历当前所有打开的窗体找到目标再关闭，代码示例：

Private Sub CloseTargetFormBtn_Click(sender As Object, e As EventArgs) Handles CloseTargetFormBtn.Click
    For Each frm As Form In Application.OpenForms
        If frm.Name = "TargetForm" Then
            frm.Close()
            Exit For ' 找到目标后退出循环，避免多余遍历
        End If
    Next
End Sub

2. 游戏场景的具体问题：关闭菜单窗体并打开游戏窗体 #

你的代码核心问题出在ShowDialog()方法上！这个方法是模态显示窗体，它会暂停当前窗体的代码执行，直到弹出的窗体被手动关闭，所以你的Me.Close()要等GameBoard窗体关掉才会运行，这就导致菜单窗体Form2一直留在屏幕上，直到你关闭游戏窗体，完全不符合你想要的“关菜单同时开游戏”的效果。

修正后的代码方案 #

把ShowDialog()换成非模态的Show()方法，这样代码不会被阻塞，能同时完成显示游戏窗体和关闭菜单窗体的操作：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    ' 创建游戏窗体实例并以非模态方式显示
    Dim gameForm As New GameBoard
    gameForm.Show()
    ' 关闭当前菜单窗体
    Me.Close()
End Sub

额外注意：如果Form2是启动窗体 #

如果Form2是你的项目启动窗体，直接调用Me.Close()会导致整个程序关闭（因为启动窗体关闭时，VB默认会终止应用程序）。这时候你有两个可选方案：

• 方案一：修改启动对象：右键你的项目 → 属性 → 应用程序 → 启动对象，选择GameBoard作为启动窗体。然后在GameBoard的Load事件里先显示Form2菜单，这样关闭Form2时程序不会退出，因为GameBoard是主窗体。
• 方案二：隐藏而非关闭菜单窗体：把代码里的Me.Close()改成Me.Hide()，这样菜单窗体只是被隐藏，不会触发程序退出，游戏窗体可以正常运行。

内容的提问来源于stack exchange，提问作者sam-hobbs