A voir également:
- Probleme de tri en visual basic 2008 (.net)
- Visual basic - Télécharger - Langages
- Net framework 2.0 - Télécharger - Divers Utilitaires
- Visual basic editor - Télécharger - Langages
- Paint net - Télécharger - Dessin & Illustration
- Visual petanque - Télécharger - Sport
2 réponses
Bonjour,
Il te faudra trier à la main ...
Info
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
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
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