Listbox in array auslesen

[Lisa Hahn]

Hallo, ich habe 2 Listbox. Ich möchte die selektierte Einträge einer Listbox1 in eine andere Listbox2 schreiben. Schon beim Übertragen der selekt. Einträge möchte ich diese Einträge zusetzlich in ein Array schreiben und konntrollieren, ob der selektierte Eintrag der Listbox1 schon in der Listbox2 vorhanden ist. Der bisherige Code selektiert Einträge der Listbox1 und (durch Klicken eines Button´s), schreibt er die Auswahl in die Listbox2. Ich mache beim Übergeben der sel. Einträge in ein Array einen Fehler und das Überprüfen, ob der Eintrag schon in der Listbox2 ist geht nicht
Code:<PRE>
Dim i As Integer
Dim j As Integer = 0
Dim listbox_arr() As String
For i = 0 To ListBox1.Items.Count - 1
ReDim Preserve listbox_arr(j)
If ListBox1.Items(i).Selected Then
ListBox2_selection.Items.Add(ListBox1.Items(i))
listbox_arr(j) = listBox2_selection.SelectedValue

j = j + 1
End If
Next</PRE>

Danke für die Hilfe

[Peter Scheurich]

Hallo Lisa,

mit dem folgenden code sollte das eigentlich funktionieren.

<PRE>
Dim strArray As String()
Dim strItem As String
Dim i As Integer
Dim j As Integer = 0

For i = 0 To ListBox1.Items.Count() - 1
If ListBox1.GetSelected(i) Then
strItem = ListBox1.Items(i)
If ListBox2.Items.IndexOf(strItem) = -1 Then
ListBox2.Items.Add(strItem)
ReDim Preserve strArray(j)
strArray(j) = strItem
j += 1
End If
End If
Next
</PRE>

Gruß Pete