Listview sorting *Resolved*

[manavo11]

I found some code from kleinma (I think) for sorting a listview... Here is part of the code :

Private Sub lvDisks_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
    Call ClearHeaderIcons(ColumnHeader.Index)
    Select Case ColumnHeader.Index
        Case 2, 3, 5, 6, 7, 9, 10, 11, 12, 13
            Select Case ColumnHeader.Icon
                Case "down"
                    ColumnHeader.Icon = "up"
                    Call SortColumn(lvDisks, ColumnHeader.Index, sortDescending, sortString)
                Case "up"
                    ColumnHeader.Icon = "down"
                    Call SortColumn(lvDisks, ColumnHeader.Index, sortAscending, sortString)
                Case Else
                    ColumnHeader.Icon = "down"
                    Call SortColumn(lvDisks, ColumnHeader.Index, sortAscending, sortString)
            End Select
        Case 1, 4, 8
            Select Case ColumnHeader.Icon
                Case "down"
                    ColumnHeader.Icon = "up"
                    Call SortColumn(lvDisks, ColumnHeader.Index, sortDescending, sortNumber)
                Case "up"
                    ColumnHeader.Icon = "down"
                    Call SortColumn(lvDisks, ColumnHeader.Index, sortAscending, sortNumber)
                Case Else
                    ColumnHeader.Icon = "down"
                    Call SortColumn(lvDisks, ColumnHeader.Index, sortAscending, sortNumber)
            End Select
    End Select
    
    Set SortIndex = ColumnHeader
End Sub

This works just fine, but that is when the user clicks on a column. How would I sort on form_load though? I tried calling the sub, but I couldn't get it to work. Any ideas?

[RobDog888]

You called it like this and it didnt work?

lvDisks_ColumnClick 2

Maybe you can only sort when the lv is finished loading, like in another event,
Form_Activate? Then disable it after first sort so it doesnt keep firing
everytime its activated. Or maybe use a timer so it fires after 250 ms after
its loaded?

[manavo11]

I get a type mismatch with Call lvDisks_ColumnClick(2)...

I kind of wanted to create a ColumnHeader As MSComctlLib.ColumnHeader but I couldn't...

[brucevde]

Set a reference to a ColumnHeader and pass that to the event.

Dim oColumnHeader As MSComctlLib.ColumnHeader
Set oColumnHeader = ListView1.ColumnHeaders(2)

Call ListView1_ColumnClick(oColumnHeader)

Set oColumnHeader = Nothing

[manavo11]

Set a reference to a ColumnHeader and pass that to the event.

Dim oColumnHeader As MSComctlLib.ColumnHeader
Set oColumnHeader = ListView1.ColumnHeaders(2)

Call ListView1_ColumnClick(oColumnHeader)

Set oColumnHeader = Nothing

Set oColumnHeader = ListView1.ColumnHeaders(2) is what I couldn't figure out... Thanks Bruce