VB.Net: tester plusieurs valeurs pour l'égalité?

Comment tester plusieurs valeurs pour l'égalité dans une ligne?
Fondamentalement, je veux faire

if (val1 == val2 == val3 == ... valN)

mais dans VB.Net.

OriginalL'auteur mcjabberz | 2009-03-26

  1. 8
    If val1 = valN AndAlso val2 = valN AndAlso ... Then
End If

    Cela peut devenir lourd lors de l'essai de plus de quelques valeurs.

    OriginalL'auteur Jim H.

  2. 2

    Si vous avez beaucoup de valeurs à tester et le faire très souvent, vous pourriez vous écrire une aide comme ceci:

    Public Function AllTheSame(ByVal ParamArray values() As Object) As Boolean
    For index As Integer = 1 To values.Length - 1
        If values(0) <> values(index) Then Return False
    Next
    Return True
End Function

<Fact()> Public Sub testAllTheSame()
    Assert.True(AllTheSame("Test"))
    Assert.True(AllTheSame("Test", "Test"))
    Assert.True(AllTheSame("Test", "Test", "Test"))

    Assert.True(AllTheSame(1234))
    Assert.True(AllTheSame(1234, 1234, 1234))

    Assert.False(AllTheSame("Test", "Test2"))
    Assert.False(AllTheSame("Test", "Test", "Test3"))

    Assert.False(AllTheSame(1234, 1234, 987))
End Sub

    OriginalL'auteur dummy

  3. 1

    Il n'y a aucun moyen de la chaîne d'ensemble comme ça. Vous avez besoin de le décomposer en paire avais comparisions lié par AndAlso

    if val1 = val2 AndAlso val2 = val3 AndAlso val1 = val3 Then
    Vous n'avez pas besoin de la dernière comparaison: val1 = val3
    c'est discutable. Vous pouvez exclure les val1 = val3 si vous connaissez le type a transitive de l'égalité. Ce qui est vrai pour la plupart des types que j'ai trouvé de l'occasionnel comparaison qui rate ce test en raison de 1) explicite la folie ou 2) des bugs dans l'égalité.
    assez juste, je ne voudrais pas avoir à écrire la condition lorsque N commence à devenir beaucoup plus gros 🙂
    idéalement, tout le monde serait de mettre en œuvre l'égalité dans transitive de la mode et nous n'aurions pas à vous inquiéter à ce sujet à tous 🙂

    OriginalL'auteur JaredPar