正解 Private Sub Form_Unload(Cancel As Integer) ... End '结束程序 End Sub
做一个标志:isClose Public isClose As Boolean Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) IF Cancel = 1 Then isClose = Cancel End Sub '然后在你的程序中判断isClose是否为真,如果为真立即跳出正在执行的过程然后结束程序!
如果没有特殊调用的话,可以直接用end退出
Private Sub Form_Unload(Cancel As Integer)
...
End '结束程序
End Sub
Public isClose As Boolean
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
IF Cancel = 1 Then isClose = Cancel
End Sub
'然后在你的程序中判断isClose是否为真,如果为真立即跳出正在执行的过程然后结束程序!
不推荐用end来强制结束,虽然可以解决,但是会导致资源泄漏。