Listenfeld ausschneiden und einfügen

[Death~]

Lies einfach nochmal die Posts durch.

Also ich habe in Visual Basic 2 Listboxen und 2 Buttons. Mit dem einen Button, löscht es den ausgewählten Eintrag von LB1 und fügt ihn in LB2 ein, der andere genau das Gegenteil.

Also du packst diesen Teil:

 Dim selectedMulti = ListBox1.SelectedItems
        If selectedMulti.Count > 0 Then
            Dim strlist As New ArrayList
            For Each eintrag In selectedMulti
                strlist.Add(eintrag)
            Next
            For Each selection In strlist
                ListBox1.Items.Remove(selection)
                ListBox2.Items.Add(selection)
            Next
        End If

in die Sub des ersten Buttons. Dann diesen Teil:

 Dim selectedMulti2 = ListBox2.SelectedItems
        If selectedMulti2.Count > 0 Then
            Dim strlist2 As New ArrayList
            For Each eintrag In selectedMulti2
                strlist2.Add(eintrag)
            Next
            For Each selection In strlist2
                ListBox2.Items.Remove(selection)
                ListBox1.Items.Add(selection)
            Next
        End If

in die Sub des zweiten Buttons.

Nichts anderes habe ich oben gesagt.