第1个回答 2020-01-16
关闭提示"把下面的代码复制到你的程序里面,你可以自己根据需要更改;,否则继续程序,选择是则关闭,当你点上面那个交叉关闭程序的时候它就弹出对话框询问你是否要关闭程序!这只是个思路!
Private
Sub
Form_Unload(Cancel
As
Integer)
Dim
ms
As
String
ms
=
MsgBox("?",
vbYesNo
+
32,
"你是否要退出程序
第2个回答 2009-03-29
把下面的代码复制到你的程序里面,当你点上面那个交叉关闭程序的时候它就弹出对话框询问你是否要关闭程序,选择是则关闭,否则继续程序!这只是个思路,你可以自己根据需要更改!
Private Sub Form_Unload(Cancel As Integer)
Dim ms As String
ms = MsgBox("你是否要退出程序?", vbYesNo + 32, "关闭提示")
If ms = vbNo Then Cancel = True
End Sub
第3个回答 2009-03-29
Private Sub Form_Unload(Cancel As Integer)
Form2.Show
unload me
End Sub
第4个回答 2009-03-29
上面两位的合在一起就好了
第5个回答 2009-03-29
在窗体的Closed事件中编写命令