listview array problem

[farmer]

I need to populate a listbox of other listview with selected listview
items.although the following code works perfecty I want to use an
Array (for various reasons)

for Each ListItem In listview1.ListItems
If ListItem.Checked = True Then
listbox1.AddItem ListItem.Text
next
So I'm trying to fill an array with listview items. (I need only the
first Item)

Here is The code
Dim varrSel()
Dim i As Integer
Dim cnt As Integer
For Each ListItem In listview1.ListItems

If ListItem.Checked = True Then
cnt = cnt + 1
ReDim Preserve varrSel(1 To cnt)
varrSel(cnt) = ListItem.Text
End If
Next

listbox1.List = varrSel
The only problem is that I can't get it to work

DOES ANYONE HAS A SUGGESTION OF WHAT'S WRONG WITH THE CODE??

[Tom Spink]

Hi Farmer,

Yikes!! ReDimming is a very expensive operation, and I don't recommend you
do that. Instead, use an arraylist...

(Also, Enable Option Strict in your project settings)

' ///
Dim alItems As New ArrayList
Dim liItem As ListItem

For Each liItem In ListView1.Items
If liItem.Checked Then alItems.Add(liItem)
Next
' ///

That code populates 'alItems' with the checked items from your listview.

' ///
For Each liItem In alItems
ListBox1.Items.Add(liItem.Text)
Next
' ///

This then add's the items into the listbox.

=======

As for your code...
1. You must declare varrSel as something, that's why you need Option Strict
On.
2. ListItem isn't declared anywhere.
3. The ListBox does not have a 'List' property.
4. The ListView does not have a 'ListItems' property.

=======

This looks suspiciously like VB6 code... You'll have better luck posting to
a VB6 NG (This is VB.NET), try one of the microsoft.public.vb[.*] groups.

--
HTH,
-- Tom Spink, Über Geek

Please respond to the newsgroup,
so all can benefit

"Chaos, Panic, Disorder, my work here is done"
"farmer" <an*******@hotmail.vom> wrote in message
news:ss********************************@4ax.com...
:
:
: I need to populate a listbox of other listview with selected listview
: items.although the following code works perfecty I want to use an
: Array (for various reasons)
:
: for Each ListItem In listview1.ListItems
: If ListItem.Checked = True Then
: listbox1.AddItem ListItem.Text
: next
:
:
: So I'm trying to fill an array with listview items. (I need only the
: first Item)
:
: Here is The code
:
:
: Dim varrSel()
: Dim i As Integer
: Dim cnt As Integer
:
:
: For Each ListItem In listview1.ListItems
:
: If ListItem.Checked = True Then
: cnt = cnt + 1
: ReDim Preserve varrSel(1 To cnt)
: varrSel(cnt) = ListItem.Text
: End If
: Next
:
: listbox1.List = varrSel
:
:
: The only problem is that I can't get it to work
:
: DOES ANYONE HAS A SUGGESTION OF WHAT'S WRONG WITH THE CODE??
:
:

[Herfried K. Wagner [MVP]]

farmer <an*******@hotmail.vom> scripsit:

I need to populate a listbox of other listview with selected listview
items.although the following code works perfecty I want to use an
Array (for various reasons)

for Each ListItem In listview1.ListItems
If ListItem.Checked = True Then
listbox1.AddItem ListItem.Text
next
So I'm trying to fill an array with listview items. (I need only the
first Item)

Here is The code
Dim varrSel()
Dim i As Integer
Dim cnt As Integer
For Each ListItem In listview1.ListItems

If ListItem.Checked = True Then
cnt = cnt + 1
ReDim Preserve varrSel(1 To cnt)
varrSel(cnt) = ListItem.Text
End If
Next

listbox1.List = varrSel
The only problem is that I can't get it to work

In VB.NET, arrays have indices 0, ..., n. To create an array with n
elements, you can use 'ReDim Preserve varrSel(n - 1)'. Notice that
changing the number of elements in an array is a very costly process
(every time you do that the array will be copied to a new array and the
old array will be deleted). You can use an 'ArrayList' instead of the
array to get a better performance.

--
Herfried K. Wagner
MVP · VB Classic, VB.NET
<http://www.mvps.org/dotnet>