VB.NET自定义数据库清除对话框异常：无论操作均执行清除

问题根源 #

你的代码存在两个核心问题：

1. 直接使用窗体类名ClearDatabase调用ShowDialog()，依赖VB.NET的默认窗体实例，多次调用后实例状态可能混乱，导致DialogResult判断失效。
2. 自定义对话框内的“确认”“取消”按钮未正确设置DialogResult属性，点击按钮关闭窗体时，无法返回正确的对话结果。

修复步骤 #

1. 修正主窗体调用代码 #

创建对话框的独立实例，避免依赖默认实例，确保每次调用都是全新的状态：

Private Sub btnClearDatabase_Click(sender As Object, e As EventArgs) Handles btnClearDatabase.Click
    ' 创建自定义对话框实例并使用Using自动释放资源
    Using clearDbDialog As New ClearDatabase()
        Dim dialogResult As DialogResult = clearDbDialog.ShowDialog()
        ' 仅当对话框返回OK时执行清除逻辑
        If dialogResult = DialogResult.OK Then
            ' 此处编写数据库清除代码
        End If
    End Using
End Sub

2. 配置自定义对话框ClearDatabase #

• 设置取消按钮：
  选中对话框的“取消”按钮，在属性面板中将DialogResult设为Cancel，同时把窗体的CancelButton属性绑定到该按钮（按下ESC键也可触发取消）。
• 设置确认按钮：
  确认按钮默认隐藏，当复选框勾选后显示。选中确认按钮，将DialogResult设为OK，可选将窗体的AcceptButton绑定到该按钮（按下Enter键触发确认）。
• 复选框控制按钮显示：
  给复选框添加CheckedChanged事件，控制确认按钮的可见性：

  Private Sub chkConfirm_CheckedChanged(sender As Object, e As EventArgs) Handles chkConfirm.CheckedChanged
      btnConfirm.Visible = chkConfirm.Checked
  End Sub
  

关键说明 #

• 必须通过实例化窗体来调用ShowDialog()，默认实例的状态复用会导致逻辑判断异常，这也是你之前遇到BC42025警告的原因（警告提示直接使用类名访问窗体成员不符合规范）。
• 按钮的DialogResult属性是核心：点击设置了该属性的按钮时，窗体自动关闭并返回对应的DialogResult值，主窗体才能正确判断用户操作。

内容的提问来源于stack exchange，提问作者James Gilbert