List.ItemData and NewIndex

[ranma_at]

Hello,

does anyone know how to replace the List properties
List.itemdata and List.newindex with the ones from a Listview

I have a list and I want to replace it with a listview, but i cant cause my list uses:

frmMain.List1.ItemData(frmMain.List1.NewIndex) = xx

how would this line be with a listview ?
I tried alot but didnt found anything
thanks...

[Wokawidget]

Dim lvwItem as listitem
 
 Set lvwItem = ListView1.ListItems.Add(,,[Your Text])
 lvwItem.Tag = [Itemdata]
 
 
'OR
 
 Set lvwItem = ListView1.ListItems.Add( , Cstr([ItemData]) & "K", [Your Text])
 
'With this way you can:
 
Set lvwItem = listView1.ListItems.Item(Cstr([ItemData]) & "K")
 
:D

Woka

[ranma_at]

BTW when you post code here, how do you make it look like that i mean i know how to do the 2 lines above and under the code but not the coloring ...

but thanks :-)

[Wokawidget]

http://www.vbforums.com/misc.php?action=bbcode#buttons

Woka

[BruceG]

In a listbox, you can store two possible values per entry: one in the "List" array, which is what the user sees, and one in the "ItemData" array (a number you can store "behind the scenes").
In a ListView, for each ListItem, you have the Text property, as well as any number of SubItems. The number of SubItems is dependent upon how many ColumnHeaders you have defined.

Assuming you have at least two ColumnHeaders defined, you can convert:
List1.AddItem "Bob"
List1.ItemData(List1.NewIndex) = 12345
to:
Dim objLI As ListItem
Set objLI = ListView1.ListItems.Add(, , "Bob")
objLI.SubItems(1) = "12345"

Hope that helps.

[ranma_at]

exactly what i needed - thanks