如何只在点击子窗体的x按键时才关闭主窗体，其他操作只关闭子窗体

在 VB 中，如果你想要实现在点击子窗体的 X 按钮时关闭主窗体，而在其他情况下只关闭子窗体，你可以使用以下方法：

1. 在子窗体的代码文件中添加一个公共的布尔型变量，用来保存是否需要关闭主窗体的标志。在子窗体的代码文件中添加以下代码：

Public CloseMainForm As Boolean

2. 在子窗体的 `QueryUnload` 事件中添加以下代码：

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    ' 如果需要关闭主窗体，则在这里关闭主窗体
    If CloseMainForm Then
        ' 关闭主窗体
        frmMain.Close
    End If
End Sub

其中，`frmMain` 是主窗体的名称，可以根据实际情况进行修改。

3. 在子窗体的关闭按钮的 Click 事件中添加以下代码：

Private Sub btnClose_Click()
    ' 设置需要关闭主窗体的标志为 False
    CloseMainForm = False
    ' 关闭子窗体
    Unload Me
End Sub

4. 在主窗体的代码文件中添加以下代码：

Private Sub ShowChildForm()
    ' 显示子窗体
    Dim frmChild As New Form2
    frmChild.Show

    ' 设置需要关闭主窗体的标志为 True
    frmChild.CloseMainForm = True
End Sub

其中，`Form2` 是子窗体的名称，可以根据实际情况进行修改。

在上面的示例中，我们在子窗体的 `QueryUnload` 事件中判断是否需要关闭主窗体，如果需要则在这里关闭主窗体；在子窗体的关闭按钮的 Click 事件中设置需要关闭主窗体的标志为 False，并关闭子窗体；在主窗体中打开子窗体时设置需要关闭主窗体的标志为 True。这样，当用户点击子窗体的 X 按钮时，子窗体的 `QueryUnload` 事件中会判断需要关闭主窗体并关闭主窗体；在其他情况下，只会关闭子窗体。