Sélectionnez Case sur le type d'un objet dans VB.NET

Question

Je ne suis pas sûr si ce C# valide, mais j'espère que vous avez l'idée. :)

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

Comment puis-je allumer mais en utilisant Select Case de VB.NET type d'un objet?

Je suis conscient que certains pourraient suggérer d'utiliser polymorphism, mais j'utilise une hiérarchie de petites classes de message, ce qui ne fonctionnerait vraiment pas dans mon cas.

Answer 1

Avec VB 2010, pour des projets ciblant le framework .NET 4 et versions ultérieures, vous pouvez le faire:

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

Dans les versions VB précédentes, il ne fonctionne pas parce que vous ne pouviez pas comparer deux types avec égalité. Vous devrez vérifier s'ils pointent vers la même référence en utilisant le mot-clé Is. Il n'est pas possible de le faire dans un cas de sélection, sauf si vous utilisez une propriété du type Nom ou Nom complet pour la comparaison, comme suggéré par Michael. Vous pouvez utiliser une combinaison de Si et ElseIf si:

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

Answer 2

Eh bien, si vous insistez sur l'utilisation de Select Case, vous pouvez toujours aller avec:

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 

Mais j'imagine la plupart des gens aiment éviter ce genre de chose. Si/ElseIf serait probablement plus clair.

Answer 3

Ce:

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

C'est un moyen de gérer les événements cliquez sur Button1 et Bouton2 dans le même sous (j'ai commencé en tant que programmeur VB6, donc c'est un bon substitut pour le traitement VB6 des tableaux de commande)

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

Je ne jamais select case true, mais vous pouvez le faire:

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

Quelle st h est légèrement plus propre que ça:

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