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