![\"Datenbasis](\"..\/tl_files\/images\/pic_480_001.png\")
<\/a><\/p>\nBild 1: Datenbasis für das TreeView-Steuerelement<\/p>\n
Formulareinstellungen<\/h2>\n
Das Formular, in dem wir das TreeView<\/b>-Steuerelement anlegen wollen, nennen wir frmKategorienTreeView<\/b>. Die Eigenschaften Datensatzmarkierer<\/b>, Navigationsschaltflächen<\/b>, Bildlaufleisten <\/b>und Trennlinien <\/b>stellen wir allesamt auf Nein <\/b>und Automatisch zentrieren <\/b>auf Ja <\/b>ein.<\/p>\nTreeView hinzufügen<\/h2>\n
Um das TreeView<\/b>-Steuerelement zu einem neuen, leeren Formular hinzuzufügen, wählen Sie aus dem Ribbon den Eintrag Entwurf|Steuerelemente|ActiveX-Steuerelemente <\/b>aus. Im Dialog ActiveX-Steuerelement einfügen <\/b>selektieren Sie dann den Eintrag Microsoft TreeView Control, version 6.0 <\/b>und klicken auf OK<\/b> (siehe Bild 2).<\/p>\n
Bild 2: Einfügen des TreeView-Steuerelements<\/p>\n Das TreeView<\/b>-Steuerelement wird dann ganz klein im linken oberen Bereich des Formularentwurfs eingefügt. Also passen Sie zunächst die Größe an und stellen dann die Verankern<\/b>-Eigenschaften so ein, dass sich das Steuer-element entsprechend Ihren Wünschen mit der änderung der Größe des Formulars anpasst. Wir wählen es so, dass sich die Höhe des TreeView<\/b>-Steuerelements mit dem Formular ändert und legen dazu für die Eigenschaft Vertikaler Anker <\/b>den Wert Beide <\/b>fest (siehe Bild 3). Außerdem stellen wir den Namen des neuen Steuerelements auf ctlTreeView <\/b>ein.<\/p>\n Bild 3: Das Formular mit dem jungfräulichen TreeView-Steuerelement<\/p>\n Die übrigen benötigten Eigenschaften des TreeView<\/b>-Steuerelements stellen wir per VBA beim Laden des Formulars ein. Dort erledigen wir auch das Füllen mit den Daten der Abfrage qryKategorien<\/b>.<\/p>\n Wir wollen ein optisch ansprechendes TreeView<\/b>-Steuerelement erzeugen, also soll dieses auch Icons für die einzelnen Einträge anzeigen. Dazu benötigen wir noch ein Image-List<\/b>-Steuerelement, welches die Bilder für das TreeView<\/b>-Steuerelement verwaltet. Das ImageList<\/b>-Steuerelement fügen wir wie das TreeView<\/b>-Steuerelement zum Formular hinzu. Sie können es an Ort und Stelle belassen, da man es nach dem Anzeigen des Formulars in der Formularansicht ohnehin nicht sieht. Das Steuer-element erhält den Namen ctl-ImageList<\/b>. Klicken Sie dann doppelt auf das Steuer-element, um ein Bild hinzuzufügen.<\/p>\n Auf der ersten Seite des nun erscheinenden Eigenschaften-Dialog stellen Sie die Option zur Auswahl der Bildgröße auf 16 x 16 <\/b>ein (siehe Bild 4).<\/p>\n Bild 4: Einstellungen für das ImageList-Steuerelement<\/p>\n Auf der zweiten Seite klicken Sie auf Insert Picture <\/b>und wählen im nun erscheinenden Dialog die gewünschte Bilddatei aus. Wir verwenden eine .ico<\/b>-Datei namens Folder.ico<\/b>.<\/p>\n Nach dem Einfügen legen wir noch die Eigenschaft Key <\/b>für dieses Bild auf folder <\/b>fest (siehe Bild 5).<\/p>\n Bild 5: Hinzufügen einer Bilddatei<\/p>\n Das Zuweisen des ImageList<\/b>-Steuerelements zum TreeView<\/b>-Steuerelement erledigen wir über den Eigenschaften-Dialog des TreeView<\/b>-Steuerelements. Diesen öffnen Sie über den Kontextmenü-Eintrag TreeCtl-Object|Properties <\/b>des TreeView<\/b>-Steuerelements im Entwurf des Formulars.<\/p>\n Hier finden Sie die Eigenschaft ImageList<\/b> vor. Für diese wählen wir den Namen des von uns hinzugefügten ImageList<\/b>-Steuerelements ctlImageList <\/b>aus (siehe Bild 6).<\/p>\n Bild 6: Festlegen des ImageList-Steuerelements<\/p>\n Die übrigen Eigenschaften stellen wir per VBA in der Ereignisprozedur ein, die durch das Ereignis Beim Laden <\/b>des Formulars ausgelöst wird. Das Ergebnis sieht wie folgt aus:<\/p>\n Die mit dem Schlüsselwort WithEvents <\/b>deklarierte Variable objTreeView <\/b>dient dem Referenzieren des TreeView<\/b>-Steuerelements und für das spätere Anlegen von Ereignisprozeduren für dieses Steuer-element. Die Form_Load<\/b>-Prozedur weist dieser Variablen zunächst das Steuerelement zu, was nicht einfach über den Namen des Steuerelements geschieht – bei ActiveX-Steuerelementen ist zusätzlich die Angabe der Eigenschaft Object <\/b>nötig.<\/p>\n Die Prozedur stellt einige Eigenschaften des Steuerelements ein, zum Beispiel das Aussehen auf Flat <\/b>statt 3d<\/b>, die Rahmenart, das Verhalten bei Drag and Drop, den Stil (Plus-\/Minuszeichen, Icons und Text) sowie den Stil der Linien. Wenn Sie die Unterschiede sehen wollen, können Sie mit diesen Eigenschaften experimentieren.<\/p>\n Außerdem ruft diese Prozedur die Routine TreeViewFuellen <\/b>auf. Diese finden Sie in Listing 1. Die Prozedur leert zunächst das TreeView<\/b>-Steuerelement mit der Clear<\/b>-Methode der Nodes<\/b>-Auflistung.<\/p>\n Listing 1: Füllen der ersten Ebene des TreeView-Steuerelements<\/p>\n Dann füllt es ein Recordset<\/b>-Objekt mit allen Datensätzen der Abrage qryKategorien<\/b>, deren Feld ParentKategorieID <\/b>leer ist. Damit erhalten wir alle Datensätze der ersten Ebene, also diejenigen, die keine übergeordneten Kategorien aufweisen. Diese durchläuft die Prozedur in einer Do While<\/b>-Schleife.<\/p>\n Innerhalb der Schleife geschehen zwei Dinge:<\/p>\n Listing 2: Füllen der weiteren Ebenen des TreeView-Steuerelements<\/p>\n<\/ul>\n Die Prozedur TreeViewFuellen_Rek <\/b>erwartet mit db <\/b>einen Verweis auf das Database<\/b>-Objekt der aktuellen Datenbank sowie mit lngParentID <\/b>den Primärschlüsselwert des Elements, dessen untergeordnete Elemente in dieser Prozedur angelegt werden sollen.<\/p>\n Die Prozedur durchläuft wiederum die Datensätze eines Recordsets. Diesmal enthält das Recordset jedoch nicht alle Datensätze, die kein übergeordnetes Element enthalten, sondern diejenigen, deren übergeordnetes Element das mit lngParentID <\/b>übergebene ist. Innerhalb der folgenden Do While<\/b>-Schleife wird jeweils ein Element dem TreeView<\/b>-Steuerelement hinzugefügt.<\/p>\n Während wir in der Prozedur TreeViewFuellen <\/b>die ersten beiden Parameter der Add<\/b>-Methode der Nodes<\/b>-Auflistung leer lassen konnten, müssen wir diese nun füllen, um die Verwandschaftsbeziehung zwischen den Elementen anzugeben. Also füllen wir den ersten Parameter mit dem Key<\/b>-Wert des Elements, dem wir das neue Element unterordnen wollen. Diesen Keywert stellen wir aus dem Buchstaben a <\/b>und dem mit lngParentID <\/b>gelieferten Primärschlüsselwert des übergeordneten Elements zusammen. Der zweite Parameter gibt das Verwandtschaftsverhältnis an, in diesem Fall tvwChild <\/b>für ein untergeordnetes Element. Die übrigen Parameter füllen wir wie bereits für die aufrufende Prozedur beschrieben.<\/p>\n Danach rufen wir erneut die Prozedur TreeViewFuellen_Rek <\/b>auf. Diese ruft sich erst dann nicht mehr selbst auf, wenn das ermittelte Recordset der untergeordneten Elemente leer ist. Auf diese Weise füllen wir das TreeView<\/b>-Steuerelement, das anschließend wie in Bild 7 aussieht.<\/p>\n Bild 7: Aussehen des TreeView-Steuerelements nach dem öffnen<\/p>\n Klappen wir die untergeordneten Elemente per Mausklick auf die Plus<\/b>-Zeichen auf, erhalten wir das TreeView<\/b>-Steuerelement aus Bild 8.<\/p>\n Bild 8: Aussehen des TreeView-Steuerelements mit aufgeklappten Unterelementen<\/p>\n Wenn Sie nun ein Element hinzufügen wollen, finden Sie keine eingebaute Funktion für diesen Zweck vor – wir müssen diese komplett selbst erzeugen. Hierbei unterscheiden wir zwischen zwei Fällen:<\/p>\n Beides wollen wir über Kontextmenüs erledigen, weil dies die ergonomischste Variante ist. Um mit Kontextmenüs zu arbeiten, benötigen wir einen Verweis auf die Bibliothek Microsoft Office x.0 Object Library<\/b>, die unter Access 2016 im Verweise<\/b>-Dialog (VBA-Editor, Menüeintrag Extras|Verweise<\/b>) unter office <\/b>abgelegt ist (siehe Bild 9).<\/p>\n Bild 9: Hinzufügen eines Verweises auf die Office-Bibliothek<\/p>\n Dann fügen wir eine Prozedur hinzu, die beim Anklicken des TreeView<\/b>-Steuerelements mit der Maus ausgelöst wird. Diese Prozedur wird durch das Ereignis MouseDown <\/b>ausgelöst. Die passende Ereignisprozedur legen wir an, indem Sie im Codefenster der Klasse Form_frmKategorienTreeView <\/b>im linken Kombinationsfeld den Eintrag ctlTreeView <\/b>auswählen und im rechten den Eintrag MouseDown<\/b>.<\/p>\n Dies erstellt dann automatisch die gewünschte Ereignisprozedur, die wir dann wie in Listing 3 füllen.<\/p>\n Listing 3: Aufrufen von Kontextmenüs<\/p>\n Wir wollen, dass beim Anklicken eines der vorhanden Einträge ein Kontextmenü angezeigt wird, dass die folgenden Befehle anzeigt:<\/p>\n Beim Anklicken des leeren Raumes im TreeView<\/b>-Steuerelement soll ein Kontextmenü mit dem Befehl Kategorie einfügen <\/b>anzeigen. Wir benötigen also zwei Kontextmenüs. <\/p>\n Um dies zu erledigen, prüfen wir in der Prozedur ctlTreeView_MouseDown<\/b> zunächst, mit welcher Maustaste der Benutzer das TreeView<\/b>-Steuerelement angeklickt hat. Nur im Falle der rechten Maustaste sollen die weiteren Anweisungen der Prozedur ausgeführt werden, was wir durch eine entsprechende If…Then<\/b>-Bedingung absichern. Hat der Benutzer das TreeView<\/b>-Steuerelement mit der rechten Maustaste angeklickt, untersuchen wir, ob er ein Element angeklickt hat oder den freien Raum im TreeView<\/b>-Steuerelement. Dazu führen wir die HitTest<\/b>-Funktion aus und übergeben die mit den Parametern x <\/b>und y <\/b>mitgegebene Position des Mausklicks als Parameter. Hat der Benutzer einen der Einträge angeklickt, ist objNode <\/b>anschließend mit einem Verweis auf diesen Eintrag gefüllt.<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span><\/a><\/p>\n<\/a><\/p>\nImageList-Steuerelement hinzufügen<\/h2>\n
<\/a><\/p>\n<\/a><\/p>\nImageList-Steuerelement zuweisen<\/h2>\n
<\/a><\/p>\nWeitere TreeView-Eigenschaften einstellen<\/h2>\n
Dim <\/span>WithEvents objTreeView As <\/span>MSComctlLib.TreeView\r\nPrivate Sub <\/span>Form_Load()\r\n Set<\/span> objTreeView = Me!ctlTreeView.Object\r\n With<\/span> objTreeView\r\n .Appearance = ccFlat\r\n .BorderStyle = ccNone\r\n .OLEDragMode = ccOLEDragAutomatic\r\n .OLEDropMode = ccOLEDropManual\r\n .Style = tvwTreelinesPlusMinusPictureText\r\n .LineStyle = tvwRootLines\r\n End With<\/span>\r\n TreeViewFuellen\r\nEnd Sub<\/span><\/pre>\nTreeView füllen<\/h2>\n
Private Sub <\/span>TreeViewFuellen()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Set<\/span> db = CurrentDb\r\n objTreeView.Nodes.Clear\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT * FROM qryKategorien WHERE ParentKategorieID IS NULL\", dbOpenDynaset)\r\n Do While<\/span> Not<\/span> rst.EOF\r\n objTreeView.Nodes.Add , , \"k\" & rst!kategorieID, rst!Kategorie, \"folder\"\r\n TreeViewFuellen_Rek db, rst!kategorieID\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\nEnd Sub<\/span><\/pre>\n\n
Private Sub <\/span>TreeViewFuellen_Rek(db As <\/span>DAO.Database, lngParentID As Long<\/span>)\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT * FROM qryKategorien WHERE parentKategorieID = \" & lngParentID, dbOpenDynaset)\r\n Do While<\/span> Not<\/span> rst.EOF\r\n objTreeView.Nodes.Add \"k\" & lngParentID, tvwChild, \"k\" & rst!kategorieID, rst!Kategorie, \"folder\"\r\n TreeViewFuellen_Rek db, rst!kategorieID\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\nEnd Sub<\/span><\/pre>\nUntergeordnete Elemente hinzufügen<\/h2>\n
<\/a><\/p>\n<\/a><\/p>\nElemente hinzufügen<\/h2>\n
\n
<\/a><\/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 Dim <\/span>strTyp As String<\/span>\r\n Dim <\/span>lngID As Long<\/span>\r\n Dim <\/span>strText As String<\/span>\r\n Dim <\/span>objNode As <\/span>MSComctlLib.Node\r\n Select Case Button\r\n Case <\/span>acRightButton\r\n Set<\/span> objNode = objTreeView.HitTest(x, y)\r\n If <\/span>Not<\/span> objNode Is Nothing Then<\/span>\r\n strTyp = Left<\/span>(objNode.Key, 1)\r\n lngID = Mid<\/span>(objNode.Key, 2)\r\n strText = objNode.Text\r\n Select Case strTyp\r\n Case <\/span>\"k\"\r\n KontextmenueKategorieAnzeigen lngID, strText\r\n End Select<\/span>\r\n Else<\/span>\r\n KontextmenueRootAnzeigen\r\n End If<\/span>\r\n End Select<\/span>\r\nEnd Sub<\/span><\/pre>\n\n
\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