Discussion :

[conan76]

Bonjour,

Quelque chose doit m'échapper... pas moyen de comprendre...

Merci d'avance pour votre éclairage.

erreur BC30452: L'opérateur '<>' n'est pas défini pour les types 'xxxxxxxxxx.ModePaiement' et 'xxxxxxxxxx.ModePaiement'.

dois-je redéfinir chaque opérateurs ?

J'essai de comparer 2 objets :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Dim modePaiement As ModePaiement
If certificat.ModePaiement <> modePaiement Then...

J'ai ajouté dans ma classe :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
        Public Overrides Function GetHashCode() As Integer
            Return MyBase.GetHashCode()
        End Function
 
        Public Overrides Function Equals(obj As Object) As Boolean
 
            If obj Is Nothing OrElse Not [GetType]().Equals(obj.GetType()) Then
                Return False
            End If
 
            Dim otherMyObject As ModePaiement = DirectCast(obj, ModePaiement)
            Return Me.ID = otherMyObject.ID
 
        End Function

[Phil Rob]

Bonjour,
Ton problème vient probablement parce que tu n'as pas surchargé l'opérateur <>.
Et attention, lorsqu'on surcharge un opérateur relationnel, il faut les surcharger tous, ou au moins leurs contraires : ainsi si tu as surchargé le relationnel =, tu dois surcharger aussi <>.
Sauf erreur de ma part, le compilateur génère des erreurs pour tout manquement. C'est peut-être ce qui se passe avec ton problème.
J'espère que ça t'aidera ...

[Sehnsucht]

Quelques remarques
GetType() renvoie le type concret à l'exécution en fonction du contexte (que j'ignore) il peut être préférable d'utilise TypeOf ... Is ou bien l'opérateur GetType (à ne pas confondre avec la méthode) ou pas
Il est un peu surprenant que Equals finisse par comparer des ID alors que GetHashCode ne s'en sert pas
Si tu pars sur une implémentation d'égalité il serait bien d'implémenter IEquatable(Of TonType) également (idem avec IComparable(Of TonType) s'il y a également notion de comparaison)

[conan76]

Quelques remarques
GetType() renvoie le type concret à l'exécution en fonction du contexte (que j'ignore) il peut être préférable d'utilise TypeOf ... Is ou bien l'opérateur GetType (à ne pas confondre avec la méthode) ou pas
Il est un peu surprenant que Equals finisse par comparer des ID alors que GetHashCode ne s'en sert pas
Si tu pars sur une implémentation d'égalité il serait bien d'implémenter IEquatable(Of TonType) également (idem avec IComparable(Of TonType) s'il y a également notion de comparaison)

Bonjour,

Le soucis c'est qui j'implémente :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Public Class ModePaiement
        Implements IEquatable(Of ModePaiement)

Je dois overrider la fonction (j'ai directement utilisé l'intelisense)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
 Public Overrides Function Equals(other As ModePaiement) As Boolean Implements IEquatable(Of ModePaiement).Equals
            Throw New NotImplementedException()
        End Function

mais une fois fais, j'ai : function 'Equals' ne peut pas être déclaré 'Overrides', car il ne se substitue pas à un function dans une classe de base.

[Phil Rob]

Il s'agit d'Implement ...
A ma connaissance, il ne faut pas utiliser Override pour implémenter les méthodes d'une Interface.
Par ailleurs, si tu implémentes une méthode, tu dois les implémenter toutes, quitte à n'écrire que des procédures vides.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Public Interface MonInterface
  Sub UneProcedure(ByVal X As Integer)
  Function UneFonction(ByVal S As String) As Integer
  Property UnePropriete()
End Interface
 
Public Class UneClasse
  Implements MonInterface
  Public Sub UneProcedure(ByVal Entier As Integer) Implements MonInterface.UneProcedure ' Pas d'Override
    ' … … …
  End Sub
    ' … … …

[Sehnsucht]

Si on en arrive à ne pas donner de corps à une méthode implémentée il faut se poser la question de pourquoi on implémente l'interface à la base ; pour moi c'est un cas qui ne devrait pas se produire (déjà que le cas consistant à lever une NotSupportedException ne m'enchante guère ...)

Quant au code ; on peut (et doit ?) très bien faire les deux :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Class Foo
    Implements IEquatable(Of Foo)
 
    Public Overrides Function Equals(obj As Object) As Boolean
        Return Equals(TryCast(obj, Foo))
    End Function
 
    Public Overloads Function Equals(other As Foo) As Boolean Implements IEquatable(Of Foo).Equals
        Return other IsNot Nothing AndAlso ' ...
    End Function
End Class