Private Sub <\/span>Form_Load()\r\n Set<\/span> m_TreeView = Me!ctlTreeview.Object\r\n With<\/span> objTreeView\r\n ...\r\n .OLEDragMode = ccOLEDragAutomatic\r\n .OLEDropMode = ccOLEDropManual\r\n End With<\/span>\r\n ...\r\nEnd Sub<\/span><\/pre>\nWir verwenden das TreeView, das wir im Artikel Kategorien per TreeView verwalten erstellt haben, als Basis für die Beispiele dieses Artikels (siehe Bild 1).<\/p>\n
![\"Formular-Entwurf](\"..\/tl_files\/images\/pic_482_001.png\")
<\/a><\/p>\nBild 1: Formular-Entwurf unseres Beispielformulars<\/p>\n
Schritte im Drag and Drop-Vorgang<\/h2>\n
Der Start des Drag and Drop-Vorgangs erfolgt, wenn der Benutzer die linke Maustaste auf einem Element des TreeView<\/b>-Steuerelements niederdrückt und das angeklickte Element dann mit der Maus an eine andere Stelle zieht. In diesem Moment wird das Ereignis OLEStartDrag <\/b>ausgelöst.<\/p>\n
Zu diesem Zeitpunkt können Sie erfassen, welches Element der Benutzer ziehen will. Solange er das Element nicht loslässt, wird ständig das Ereignis OLE-Drag-Over <\/b>ausgelöst. Das können Sie dazu nutzen, die gerade überfahrenen potenziellen Ziele zum Loslassen des Elements optisch hervorzuheben.<\/p>\n
Wenn der Benutzer die Maus mit dem gezogenen Element schließlich zur Zielposition bewegt hat und er die Maustaste loslässt, feuert das Ereignis OLEDragDrop<\/b>. Hier ist dann die Gelegenheit, zu ermitteln, auf welches Element der Benutzer das Element fallen lässt und notwendige Schritte durchzuführen. Operationen wie etwa das ändern der übergeordneten Kategorie erfolgen nicht automatisch nur durch das Ziehen eines Elements an eine andere Position.<\/p>\nEreignisprozeduren anlegen<\/h2>\n
Wir wollen zunächst die drei Ereignisprozeduren anlegen, die wir für das Implementieren der Drag and Drop-Funktion benötigen. Dazu wählen Sie im Klassenmodul des Formulars oben im linken Kombinationsfeld den Eintrag mit dem Namen des Steuerelements aus, hier also ctlTreeView<\/b>. Das rechte Kombinationsfeld zeigt dann alle Ereignisse an, die für dieses Steuer-element zur Verfügung stehen (siehe Bild 2).<\/p>\n
![\"Anlegen](\"..\/tl_files\/images\/pic_482_002.png\")
<\/a><\/p>\nBild 2: Anlegen der Ereignisprozeduren<\/p>\n
Wählen Sie hier nacheinander die Einträge OLEDragDrop<\/b>, OLEDragOver <\/b>und OLEStartDrag <\/b>auf, um die drei Ereignisprozeduren anzulegen.<\/p>\nVorarbeit für Drag and Drop<\/h2>\n
Um einen Drag and Drop sauber einzuleiten, müssen Sie beim Start des Vorgangs genau ermitteln, welches Element der Benutzer ziehen will. Normalerweise ermitteln Sie das angeklickte Element mit der Eigenschaft SelectedItem<\/b>. Das geschieht aber erst nach dem Loslassen der Maustaste. Beim Drag and Drop drücken Sie aber die Maustaste herunter und ziehen dann das Element an die gewünschte Stelle. Das heißt, dass das zu bewegende Element nicht zuverlässig markiert ist. Es kann auch sein, dass das Element, das zuvor markiert war, nun von Selected-Item <\/b>geliefert wird.<\/p>\n
Sie müssen also entweder vor dem Drag and Drop einmal einen vollständigen Mausklick auf das Element tätigen, um dieses zunächst sicher zu markieren. Oder Sie ergänzen unsere Prozedur, die wir im oben genannten Artikel zum Anzeigen der Kontextmenüs erstellt haben, um zwei Codezeilen. Diese Prozedur wird durch das Ereignis MouseDown <\/b>ausgelöst (siehe Listing 1). Wir stellen hier die Eigenschaft SelectedItem <\/b>auf das Element ein, das wir mit der Eigenschaft HitTest <\/b>für die mit den Parametern x <\/b>und y <\/b>gelieferten Koordinaten ermitteln. HitTest(x,y)<\/b> liefert das Element, das sich beim Herunterdrücken der Maustaste genau unter dem Mauszeiger befindet. <\/p>\nPrivate Sub <\/span>ctlTreeView_MouseDown(ByVal Button As Integer<\/span>, ByVal Shift As Integer<\/span>, ByVal x As Long<\/span>, ByVal y As Long<\/span>)\r\n ...\r\n Select Case Button\r\n Case <\/span>acRightButton\r\n ...\r\n Case <\/span>acLeftButton\r\n objTreeView.SelectedItem = objTreeView.HitTest(x, y)\r\n End Select<\/span>\r\nEnd Sub<\/span><\/pre>\nListing 1: Markieren des angeklickten Elements<\/p>\n
Damit ausgestattet ist nun sicher das Element markiert, das sich beim Start des Drag and Drop-Vorgangs unter dem Mauszeiger befindet.<\/p>\n
Das Data-Objekt<\/h2>\n
Wenn Sie sich die Signaturen der drei Ereignisprozeduren ansehen, erkennen Sie einen gemeinsamen Parameter, nämlich Data<\/b>.<\/p>\n
Dies ist das Herzstück des Drag and Drop-Vorgangs. Mit ihm können Sie nämlich beim Start des Ziehens eine Information festlegen, die Sie beim Fallenlassen des Elements noch abfragen können. In unserem Fall nutzen wir dies, um den Wert der Eigenschaft Key <\/b>des gezogenen Node<\/b>-Elements zu speichern – und somit die eindeutige Identifizierung dieses Elements. Das Data<\/b>-Objekt stellt zum Speichern der Information die Methode SetData <\/b>zur Verfügung, mit der Sie den Inhalt und den Typ des Inhalts festlegen können.<\/p>\n
Auch die Prozeduren für die Ereignisse OLEDragOver<\/b> und OLEDragDrop<\/b> stellen den Data-Parameter zur Verfügung. Hier wollen Sie den enthaltenen Wert eher abfragen als setzen, deshalb stellt das Data<\/b>-Objekt die Funktion GetData <\/b>zur Verfügung.<\/p>\n
Diese erwartet den Typ der zu ermittelnden Information, hier durch die Konstante ccCFText <\/b>gekennzeichnet.<\/p>\nStarten des Drag and Drop-Vorgangs<\/h2>\n
Damit steigen wir in die beim Ziehen des Mauszeigers bei gedrückter Maustaste ausgelöste Ereignisprozedur ein, nämlich ctlTreeView_OLEStartDrag<\/b> (siehe Listing 2). Hier stellen wir zunächst die Variable objNode <\/b>auf das aktuell ausgewählte Element ein, das wir mit objTreeView.SelectedItem <\/b>ermitteln. Ist objNode <\/b>danach leer, beenden wir die Prozedur mit der Exit Sub<\/b>-Anweisung.<\/p>\nPrivate Sub <\/span>ctlTreeView_OLEDragOver(Data As Object<\/span>, Effect As Long<\/span>, Button As Integer<\/span>, Shift As Integer<\/span>, x As Single<\/span>, _\r\n y As Single<\/span>, State As Integer<\/span>)\r\n Dim <\/span>strData As String<\/span>\r\n Dim <\/span>strDatatype As String<\/span>\r\n If <\/span>Data.GetFormat(ccCFText) = False<\/span> Then<\/span>\r\n Exit Sub<\/span>\r\n End If<\/span>\r\n strData = Data.GetData(ccCFText)\r\n strDatatype = Left<\/span>(strData, 1)\r\n Select Case strDatatype\r\n Case <\/span>\"k\"\r\n Set<\/span> objTreeView.DropHighlight = objTreeView.HitTest(x, y)\r\n End Select<\/span>\r\nEnd Sub<\/span><\/pre>\nListing 2: Diese Methode wird mehrfach während des Drag and Drop ausgelöst.<\/p>\n
Anderenfalls leeren wir das Data<\/b>-Objekt mit der Clear<\/b>-Methode und weisen diesem mit der SetData<\/b>-Methode einen Text zu, und zwar den Wert der Eigenschaft Key <\/b>des Objekts aus objNode<\/b>.<\/p>\n
Der zweite Parameter erhält eine Konstante, die angibt, um welche Art von Information es sich bei dem beim Start von Drag and Drop übergebenen Wert handelt – hier ccCFText <\/b>für einen Text.<\/p>\n
Mit dem zweiten Parameter AllowedEffects <\/b>können wir noch festlegen, welche Effekte später erlaubt sind. Es gibt die folgenden:<\/p>\n\n- ccOLEDropEffectCopy<\/b> (1<\/b>): Das Symbol für den Mauszeiger wird um einen Rahmen und ein Plus-Zeichen ergänzt (+<\/b>).<\/li>\n
- ccOLEDropEffectMove<\/b> (2<\/b>): Das Symbol für den Mauszeiger wird um einen Rahmen ergänzt.<\/li>\n
- ccOLEDropEffectNone<\/b> (0<\/b>): Es wird beim Versuch, zu ziehen, keine Veränderung des Mauszeigers angezeigt und es erfolgt auch kein Drag and Drop.<\/li>\n
- ccOLEDropEffectScroll<\/b> (-2.147.483.648<\/b>): Hierzu konnten wir keine Dokumentation finden.<\/li>\n<\/ul>\n
Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t