Lists With Columns

[GlobeTrotter]

Is it possible to create a type of list with multiple columns, that can be dragged around, and stretched, and also sorted based on which title/top row you click on. Similar to this picture, taken from the task manager.

[Brightguy]

Personally I've never used it, but you can do that with the ListView control in report view. (To use the control, add the component "Microsoft Windows Common Controls" into your project.)

I tried it out for a minute and got a test working. Although you have to write the sorting procedure yourself, in the ColumnClick event.

[GlobeTrotter]

I can't seem to make it more than one column, or have the button at the top with the column title.

I tried this to add a column, but it didn't work.

code:

lvTracks.ColumnHeaders.Add = "Test"

How did you get it working?

[Brightguy]

First you have to change the view property to lvwReport.

A lot of design time properties can be set in the "Custom" window. There actually is an option to automatically sort the items. (Which I overlooked.)

[GlobeTrotter]

Okay, I've got a couple of problems. First of all, I can only deal with the first column. I can't seem to add to the other columns, or edit them because I don't know how. For example, if I just put lVW.ListItems.Add = "1" It will add a 1 to the first row/column, but how do I do the 2nd. My other question, I realized how to sort the things, but why won't this code work?

code:

Private Sub lvwTracks_ColumnClick(ByVal ColumnHeader As ComctlLib.ColumnHeader)     lvwTracks.SortKey = ColumnHeader.Key     If lvwTracks.SortOrder = lvwAscending Then         lvwTracks.SortOrder = lvwDescending     Else         lvwTracks.SortOrder = lvlAscending     End If End Sub

[Brightguy]

Try this:

VisualBASIC:

lvwTracks.ListItems.Add.SubItems(1) = "2nd column"

And:

VisualBASIC:

lvwTracks.SortKey = ColumnHeader.Index - 1

[GlobeTrotter]

Thanks.