Column sorting in ListView

[darre1]

ello.

i'm using a ListView control and i've pretty much got it sussed apart from the sorting bit. i've got the sorting working no problem, but in a lot of programs the sort buttons (columnHeaders) have these little embedded arrows on them indicating which way the column is sorted in...

how do i do that??

[Hack]

'This Sort ListView routine requires the use of an Image Control with two images; 
'An Up Arrow and A Down Arrow.   These arrows will appear on the sorted column when clicked
'Put an ImageList on your form. Add the icons to the ImageList that you want to use
'for the Up and Down Arrows. In the property page of the ListView control, under the
'ImageLists Tab, set the Column Header to the name of your ImageList.
Private Sub SortListView(ByRef List As ListView, ColHeadIndex As Integer)
    
    Dim lcv As Long     'Loop Control Variable
    With List
        ' Make sure the Sorted property is set to true
        .Sorted = True
        ' Sort according to the colum that was clicked (off by one)
        .SortKey = ColHeadIndex - 1
        ' Does the column already have an icon?
        If .ColumnHeaders(ColHeadIndex).Icon = 0 Then
            'No, So we will assume this column is not sorted
            ' Set to Ascending order
            .SortOrder = lvwAscending
            ' Set the ColumnHeader to be the Up Arrow
            .ColumnHeaders(ColHeadIndex).Icon = "UpArrow"
        ' Does the column have an UpArrow icon?
        ElseIf .ColumnHeaders(ColHeadIndex).Icon = "UpArrow" Then
            ' Yes, So the column is in Ascending order, switch to descending
            ' Set the Column Icon to the Down Arrow
            .ColumnHeaders(ColHeadIndex).Icon = "DownArrow"
            ' Set the sort order to descending
            .SortOrder = lvwDescending
        Else
            ' Otherwise sort into ascending order
            ' Set to Ascending order
            .SortOrder = lvwAscending
            ' Set the ColumnHeader to be the Up Arrow
            .ColumnHeaders(ColHeadIndex).Icon = "UpArrow"
        End If
        ' Remove any icon (presumably an arrow icon) from all other columns
        ' For every Column in the ListView Control...
        For lcv = 1 To List.ColumnHeaders.Count
            ' Is the current column the clicked column?
            If Not (lcv = ColHeadIndex) Then
                ' No, remove any icon it may have
                .ColumnHeaders(lcv).Icon = 0
            End If
        Next lcv
        ' Refresh the display of the ListView Control
        .Refresh
    End With
End Sub
 
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
Call SortListView(ListView1, ColumnHeader.Index)
End Sub

[darre1]

aren't code libraries just great

cheers hack

[Hack]

In the immortal words of darre1...



Who's yer daddy?

[darre1]

[darre1]

is there a way to get the image to align to the right of the columnheader???

[darre1]

basically i need the text to align to the left of the columnheader and the icon to the right of the columnheader, like the attached pic:

[Wokawidget]

Errrr...nope, u can't do that with a listview I am afraid
U will start to come across the limitations of microsofts controls.
That's why there is a huge marget for creating custom controls out there
Also, the sorting only sorts on strings
If you have the following in a column :

10
34
1
4
2
5
21

and click on the columnheader to sort it, you will get:

1
10
2
21
34
4
5



Booooooooooooooooooooooooooo

I have a module with some lovely API commands in it if you want?
It has some public functions in there and to sort on a column u use:

ListViewSortOnDate lvwListView, ColumnHeader.Index
ListViewSortOnString lvwListView, ColumnHeader.Index
ListViewSortOnLong lvwListView, ColumnHeader.Index

Although I have found a problem with this recently as when u sort, lvwListview.SelectedItem points at another item

[Wokawidget]

Sorry, u mean text allignment...

lvwListView.ColumnHeaders.Add , "MODULE", "Module", 1900, lvwColumnLeft

U can have the following for columnheader allignment

• 0 - lvwColumnLeft
• 1 - lvwColumnRight
• 2 - lvwColumnCenter

But u can't allign the icon! it just sits there

[darre1]

cheers wokka.

i guess i could align the text to the right and leave the icon to the left

[darre1]

ARGHH!

1st column must be aligned ot the left according to VB. pants pants pants!!!!

[Wokawidget]

Did u ever have a look at the S-Grid on vbAccelerator?
Stuffs the listview into the ground
U can do everything with that grid, and it's free...

[Wokawidget]

Hahahahaha...U r now realising the mistake of using a listview
The 1st column ALWAYS has to be Left alligned...Hahahaha.
Watch out for SubItems and ListSubItems
Each ListItem can have many ListSubItems, one for each column...Hahahaha. Gets messy

ListSubItems are the OBJECT equivalent of SubItems.
You can change color, icons, font, etc, whereas with SubItems u can't...The reason SubItems are there is coz that's how it was 1st designed and they had to keep it in there to support older apps which used it

Sorry

[darre1]

glad i amuse you


j/k

[Wokawidget]

Sorry

j/k???

[darre1]

j/k is shorthand for Just Kidding, or Joking.

in wokkaland its shorthand for Jemima's Kebabhouse

[Wokawidget]

Jibbering Klowns