如何在类模块中停止整个带码的执行。如exit sub
我在窗体模块写了一串代码。
其中有调用到类模块中的一个函数。
其函数中判定为错误。则终止所有执行。
就好比在窗体模块中exit sub的功能一样。
我不只是是要停止类模块中那一个函数。
而是这个程序停止。也不是退出
[解决办法]
Private Sub Command1_Click()
Dim mScript As New CScript
If mScript.comout("all") = False Then
MsgBox "错误"
Unload Me
End If
End Sub
'类模块代码
Public Function comout(ByVal com As String) As Boolean
……
……
If com <> "xxx" Then Exit Function
'你的脚本代码
……
……
comout = True
End Function
