如何编写退出整个系统前提示用户的代码 [ 网站地图 ]

发表于:2009-12-28 浏览:41 作者: 来源:站长资讯网

关键字:退出,系统,提示用户

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

很简单,建立一个窗体,名字叫隐藏,并在启动选项内选定这个窗体为启动时自动打开。

然后在窗体的加载事件内加入如下代码:

以下为引用的内容:

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


站长资讯网 做中国最丰富的资讯网站 沪ICP备05004089号