VB退出时命令

来源：百度知道 编辑：UC知道 时间：2024/05/19 13:01:45
在点叉的时候怎么增加一些命令？就是有的人要退出这个程序，一般都点叉，怎么让点叉的时候弄一些命令，比如转入From2或者提示什么的

Private Sub Form_Unload(Cancel As Integer)
Form2.Show 'x后显示窗体2
End Sub

把下面的代码复制到你的程序里面，当你点上面那个交叉关闭程序的时候它就弹出对话框询问你是否要关闭程序，选择是则关闭，否则继续程序！这只是个思路，你可以自己根据需要更改！

Private Sub Form_Unload(Cancel As Integer)
Dim ms As String
ms = MsgBox("你是否要退出程序？", vbYesNo + 32, "关闭提示")
If ms = vbNo Then Cancel = True
End Sub

Private Sub Form_Unload(Cancel As Integer)
Form2.Show
unload me
End Sub

在窗体的Closed事件中编写命令

上面两位的合在一起就好了