form被关闭时，正在执行的sub却不会自动停止，怎么办？

[fsnow319]

当form中一个过程或函数正在执行时，点form右上角的小叉关掉它，会执行form的unload方法，然而正在执行的过程或函数却不会自动跳出，有办法在这种情况下让他们停止么？

[happy_sea]

定义一个全局布尔变量，在form_unload事件中让它为true，在过程或函数中检查这个变量如果为true就跳出过程或函数

[fsnow319]

嗯。只能这样了，每个函数都要加上这么一段冗余的代码，郁闷啊

没有更好的方式么？

[yimins]

在form_unload事件中写上：
End
虽然暴力了一点，但是能达到你的要求。

[Hassle]

Option Explicit

Private Sub Command1_Click()
Do
DoEvents
Loop
End Sub

Private Sub Form_Unload(Cancel As Integer)
End
End Sub