Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: Visual Basic
Expertise: Beginner
Dec 15, 2001



Building the Right Environment to Support AI, Machine Learning and Deep Learning

Sort and Reverse—Sort a ListView

This routine performs the standard column sorting on a ListView control found in many commercial applications, such as Windows Explorer and Outlook. Using this routine, the ListView sorts itself automatically whenever the user clicks on a column. Clicking on the same column toggles the sort order between ascending and descending order. Call this routine from the ListView controls ColumnClick event procedure by passing both a reference to the ListView and the ColumnHeader reference passed to the original event:
Public Sub ListView_ColumnClick(ByRef _
MyListView As ListView, ByVal ColumnHeader _
As ColumnHeader)
With MyListView
.Sorted = False
If .SortKey <> ColumnHeader.Index - _
1 Then
.SortKey = ColumnHeader.Index - 1
.SortOrder = lvwAscending
If .SortOrder = lvwAscending Then
.SortOrder = lvwDescending
.SortOrder = lvwAscending
End If
End If
.Sorted = True
End With
End Sub
Jim Pragit
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date