Question

所以我在Vb6里有类似的东西

Select case Case

case "Case0"
...

case "Case1"
  if Condition Then
     Exit Select
  End If
  *Perform action*

case "Case2"
...

End Select

但出于某种原因,我的 < code> Exit select 丢弃错误 < code> exect < exect > expect < code > accept: do or for or For或 Sub或函数或属性。我知道, 不漂亮。我是否应该使用其它东西? 我可以使用 < code> if 的语句, 而不是提前退出此语句, 但这需要重复的代码, 我想避免它。任何帮助都会非常感激。

<强 > 更新

尝试将 Exit select 改为 End select ,并获得错误 End select 没有选择案例 。它绝对在 选择案例 和 End 选择 之内。

Answer 1

VB doesn t have a facility to exit a Select block. Instead, you ll need to make the contents conditional, possibly inverting your Exit Select conditional.

Select case Case 

case "Case0" 
... 

case "Case1" 
  If Not Condition Then 
    *Perform action* 
  End If 

case "Case2" 
... 

End Select

这将产生完全相同的最终结果。

Answer 2

VB6 - 只有 VB.NET 没有 Exit select 语句

请查看的语种参考 http://msdn.microsoft.com/ en- us/library/aa243366%28v=vs. 60%29.aspx" rel= "noreferr" >Exit 声明 - 有 no 提到 Exit 选择

最佳选项是将您选择的语句重构成一个新的子例程, 然后仅 Exit Sub

Answer 3

不幸的是, VB6 没有提供 < code> Exit select 条款。

这是在VB.NET的网上提供!

Answer 4

试试这个

Do
    Select case Case

    case "Case0"
    ...

    case "Case1"
      if Condition Then
         Exit Do
      End If
      *Perform action*

    case "Case2"
    ...

    End Select
Loop While False

编辑: Btw, 在此情况下, 我将犹豫使用 < code> GoTo (不仅如此) 。

Answer 5

回答这个老问题,你也可以用另一种方式使用 GoTo:

Select case Case

case "Case0"
...

case "Case1"  you can use not condition as stated

  if Condition Then GoTo Exit_select
  *Perform action*

case "Case2"
...
Exit_select:
End Select

Answer 6

刚刚发现了一些微不足道的东西就能把戏:

Select case Case 

case "Case0" 
... 

case "Case1" 
  A=A

case "Case2" 
... 

End Selec

Answer 7

总是有总是必须跳到标签在最后。

友情链接