Seleccione el caso en el tipo de un objeto en VB.NET

Question

No estoy seguro de si este C# válido, pero con suerte usted consigue la idea. :)

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

¿Cómo iba a cambiar el tipo de un objeto, pero utilizando VB.NET de Select Case?

Soy consciente de que algunos pueden sugerir el uso de polymorphism, pero estoy usando una jerarquía de clases de mensajes pequeños para que realmente no funcione en mi caso.

Answer 1

con VB 2010, para proyectos dirigidos a .NET Framework 4 y posterior, ahora se puede hacer esto:

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

En versiones anteriores de VB, no funcionó porque no se podía comparar con dos tipos igualdad. Debería verificar si apuntan a la misma referencia usando la palabra clave Is. No es posible hacer esto en un Caso Selecto, a menos que use una propiedad del tipo como el Nombre o Nombre Completo para la comparación, como lo sugiere Michael. Se puede utilizar una combinación de Si y ElseIf sin embargo:

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

Answer 2

Bueno, si usted insiste en el uso de Select Case, siempre se puede ir con:

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 

pero me imagino la mayoría de la gente le gusta para evitar este tipo de cosas Si/ElseIf probablemente sería más claro.

Answer 3

Este:

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 

Answer 4

Esta es una manera de manejar Button1 y Button2 eventos de clic en la misma sub (Empecé como un programador de Visual Basic 6, por lo que este es un buen sustituto para el manejo de VB6 de matrices de control)

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 5

yo no siempre select case true, pero se puede hacer esto:

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

whic h es ligeramente más limpia buscando que esto:

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