Probleme de tri en visual basic 2008 (.net)

Bonjour,

bon j'ai réalisé une listbox mais le problem c'est que je n'ai pas trouvé le moyen de trier les composant de la listbox dans un ordre decroissant de z-a
la fontion sorted a marché de a-z

je me demande s'il 'ya pas un e façon de trier cette liste de z-a
merci d'avance

2 réponses

  • Votes
  • Date
  • Date décroissante
  1. Bonjour,

    Il te faudra trier à la main ...

        Private Sub btn_Tri_Direct_Click(ByVal sender As System.Object, _
                                         ByVal e As System.EventArgs) Handles btn_Tri_Direct.Click
    
            Dim Valeur As String = String.Empty
            Dim Indice As Int32 = 0
            Dim I As Int32 = 0, J As Int32 = 0
    
            InitialiseListeBox()
            Indice = Me.ListBox1.Items.Count
    
            For I = 0 To (Indice - 1)
                For J = 0 To (Indice - 1)
                    If (Me.ListBox1.Items(J).ToString < Me.ListBox1.Items(I).ToString) Then
                        Valeur = Me.ListBox1.Items(J).ToString
                        Me.ListBox1.Items(J) = Me.ListBox1.Items(I).ToString
                        Me.ListBox1.Items(I) = Valeur
                    End If
                Next
            Next
    
    
        End Sub
    


    Info
    1. merci ,
      j'ai reusi a le fair avec une autre methode

      Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
      ListBox1.Sorted = False

      Dim i As Integer

      Dim t(ListBox1.Items.Count - 1) As String
      Dim x As New ListBox
      For i = 0 To ListBox1.Items.Count - 1
      t(i) = ListBox1.Items(i)
      Next
      Array.Sort(t)
      For i = ListBox1.Items.Count - 1 To 0 Step -1
      x.Items.Add(t(i))
      Next
      ListBox1.Items.Clear()
      ListBox1.Items.AddRange(x.Items)

      End Sub