DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Ordenar_ListView()
Dim intContador As Integer
Try
For intContador = 0 To lvwLista.Columns.Count - 1
lvwLista.Columns(intContador).ImageKey = Nothing
Next
Dim ocompare As New ListViewColumnSortSimple
If lvwLista.sorting = SortOrder.Ascending Then
ocompare.sorting = SortOrder.Descending
lvwLista.Columns(e.Column).ImageKey = "Desc"
Else
ocompare.sorting = SortOrder.Ascending
lvwLista.Columns(e.Column).ImageKey = "Asc"
End If
lvwLista.sorting = ocompare.sorting
ocompare.columnindex = e.Column
lvwLista.ListViewItemSorter = ocomparelvwLista.Sort()
Excepcion = ex
[COLOR="Red"]Catch ex As Exception
End Try[/COLOR]
End Sub