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())
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.