以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  有没有跳出事件代码的指令  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=25477)
--  作者：Fotable
--  发布时间：2012/11/10 8:12:00
--  有没有跳出事件代码的指令

exit for

可以跳出for循环

 

类此，如果希望跳出事件代码，终止本次整个事件的代码 怎么写呢
--  作者：blackzhu
--  发布时间：2012/11/10 9:46:00
--  

For Each 语句，同样支持Exit For和Continue For。
例如下面的代码，检查集合中的每一个值，如果是北京市，则继续下一次循环，如果是重庆市，则提示“找到了”，并退出循环；如果是其它值，则显示该值：

Dim Values As New List(Of String)
Values.Add("北京市")
Values.Add("上海市")
Values.Add("天津市")
For Each Value As String In Values
    If Value = "北京市" Then
        Continue for
    ElseIf Value = "重庆市" Then
        Output.Show("找到了！")
        Exit For
    End If
    OutPut.Show(Value)
Next

--  作者：Fotable
--  发布时间：2012/11/10 13:23:00
--  
exit sub 可以么