vb6 - 尽早结案

Question

所以我在 Vb6 中有类似以下内容的内容；

Select case Case

case "Case0"
...

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

case "Case2"
...

End Select

但由于某种原因，我的Exit Select抛出错误Expected: Do or For or Sub or Function or Property。我知道，不漂亮。我应该使用其他东西吗？我可以只使用 if 语句而不提前退出案例，但这需要重复的代码，我想避免这种情况。任何帮助将不胜感激。

更新

尝试将Exit Select更改为End Select并收到错误End Select without Select Case。它肯定位于 Select Case 和 End Select 内。

Answer 1

VB 没有退出Select block 的功能。相反，您需要将内容设置为有条件的，可能会反转您的 Exit Select 条件。

Select case Case 

case "Case0" 
... 

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

case "Case2" 
... 

End Select 

最终结果完全相同。