防止关闭表格

Question

如果错误地点击了交叉，我怎么能避免关闭表格

Answer 1

在Form的QueryUnload事件中处理此问题。有一个UnloadMode参数和一个取消参数：

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

    If UnloadMode = vbFormControlMenu Then Cancel = True

End Sub

有关QueryUnload事件的详细信息，请参阅MSDN VB6 Language Reference或查看this article。