如何让用户不能随意退出(退出前提示)？

现在的位置: 首页 > 综合 > 正文

2013年03月27日 ⁄ 综合 ⁄ 共 329字 ⁄ 字号小中大 ⁄ 评论关闭

很简单，建立一个窗体，名字叫隐藏，并在启动选项内选定这个窗体为启动时自动打开。
然后在窗体的加载事件内加入如下代码：

Private Sub Form_Load()
Me.Visible = False
End Sub

'在窗体的卸载事件中加入如下代码：
Private Sub Form_Unload(Cancel As Integer)
If MsgBox("你真的要退出吗？", vbYesNo + vbQuestion, "请确认…") = vbNo Then Cancel = True
End Sub

Access 2007 启动选项：

点左上角的 ’标志‘；
在出现下拉菜单的右下方点击 ’access选项‘；
点 ‘当前数据库‘
在 ‘应用程序选项’ 中修改。

抱歉!评论已关闭.

返回首页

（其他合作也可洽谈）