[internetadami]

‘Bu procedure’ü çalıştırmak için formunuza ListView, Image List’i yerleştirmelisiniz.
‘ListView’un sağ click ile açılan property pages’dan Image Lists’inde Column Header için
‘Forma yerleştirdiğiniz Image List seçilmelidir.

Private Sub lvwList_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
Dim colVar As ColumnHeader
' Eğer ListView seçilen sütunda sıralanmışsa (A->Z), terse çevir (Z-> A)
'Aksi durumda sıralamayı yap. (A-> Z)
If lvwList.Sorted = True And ColumnHeader.SubItemIndex = lvwList.SortKey Then
If lvwList.SortOrder = lvwAscending Then
lvwList.SortOrder = lvwDescending
Else
lvwList.SortOrder = lvwAscending
End If
Else
lvwList.Sorted = True
lvwList.SortKey = ColumnHeader.SubItemIndex
lvwList.SortOrder = lvwAscending
End If
'Şimdi, sıralama bilgisine göre column header’lara aşağı ya da
‘yukarı ok imajı yerleştirelim
For Each colVar In lvwList.ColumnHeaders
If colVar.SubItemIndex = lvwList.SortKey Then
If lvwList.SortOrder = lvwDescending Then
colVar.Icon = 2
Else
colVar.Icon = 1
End If
Else
colVar.Icon = 0
End If
Next colVar
End sub

[Solmaz21]

teşekkürler