很简单,建立一个窗体,名字叫隐藏,并在启动选项内选定这个窗体为启动时自动打开。然后在窗体的加载事件内加入如下代码:
Private Sub Form_Load() Me.Visible = FalseEnd Sub
'在窗体的卸载事件中加入如下代码:Private Sub Form_Unload(Cancel As Integer) If MsgBox("你真的要退出吗?", vbYesNo + vbQuestion, "请确认…") = vbNo Then Cancel = TrueEnd Sub
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18