VBA- Listbox - ColumnCount>1 - adjust Column width

[Rasm]

I am using a Listbox with a ColumnCount of 5 - I have two questions

1) How to adjust column width using the graphical GUI - similar to what you do when you adjust a column width in Excel itself using the mouse and click and drag.

2) How can I sort the entries in the listbox - is there a property similar to ExploreBar - in other words I would like to click in the header and then it sorts ascending - if you click again it sorts decenting.

 

[RoryA]

To sort ascending/descending:

Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
   With ListView1
      If .SortKey = ColumnHeader.Index - 1 Then
         If .SortOrder = lvwAscending Then
            .SortOrder = lvwDescending
         Else
            .SortOrder = lvwAscending
         End If
      Else
         .SortKey = ColumnHeader.Index - 1
      End If
       .Sorted = True
  End With
End Sub

for example.

 

[Richard Schollar]

That's cool Rory - does using a listview (as opposed to a listbox) ever mean you might run into compatibility issues?

 

[RoryA]

As long as the Common Controls are available, it should be fine - unless you are running 64bit Office!

 

[Rasm]

Guys - I luve it - The Listview is giving me no headaches - it is sweet to work with - I use the .View = 3 Now it looks and feels like a Listbox on steroids - I also used Andy Popes Resizer for the userforms - I added frames on my userform - that way I can resize my objects on the userform as well with less code.

I will check the sort function tom - Thanks

 

[Rasm]

Rorya
That sort function for the headers works briliantly - thanks very much.

 

[Rasm]

All the help you guys gave me - inspired me to prepare an upload on how to use Listview - I am going to going to post it on Excelfox.com - new forum - check it out.

I did encounter a problem with the MScomctl.OCX - somehow the .ColumnHeader in the ColumnClick got broke - but just had to re-reg the OCX.

Thanks again - all this Excel stuff is hurting my poker game time - lol - guess thats good for my vallet.