Sélectionnez un cas avec l'opérateur "Is"

Dans VB.NET je dois comparer des objets dans un select case déclaration.

Depuis select case utilise = opérateur par défaut et ce n'est pas définie pour les objets, une erreur de compilation est générée.

J'ai actuellement utiliser cette solution de contournement:

Select Case True
    Case sender Is StyleBoldButton

    Case sender Is StyleUnderButton

    Case sender Is StyleItalicButton

End Select

qui fonctionne réellement.

Est-il quelque chose de plus joli à voir et plus compréhensible?

source d'informationauteur Teejay

11

Tout ce qui est requis des opérateurs de comparaison (=, >=, <=, etc.) défini est un jeu équitable pour Select Case. À juste titre (à tort ou à raison), les références ne sont tout simplement pas par rapport à = en VB; on doit utiliser Is. (Ou Object.Equals(objA As Object, objB As Object) - mais, vraiment, pourquoi? lorsque vous avez Is?)

Mais jetez un oeil à Objet de l'égalité se comporte différents .NET - peut-être le VB moyen est moins de confusion? Que ce soit, je pense que vous êtes coincé avec le If-ElseIf échelle depuis Select Case ne pas faire Is. (eh bien, il n', mais c'est une autre Isplus proche de la it de Hypercard.) Je pense que l'échelle ressemble à puce et facile à suivre:
```
If sender Is StyleBoldButton Then 

ElseIf sender Is StyleUnderButton Then

ElseIf sender Is StyleItalicButton Then

Else

End If 
```
Comme vous l'avez souligné, la Select Case True modèle est un "OrElse" court-circuit de la solution de contournement dans VB6 - un vilain façon de répondre à un besoin réel. Mais ce n'est pas nécessaire VB.NET. Dans cet esprit, il est peut être préférable d'utiliser des modèles de conception plus en ligne avec les meilleures pratiques attendues d'un langage orienté objet. Par exemple, comme Denis Ligneur suggéré, pourquoi ne pas donner à chaque bouton de sa propre gestionnaire d'événement?

Mais si vous insister sur quelque chose comme un Est capable de Sélectionner, ici est quelque chose que je n'aurai probablement pas l'utiliser moi-même:
```
With sender
    If .Equals(StyleBoldButton) Then

    ElseIf .Equals(StyleUnderButton) Then

    ElseIf .Equals(StyleItalicButton) Then

    Else

    End If
End With
```
Ici, je compte sur .Equals fonctionne comme le C# == lorsqu'ils sont confrontés à deux object types de comparer (voir http://visualstudiomagazine.com/articles/2011/02/01/equality-in-net.aspx). La beauté de ceci est que sender est mentionné qu'une seule fois; toutefois, il y a tout ce ElseIf .Equals( ... ) Then vous aurez à taper pour chaque "Cas".

Une autre façon je ne les utilise pas moi-même est à l'aide de GetHashCode():
```
Select Case sender.GetHashCode()

    Case StyleBoldButton.GetHashCode()

    Case StyleUnderButton.GetHashCode()

    Case StyleItalicButton.GetHashCode()

    Case Else

End Select
```
Ici, je compte sur ce (très) peu que je sais de GetHashCode() de manière unique (assez) d'identifier ces contrôles. (Voir L'implémentation par défaut de l'Objet.GetHashCode() ).
4

Je viens de tomber sur ce même problème. Après avoir vu un autre post et ce post, je suis venu à cette solution pour moi et je voulais la partager dans le cas de quelqu'un de vraiment voulu utiliser la sélection de Cas comme je l'ai fait 🙂
```
    Select Case DirectCast(sender, Button).Name
        Case StyleBoldButton.Name

        Case StyleUnderButton.Name

        Case StyleItalicButton.Name

    End Select
```
Mise à jour 6-16-16: Supprimé "Est = ", parce que c'était inutile.

Mise à jour 8-27-16: modification de l'utilisation de chaînes de caractères à utiliser .Nom pour un meilleur suivi des erreurs.

-1

Moins concis, mais beaucoup plus lisible:

if typeof(sender) is StyleBoldButton then

elseif typeof(sender) is StyleUnderButton then

elseif typeof(sender) is StyleItalicButton then

else

end if

-2

 Private Sub btnNum_Click(sender As Object, e As EventArgs) Handles btnNum0.Click, btnNum1.Click, btnNum2.Click, btnNum3.Click, btnNum4.Click, btnNum5.Click, btnNum6.Click, btnNum7.Click, btnNum8.Click, btnNum9.Click, btnDicemalPoint.Click, btnNumClear.Click, btnExit.Click
If result = "0" Then
result = ""
End If
Select Case True
Case sender Is btnNum0
If result <> "0" Then
result = result & "0"
End If
Case sender Is btnNum1
result = result & "1"
Case sender Is btnNum2
result = result & "2"
Case sender Is btnNum3
result = result & "3"
Case sender Is btnNum4
result = result & "4"
Case sender Is btnNum5
result = result & "5"
Case sender Is btnNum6
result = result & "6"
Case sender Is btnNum7
result = result & "7"
Case sender Is btnNum8
result = result & "8"
Case sender Is btnNum9
result = result & "9"
Case sender Is btnDicemalPoint
If String.IsNullOrEmpty(result.ToString) Then
result = result & "0."
ElseIf Not result.ToString.Contains(".") Then
result = result & "."
End If
Case sender Is btnNumClear
result = 0
Case sender Is btnExit
Me.Close()
End Select
End Sub

Vous devez vous connecter pour publier un commentaire.