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.

 

[Richard Schollar]

Hi Rasm

For 1) I think you'd need to make the whole Userform resizeable - without using the Windows API, you can only do this thru code. One very cool way of doing this is by Andy Pope's code here:

http://www.andypope.info/vba/resizeform.htm

2) You will need to design a custom sorting routine (eg a bubblesort) and refresh the list dynamically when the user eg clicked a sort button on the Userform.

 

[RoryA]

If you can use a ListView control instead, it's a lot easier. 1 is built-in and 2 only takes a little code.

 

[Rasm]

Roray

ohhh - just checked the properties for Listview - that sounds like what I need - Thanks

Richard
Thanks for link - I will check it as well - But sounds like Listview may be the ticket for what I am doing - Thanks

 

[Rasm]

Roray

That Listview is just what I needed - hehehe - does it have an explore bar option for sorting or do I need to code that myself?

I notice a sort option - but looks like you need to set a key for what column to use. Guess you cannot have it all.

Great stuff - thanks

 

[Rasm]

Richard - That resize code for the userforms works great - this forum is fantatstic - thanks.

 

[RoryA]

The code for sorting is minimal - I will post it when I'm back in front of a computer.

 

[Rasm]

Fantatstic - just learning how to use the Listview - it is very cool.

 

[Norie]

Rasm

You can add buttons for the sorting or try the ListView's ColumnClick event.

Private Sub lvAgreements_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
    lvAgreements.SortKey = ColumnHeader.Index - 1
    lvAgreements.Sorted = True
End Sub[code]
You could probably use that to do something with the column header to indicate if it's the one being sorted by.
 
For example change the icon in the heading, that might be a bit more complicated and I think you'd need to add a Image List control for the icons.
 
PS You can use icons in the list as well.

 

[Rasm]

Will try in a bit - TYVM