首页 - 图片 - 汽车 - 百科 - 旅游 - 美食 - 英语 - IT资讯 - 留学 - 移民 - 电影 - 下载 - 站点地图

您的位置: 易飞网 >> 资讯 >> 电脑网络 >> ACCESS学习资料 >> 查看资讯

如何在退出整个系统前提示用户

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

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