Access style multi-column listbox

[bcass]

I'm in the process of converting an Access 2000 front-end to VB6. I've got quite a bit of VBA experience, but am only just starting out with VB6. Anyway, I've already hit a bit of a stumbling block as I notice that VB6 listboxes do not behave the same way as Access listboxes. The Access front-end I need to convert uses them extensively as listboxes tend to work faster than continuous forms (in Access). Is there an accepted way I should be converting the Access listboxes to VB6? I've done a lot of searching, but to no avail. I need to have multi-column listboxes that also have a hidden column (key field). For example, I have a list of clients in a listbox, and when the user double clicks on a client, the hidden column (key field) is used to populate the rest of the form. Any help much appreciated.

[Hack]

Welcome to the forums.

There are no multi column Listboxes in VB6. This is something I've always felt was sorely lacking and yet another cause for me to believe that often the development teams never talked to each other.

Anyway, in VB6, use the ListView control. It will do what you need.

[bcass]

Thanks, the ListView control seems exactly what I was looking for. And thanks for the welcome!

[Hack]

You are welcome.

The ListView syntax differs somewhat from the ListBox, but if you run into any issues, just post a question.

If you consider this resolved, you could help us out by pulling down the Thread Tools menu and clicking the Mark Thread Resolved menu item. That will let everyone know that you have your answer.

Thank you.

[bcass]

I've managed to populate the ListView with items from a recordset, however, how can I obtain the Key value of the selected item (for example, when the user double clicks an item)? Also, I noticed that when assigning a Key, it has to contain an alpha character, it wouldn't accept a numerical value. I tried converting the numerical value to a string but it still wouldn't let me use it unless I put an alpha-prefix before the number.

[RobDog888]

You can check for the items selected by looping through the ListItems collection checking for the .Selected property to be true.

[bcass]

Is there a simpler method if the user can only select one item at a time?

[RobDog888]

Well a combo box control is the simpliest but only single column'ed. A listview is really not that difficult to work with.

[anhn]

Is there a simpler method if the user can only select one item at a time?

From ListView Properties window, uncheck [ ] Multi Select box.
or by code:

ListView1.MultiSelect = False

[bcass]

Sorry, I just meant how could I get the Key value of the item the user selected, here's how I ended up doing it:

lvwViewList.SelectedItem.Key

However, now I'm stuck again - how can I change the width of the column (I only have 1 column in this particular ViewList)? Also, I am not showing ColumnHeaders, if that makes any difference?

[brucevde]

ListView1.ColumnHeaders(1).Width = 3000

I've managed to populate the ListView with items from a recordset, however, how can I obtain the Key value of the selected item (for example, when the user double clicks an item)?

You could use the ListItem.Tag property. The Tag property is a Variant and can contain any data type required by an application.

Private Sub Form_Load()
    Dim oItem As ListItem
    Set oItem = ListView1.ListItems.Add(, , "Some Text")
    oItem.Tag = 12345
End Sub

Private Sub ListView1_DblClick()
    MsgBox ListView1.SelectedItem.Tag
End Sub

[bcass]

ListView1.ColumnHeaders(1).Width = 3000

I actually tried that before posting, but I get the error "Index out of bounds". I'm using the lvwReport View of the ListView if that might be affecting anything?

[brucevde]

You must have at least 1 Column when using lvwReport view.
ColumnHeaders is a collection and collections are 1 based.

[bcass]

I have 1 column (the data is showing) but I'm not showing ColumnHeader. Are you saying it can only be done if you show the ColumnHeader?

[anhn]

With or without showing column headers, you always can set ColumnHeaders(1).Width = ...

[bcass]

Any idea why I'm getting the "Index out of bounds" error message then?

[leinad31]

.Text is column 1
.Subitems(1) or .ListSubItems(1) is column 2
.Subitems(2) or .ListSubItems(2) is column 3

and so on and so forth... you can check with ListView1.ColumnHeaders.Count adjusted accordingly (less 1 in order to correspond with indices of Subitems).

As to the error with ColumnHeaders collection, how did you create the column? In the IDE at design time or programmatically at run-time... if at run-time, was the column already created before you tried changing the width? Are you referencing the correct listview in the GUI?

As to the listitem key, you can easily get rid of the prepended character with Mid(Key, 2) to get the numeric ID rather than iterating through the listview.

[bcass]

As to the listitem key, you can easily get rid of the prepended character with Mid(Key, 2) to get the numeric ID rather than iterating through the listview.

Yep, that's what I'd already ended up doing. Just seemed a bit odd that I couldn't use only a numerical value, even when it was assigned to a string variable.

Anyway, I found out what the problem was with setting the ColumnHeaders - I was trying to define the column width before adding any items to the ListView... I tried it after adding items, and it works perfectly. Thanks for all the help.

[aikidokid]

Just something I came across, so if somebody is searching this thread at a later date here is a multicolumn (and more) listbox.