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

文章作者 100test 发表时间 2007:10:10 12:45:59
来源 100Test.Com百考试题网

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

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