Public Class Melangeur
Implements System.Collections.IComparer
Private Shared rnd As Random
Shared Sub New()
rnd = New Random()
End Sub
Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements System.Collections.IComparer.Compare
If Object.Equals(x, y) Then
Return 0
Else
Return rnd.Next(-1, 1)
End If
End Function
End Class
' Et pour l'utiliser :
Dim Toto() As Integer = {1, 2, 5, 9, 10, 5, 3}
Array.Sort(Toto, New Melangeur())