Díky moc, funguje to parádně. Akorát škoda takovýho dlouhýho kódu. Ještě mě napad takovej OffTopic (nedávete mi mínusy :)). Je to sice pomalý, neefektivní a nevím co ještě, ale poměrně krátký a funkční. Stačí přehodit data mezi prvním a požadovaným sloupcem, seřadit a přehodit zpět. Kód by pak vypadal zhruba takto
Private Sub ListView1_ColumnClick(ByVal sender As Object, ByVal e As System.Windows.Forms.ColumnClickEventArgs) Handles ListView1.ColumnClick
If e.Column = 0 Then
If ListView1.Sorting = SortOrder.Ascending Then
ListView1.Sorting = SortOrder.Descending
Else
ListView1.Sorting = SortOrder.Ascending
End If
ListView1.Sort()
End If
If e.Column > 0 Then
'přehodí texty mezi nultým a požadovaným řádkem
Prehozeni(0, e.Column)
If ListView1.Sorting = SortOrder.Ascending Then
ListView1.Sorting = SortOrder.Descending
Else
ListView1.Sorting = SortOrder.Ascending
End If
ListView1.Sort()
Prehozeni(0, e.Column)
End If
End Sub
|