listview'de Sayıları Sıralamak

[Ergün Güler]

Selam,
ekteki örnek dosyamdaki listview'in sayılarını sıralamayı beceremedim.
Yardımcı olabilir misiniz?

 

[Ergün Güler]

Cevap alınamadığından dosya kaldırıldı.

 

[Orion1]

Listviewin sort özellğiğ gördüğü her şeyi metin kabul ediyor.
sayılarıda metin kuralına göre sıralıyor.
sayı sıralamak için kodlama yapmalısınız.

 

[Ergün Güler]

Listviewin sort özellğiğ gördüğü her şeyi metin kabul ediyor.
sayılarıda metin kuralına göre sıralıyor.
sayı sıralamak için kodlama yapmalısınız.

Selam,
Sayın Hocam, çoktandır cevap bekliyordum. Sonunda sizden geldi. İlginize çok teşekkür ederim.
Ayrıca kodlar kullanmam gerektiğinin farkındayım. Ben de biraz çalışma yaptım ve aşağıdaki gibi deneme kodlar hazırladım. İnceler misiniz? Daha pratik Alternatif kodlar verebilirseniz çok sevinirim.

İyi çalışmalar.

Sub sıfır_ekleme()
Dim deg As String
deg = "ergün"

MsgBox sıfır_ekle(deg, 8)

End Sub

Public Function sıfır_ekle(metin As String, basamak As Byte)

uzunluk = Len(metin)

    For i = 1 To (basamak - uzunluk)
    metin = "0" & metin
    Next

sıfır_ekle = metin

End Function

Sub sıfır_almak()
Dim deg As String
deg = "000ergün"

MsgBox sıfır_al(deg)

End Sub

Public Function sıfır_al(metin As String)
say = 0
uzunluk = Len(metin)

For i = 1 To uzunluk
    If Mid(metin, i, 1) = "0" Then
    say = say + 1
    Else: Exit For
    End If
Next
    If say > 0 Then
    metin = Mid(metin, say + 1, uzunluk - say + 1)
    End If

sıfır_al = metin

End Function