VB.NET可以丢出一个异常: Try a() b() c() Catch End TrySub b() Throw New Exception End Sub 这样c就不执行了。VB6不支持结构化异常,当然也不支持多线程。
抱歉,我表达得不太明白,主要是想类似 End 的功能 不结束 整个程序,类似于 C语言的 EXIT(0) 就像放电影 的 播放 停止按键 ,而不是类似 END 的关闭电源 表达能力不太好
我只要 类似 End 的功能,但需要 结束整个程序,只是结束所有执行中的代码
private sub command1_click() if not a() then exit sub if not b() then exit sub ... end sub function a() as boolean ... a = true '正常结束 end function function b() as boolean if 条件成立 then exit function '立即中断 ... b = true '正常结束 end function
没有看明白你写的什么意思。
Try
a()
b()
c()
Catch
End TrySub b()
Throw New Exception
End Sub
这样c就不执行了。VB6不支持结构化异常,当然也不支持多线程。
不结束 整个程序,类似于 C语言的 EXIT(0)
就像放电影 的 播放 停止按键 ,而不是类似 END 的关闭电源
表达能力不太好
if not a() then exit sub
if not b() then exit sub
...
end sub
function a() as boolean
...
a = true '正常结束
end function
function b() as boolean
if 条件成立 then exit function '立即中断
...
b = true '正常结束
end function