Rubrik: TextBox, ListBox & ComboBox | 01.07.08 |
Ausgewählte Einträge von einer Listbox in eine andere Listbox verschieben (VB.NET) VB-Version: VB.NET | ||
Views: 17.468 |
Um einen oder mehrere ausgewählte Einträge von einer Listbox in eine andere Listbox zu verschieben benötigen wir ein Projekt mit zwei Listboxen (ListBox1 und ListBox2) sowie zwei Buttons (btnRechts und btnLinks).
Zuerst füllen wir im Form_Load-Ereignis eine Listbox mit Einträgen. Im btnRechts_Click-Ereignis werden alle Einträge der ersten Listbox in einer For-Schleife durchlaufen. Die Items-Auflistung enthält die Indices der einzelnen Elemente. Der Index beginnt beim ersten Element immer mit 0. Daher geht die For-Schleife von 0 bis Items.Count - 1. SelectedItems.Count ermittelt, ob und welche Einträge ausgewählt sind. Anschließend werden diese der zweiten Listbox hinzugefügt. Umgekehrt geht das natürlich genauso von ListBox2 zu ListBox1 (siehe Code im btnLinks_Click-Ereignis).
Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load ' ListBox1 mit Einträgen füllen For i = 1 To 10 ListBox1.Items.Add("Eintrag " & CStr(i)) Next End Sub Private Sub btnRechts_Click(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles btnRechts.Click ' ausgewählte Einträge in ListBox2 verschieben ... For i = 0 To ListBox1.SelectedItems.Count - 1 ListBox2.Items.Add(ListBox1.SelectedItems(i)) Next End Sub Private Sub btnLinks_Click(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles btnLinks.Click ' ausgewählte Einträge in ListBox1 verschieben ... For i = 0 To ListBox2.SelectedItems.Count - 1 ListBox1.Items.Add(ListBox2.SelectedItems(i)) Next End Sub End Class
Wenn Sie nun die in ListBox2 übernommenen Einträge aus der ersten Listbox löschen wollen, benötigen Sie die Methode RemoveAt() und den Index des ausgewählten Eintrags. Hierfür erweitern wir die Click-Ereignisse unserer Buttons:
Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load ' ListBox1 mit Einträgen füllen ... ... End Sub Private Sub btnRechts_Click(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles btnRechts.Click ' ausgewählte Einträge in ListBox2 verschieben ... ... ... ' ... und aus Listbox1 entfernen For i = ListBox1.SelectedItems.Count - 1 To 0 Step -1 ListBox1.Items.RemoveAt(ListBox1.SelectedIndices(i)) Next End Sub Private Sub btnLinks_Click(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles btnLinks.Click ' ausgewählte Einträge in ListBox1 verschieben ... ... ... ' ... und aus ListBox2 entfernen For i = ListBox2.SelectedItems.Count - 1 To 0 Step -1 ListBox2.Items.RemoveAt(ListBox2.SelectedIndices(i)) Next End Sub End Class