Question

我不确定这是否是有效的C＃，但希望你能得到这个想法。：）

switch (msg.GetType()) {
    case ClassA:
        // blah
    case ClassB:
        // blah 2
    case ClassC:
        // blah 3
}

如何使用VB.NET的Select Case？

打开对象的类型

我知道有些人可能会建议使用polymorphism，但我使用的是小型消息类的层次结构，所以在我的情况下真的不行。

Answer 1

使用VB 2010，对于面向.NET framework 4及更高版本的项目，您现在可以执行此操作：

Select Case msg.GetType()
    Case GetType(ClassA)
End Select

在早期的VB版本中，它不起作用，因为你无法比较两种类型是否相等。您必须使用Is关键字检查它们是否指向相同的引用。除非您使用像Name或FullName这样的类型的属性进行比较，否则不可能在Select Case中执行此操作，如Michael所建议的那样。您可以使用If和ElseIf的组合：

Dim type = msg.GetType()
If type Is GetType(ClassA)
    ...
ElseIf type Is GetType(ClassB)
    ...
...
End If

Answer 2

好吧，如果你坚持使用Select Case，你总是可以选择：

Select Case True
    Case TypeOf msg Is ClassA
        ' do something '
    Case TypeOf msg Is ClassB
        ' do something else '
    Case Else
        ' and so on '
End Select

但我想大多数人都喜欢避免这种事情。如果/ ElseIf可能会更清楚。

Answer 3

这是一种在同一个子句中处理Button1和Button2点击事件的方法（我最初是作为一个VB6程序员，因此这是VB6处理控件数组的一个很好的替代品）

Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click
                Select Case True
                    Case sender Is Me.Button1
                        ' Do Button1 stuff '
                    Case sender Is Me.Button2
                        ' Do Button2 stuff '
                End Select
            End Sub

Answer 4

我不会select case true，但你可以这样做：

Select Case msg.GetType.Name
    Case GetType(ClassA).Name
        ...
    Case GetType(ClassB).Name
        ...
    Case Else
        ...
End Select

这比看起来更清洁：

If msg.GetType Is GetType(ClassA) Then
    ...
ElseIf msg.GetType Is GetType(ClassB) Then
    ...
Else
    ...
End If

Answer 5

此：

Dim a As Object = New TextBox

Select Case True
    Case TypeOf a Is TextBox
        MsgBox("aaa")

    Case TypeOf a Is ComboBox

    Case TypeOf a Is ListBox

End Select

在VB.NET中选择对象类型的Case

5 个答案: