案例陈述问题——vb.net

Question

所以我在这里将案例陈述组合在一起，但我有一些案例陈述需要在确认原始案例后基于第二个变量进行额外决策。

这就是我现在拥有的：

Case "PRIVATE_PARTY"
    If Condition = KBB_CONDITION_EXCELLENT Then
        Vehicle.MarketValue = Response.PrivatePartyExcellent
    ElseIf Condition = KBB_CONDITION_GOOD Then
        Vehicle.MarketValue = Response.PrivatePartyGood
    Else
        Vehicle.MarketValue = Response.PrivatePartyFair
    End If

是否可以在这样的某些情况下添加“与”语句并让代码以相同的方式工作？

Case "TRADE_IN" And Condition = KBB_CONDITION_EXCELLENT
    Vehicle.MarketValue = Response.TradeInExcellent

然后只有 3 个 case 语句而不是 1 个，但代码看起来并不难看。顺便说一句，Condition 被声明为相同的选择。

1. 这行得通吗？
2. 如果它确实有效，我有什么理由不使用它吗？

Answer 1

简答

代码可能会编译，但会错误。不要尝试像这样使用Select Case！我在下面解释原因。

---

长答案

Select Case在VB.NET中基本上是一个美化的If/ElseIf/等。 （它在语义上不与switch 相同）。因此，与使用 If、ElseIf 等编写等效代码相比，尝试以这种方式编写代码实际上并没有真正的好处。

也就是说，下面使用 VB 9 编译 Option Strict Off 和 Option Infer On。

注意：我不是说这会“工作”只是因为它编译。我在这里提出的观点是，仅仅因为代码可以编译，并不意味着它会按照您的期望进行。再次：编译，但它不会工作。不要使用它。*

Select Case s
    Case "Private Party" AndAlso i = 1
        Console.WriteLine(1)
    Case "Trade In" AndAlso i = 2
        Console.WriteLine(2)
End Select

问题是：它把编译成什么？

在 Reflector 中破解打开代码，你会看到：

Dim VB$t_string$L0 As String = s
If (VB$t_string$L0 = Conversions.ToString((Conversions.ToBoolean("Private Party") AndAlso (i = 1)))) Then
    Console.WriteLine(1)
ElseIf (VB$t_string$L0 = Conversions.ToString((Conversions.ToBoolean("Trade In") AndAlso (i = 2)))) Then
    Console.WriteLine(2)
End If

因此，VB 编译器将"Private Party" AndAlso i = 1 解释为Boolean，然后将其转换为String（“真”或“假”），以便与s 进行比较。

换句话说，这不会按您希望的方式工作。老实说，我会选择If/ElseIf 块；它会更容易阅读（在我看来）。

_{*你可能已经明白我的意思了；我只是想让它 100% 清楚;)}

Answer 2

我认为您只能对一个变量设置条件。 您可以在选择案例中添加一个选择案例，但我怀疑您可以做得更好。

http://msdn.microsoft.com/en-gb/library/cy37t14y%28v=VS.80%29.aspx

Answer 3

1. 没有那种确切的语法，不
2. 见 1。:-)

您可以在这里使用的一种技术是利用 VB.NET 允许的 C# 不允许的一件事 - 即非常量 Case 条件（我猜到了变量 Seller） ：

Select Case True
Case Seller = "TRADE_IN" And Condition = KBB_CONDITION_EXCELLENT
    Vehicle.MarketValue = Response.TradeInExcellent
Case Seller = "PRIVATE_PARTY" Condition = KBB_CONDITION_EXCELLENT
    Vehicle.MarketValue = Response.PrivatePartyExcellent
' etc
End Select

Cases 将按顺序进行评估，直到出现 True。

---

但是！如果Select Case 所做的只是从卖方和条件的组合映射到Response，我建议进行整个操作的更好方法是（仅一次）设置一个嵌套的Dictionary，其中包含映射数据，然后在需要Response 时查找其中的值。如果您有兴趣，我可以对此进行扩展...