简单代码禁止X按钮

goodidea

在一个窗体的Unload事件中加入如下代码，可防止用户随意退出Access。

Private Sub Form_Unload(Cancel As Integer)
    If gblnRuning Then   '如果程序正在运行中,禁止关闭此窗体
                        '要退出程序，先复位gblnRuning
        Cancel = True
    End If
End Sub

[此贴子已经被作者于2004-4-22 15:13:07编辑过]

goodidea

有没有搞错，居然给过滤了