EmersonH.Com

Transforming Knowledge into Power

  • Increase font size
  • Default font size
  • Decrease font size
Home VB 6 ListView ListView Column Sorting

ListView Column Sorting

Wednesday, 13 January 2010 18:06 administrator
E-mail Print 
Private Sub LvwDetails_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
 With LvwDetails
  If .SortKey <> ColumnHeader.index - 1 Then
   .SortKey = ColumnHeader.index - 1
   .SortOrder = lvwAscending
  Else
   If .SortOrder = lvwAscending Then
    .SortOrder = lvwDescending
   Else
    .SortOrder = lvwAscending
   End If
  End If
  .Sorted = -1
 End With
End Sub