1,486
社区成员
发帖
与我相关
我的任务
分享
Public isClose As Boolean
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
IF Cancel = 1 Then isClose = Cancel
End Sub
'然后在你的程序中判断isClose是否为真,如果为真立即跳出正在执行的过程然后结束程序!
Private Sub Form_Unload(Cancel As Integer)
...
End '结束程序
End Sub