Listbox’taki Elemanları A dan Z ye Sırala Vb.Net

[code lang=”vb”]

Public Class Form1 ‘www.gorselprogramlama.com

Private Sub btnSirala_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSirala.Click

Dim gec As String

gec = "" ‘www.gorselprogramlama.com

For i As Integer = 0 To ListBox1.Items.Count – 1

For j As Integer = 0 To ListBox1.Items.Count – 1 ‘www.gorselprogramlama.com

If ListBox1.Items(i).ToString.ToLower() < ListBox1.Items(j).ToString.ToLower() Then

gec = ListBox1.Items(i) ‘www.gorselprogramlama.com

ListBox1.Items(i) = ListBox1.Items(j)

ListBox1.Items(j) = gec

End If

Next j ‘www.gorselprogramlama.com

Next i

End Sub

End Class ‘www.gorselprogramlama.com

[/code]