ListBox'ta Sıralamada Yanlışlık Oluyor.

[Orion1]

Merhaba.
Ekli dosyada listbox'ta artan sırada sıralama yapıyorum.
Ama sanırım değerleri string olarak algılıyor ve sıralamayı hatalı yapıyor.
Bu konuda çözüm önerisi olan arkadaşlara teşekkür ederim.

 

[Zeki Gürsoy]

Bu şekilde sınayın Evren hocam?

If Liste(i, 0) > Liste(j, 0) Then

 

[Orion1]

Bu şekilde sınayın Evren hocam?

If Liste(i, 0) > Liste(j, 0) Then

Zeki bey maalesef olmadı!!!:hayir:

 

[Necdet]

Evren Bey,

Ben Zeki Bey'in önerisini denedim ve oldu, sizde neden olmadı ki?

 

[Zeki Gürsoy]

Bende düzgün çalışıyor.

 

[Orion1]

Belkide ben sorgulamayı doğru yere yazmadım.
Kodların bütününü yollarmısınız?

 

[Orion1]

Hocam tamamdır.
Compare ile igili sorgulamayı kaldırıp sizin önerdiğiniz kodu yazınca oldu.
Ben sizin verdiğiniz kodu onun altına yazmıştım.
Teşekkür ederim.

 

[Ayhan Ercan]

Evren abi, bende denedim oldu.

Private Function Sirala(Liste As Variant)
Dim i As Integer, j As Integer, x As Variant
    For i = LBound(Liste) To UBound(Liste) - 1
        For j = i + 1 To UBound(Liste)
           [B][COLOR=red] If Liste(i, 0) > Liste(j, 0) Then
[/COLOR][/B]                x = Liste(j, 0)
                Liste(j, 0) = Liste(i, 0)
                Liste(i, 0) = x
            End If
        Next j
    Next i
    Sirala = Liste
End Function