Ich bin gerade dabei eine Einteilungsliste via Drag und Drop zu Programmiren. Da ihr mir dabei bereits schon einmal super geholfen habt, hoffe ich ein weiteres mal aus eure Hilfe. Die Grundfunktionen in meiner Programmierung funktionieren bereits einwandfrei, das heißt ich kann per Drag und Drop ein Element in eine andere Liste verschieben und dabei vertauschen. Um das ganze jetzt auf eine Liste mit ca. 30 Einträgen zu erweitern möchte ich nun gerne ein Steuerelement via Variable ansprechen.
Private Sub ListView1_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As _
Integer, Shift As Integer, x As Single, y As Single)
If Not DragSource Is ListView1 Then
' Eintrag Auslesen
If Data.GetFormat(ccCFText) Then
ListView1.ListItems.Add , , Data.GetData(ccCFText)
' Einträge Tauschen
'2>1
If Right(Me.Selected(0).Name, 1) = 2 Then
ListView2.ListItems.Add , , ListView1.ListItems(1)
ListView1.ListItems.Remove (1)
ListView2.ListItems.Remove (1)
End If
'3>1
If Right(Me.Selected(0).Name, 1) = 3 Then
ListView3.ListItems.Add , , ListView1.ListItems(1)
ListView1.ListItems.Remove (1)
ListView3.ListItems.Remove (1)
End If
'4>1
If Right(Me.Selected(0).Name, 1) = 4 Then
ListView4.ListItems.Add , , ListView1.ListItems(1)
ListView1.ListItems.Remove (1)
ListView4.ListItems.Remove (1)
End If
End If
End If
End Sub
Also anstatt "ListView1.ListItems" -> "ListView(var).ListItems"
Somit erspare ich mir bei der Erweiterung aus ca. 30 Listen viel Schreibarbeit.
Ich hoffe ich habe mich verständlich ausdrücken können.
https://www.herber.de/bbs/user/114462.xls