在 VB.NET 中选择带有 Not Condition 的情况失败

Question

如何在下面的选择案例中添加 Not 条件。

是<>适用于单个值，“To”适用于范围，但该值是特定值，而不是一系列数字。在这种情况下是否可以使用 select case，或者我是否必须切换到 if-else。例如：我不希望 case 在值为 0 和 3 时执行

           Select value
             case 0,1,2,3
           End Select

Answer 1

我不确定我是否理解这个问题...

为什么不能像这样编写示例代码：

Select Case value
    Case 1, 2
        DoWork()
End Select

当 value = 0 或 value = 3 时不会执行任何操作。提供给 Case 语句的一系列值不必是连续的。

---

更新回应评论：

我会这样写，利用Case Else标签：

Select Case myComboBox.SelectedIndex
    Case 1, 5, 8
        'The suggestion is acceptable, so process it
        DoWork()
    Case Else
        'The suggestion is invalid, so show an error
        MessageBox.Show("You cannot select that option. " & _
                        "Please choose options 1, 5, or 8 instead.", _
                        "Invalid Selection", _
                        MessageBoxButtons.OK, MessageBoxIcon.Error)
End Select

当然，如果你实际上没有任何“工作”如果用户选择了正确的值，那么使用 Select Case 语句似乎就没有什么意义了。主要规则应该是使用使您的代码最清晰并且最容易理解的方式。关于 Select Case 比 If 语句更快的怀疑几乎没有根据 - 编译器足够聪明，可以在几乎每种情况下产生几乎相同的结果。

Answer 2

基于科迪所写的内容，我会选择：

Select Case value
    Case 1, 2
        DoWork()
    Case 0 ,3               
        'nothing to do, only log if needed
    Case Else
        Debug.Fail("Please provide a logical path for all possible values")
End Select

额外的分支只是为了阐明代码的意图并防止未来的更改。

Answer 3

我经常将 SELECT/CASE 与 IF/END IF 结合起来。第一个捕获范围，然后第二个对范围做类似的事情，但可能有细微的差别。

    Dim Result As Integer = 1
    Select Case Result
        Case 0 To 3
            SaveOrder()
            '0 to 3 is success 
            If Result <> 0 AndAlso Result <> 3 Then
                '1 and 2 = Everything ok
                SendCustomerMesage(0)
            Else
                '0 and 3 = Order OK, but no stock in storage
                SendCustomerMesage(1)
            End If

        Case 4 To 8
            '4 to 8 is error 
            InformCustomer(value)
        Case Else
            HandleError(value)
    End Select