Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionCa peut donner un truc comme cela: Private Function TestObject(ByVal Obj1 As Object, ByVal Obj2 As Object) As Boolean ' Utiliser un BinaryFormater pour sérialiser les objets Dim formater As New Runtime.Serialization.Formatters.Binary.BinaryFormatter ' Sérialiser le 1er objet
Dim stream As New IO.MemoryStream formater.Serialize(stream, obj1) Dim obj1Bytes() As Byte = stream.ToArray
' Sérialiser le 2ème objet
stream = New IO.MemoryStream formater.Serialize(stream, obj2) Dim obj2Bytes() As Byte = stream.ToArray ' Tester l'équivalence des 2 tableaux de bytes If obj1Bytes.Length = obj2Bytes.Length Then For i = 0 To obj1Bytes.Length - 1 If obj1Bytes(i) <> obj2Bytes(i) Then Return False End If Next Return True Else Return False End If End Function