Moin moin, ich hoffe Ihr könnt mir weiter helfen..
Ich habe ca. 50 Listboxen, die 2 Hauptlistboxen beziehen ihr Daten aus einer Exel. Von dort aus können die Daten zu den anderen Listboxen per drag and drop gezogen und von dort aus auch in andere gezogen werden was Problemlos funktioniert.
Nun soll es eigentlich so sein das sich die Elelemte nur in 2 "Listboxgruppen" bewegen dürfen sollen. Also das Elemente aus den Lisboxen aus der Gruppe A in jede Listbox der Gruppe A gezogen werden können, aber nicht in Listboxen der Gruppe B. Gleiches natürlich auch umgekehrt.
Leider komme ich da nicht weiter, ich habe schon einiges mit BoxGroup ausprobiert aber zu keinen Ergebnis gekommen...
So sieht der DragDrop Code aus für die ca.50 Listboxen.
Mfg Pico
Ich habe ca. 50 Listboxen, die 2 Hauptlistboxen beziehen ihr Daten aus einer Exel. Von dort aus können die Daten zu den anderen Listboxen per drag and drop gezogen und von dort aus auch in andere gezogen werden was Problemlos funktioniert.
Nun soll es eigentlich so sein das sich die Elelemte nur in 2 "Listboxgruppen" bewegen dürfen sollen. Also das Elemente aus den Lisboxen aus der Gruppe A in jede Listbox der Gruppe A gezogen werden können, aber nicht in Listboxen der Gruppe B. Gleiches natürlich auch umgekehrt.
Leider komme ich da nicht weiter, ich habe schon einiges mit BoxGroup ausprobiert aber zu keinen Ergebnis gekommen...
So sieht der DragDrop Code aus für die ca.50 Listboxen.
VB.NET-Quellcode
- Private Sub ListBox1_MouseDown(sender As Object, e As Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDown
- If (ListBox1.Items.Count = 0) Then
- Return
- Else
- Dim selecteddata As String = ListBox1.Items(ListBox1.SelectedIndex.ToString())
- Dim dde As DragDropEffects
- dde = DoDragDrop(selecteddata, DragDropEffects.Move)
- If (dde = DragDropEffects.Move) Then
- ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
- End If
- End If
- End Sub
- Private Sub ListBox1_DragDrop(sender As Object, e As DragEventArgs) Handles ListBox1.DragDrop
- If (e.Data.GetDataPresent(DataFormats.StringFormat)) Then
- Dim str As String = CStr(e.Data.GetData(DataFormats.StringFormat))
- ListBox1.Items.Add(str)
- End If
- End Sub
- Private Sub ListBox1_DragOver(sender As Object, e As DragEventArgs) Handles ListBox1.DragOver
- e.Effect = DragDropEffects.Move
- End Sub
Mfg Pico