{"id":55000635,"date":"2008-12-01T00:00:00","date_gmt":"2021-02-11T21:23:28","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=635"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"TreeView_nach_Bedarf_fuellen","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/TreeView_nach_Bedarf_fuellen\/","title":{"rendered":"TreeView nach Bedarf füllen"},"content":{"rendered":"

\"\"<\/p>\n

Das TreeView-Steuerelement ist die unangefochtene Nummer eins, wenn es um die Anzeige hierarchischer Daten geht. Es hat aber gegenüber den eingebauten Steuerelementen von Access den Nachteil, dass Sie es nicht an eine Datenherkunft binden können und somit selbst für das Füllen verantwortlich sind. Dies dauert mit wachsender Datenmenge recht lange, daher zeigen wir Ihnen, wie Sie die Daten des TreeView-Elements erst bei Bedarf laden.<\/b><\/p>\n

Je nachdem, wie Sie ein TreeView gestalten, kann das Füllen schon einige Sekunden in Anspruch nehmen. Das gilt insbesondere dann, wenn Sie auch noch benutzerdefinierte Icons verwenden, die zur Laufzeit noch ein ein ImageList<\/b>-Steuerelement geladen werden. Gestalterische Spielereien bleiben in diesem Beitrag jedoch außen vor. Wir verwenden eine möglichst einfache Datenstruktur, um Ihnen die für das performante Füllen von TreeView-Steuerelementen benötigten Techniken vorzustellen.<\/p>\n

Beispieldaten<\/b><\/p>\n

Die verwendeten Tabellen sehen daher sehr schlicht aus und sollen eine reflexive Beziehung der Mitglieder einer einzigen Tabelle wiedergeben. Dies geschieht nicht über ein Fremdschlüsselfeld der Haupttabelle, das mit dem Primärschlüsselfeld der gleichen Tabelle verknüpft ist, sondern über eine zusätzliche Verknüpfungstabelle. Das Datenmodell sieht wie in Bild 1 aus. Die Tabelle tblElemente <\/b>enthält neben der ID <\/b>als Primärschlüsselfeld noch ein Feld namens Element <\/b>für die Bezeichnung und eine ImageID<\/b>, die sich auf eines der anzuzeigenden Icons bezieht – dazu später mehr.<\/p>\n

\"abb001.tif\"<\/p>\n

Bild 1: Datenmodell der reflexiven Beziehung als Grundlage für das Füllen eines TreeView-Steuerelements<\/span><\/b><\/p>\n

Für Testzwecke haben wir diese Tabellen mit 2.000 Elementen und fast ebenso vielen Zuordnungen gefüllt (einige Elemente sind Root-Elemente und keinem anderen Element untergeordnet). Damit kommt ein Füllvorgang zustande, der je nach System eine oder mehrere Sekunden dauert; das reicht aus, um eine merkliche Verzögerung beim Laden festzustellen. Die Routine zum Füllen der Tabellen mit Testdaten können Sie im Modul mdlTestdaten <\/b>der Beispieldatenbank einsehen.<\/p>\n

TreeView mit kompletter Füllung<\/b><\/p>\n

Im ersten Schritt schauen wir uns ein auf normale Weise gefülltes TreeView-Steuerelement an, was bedeutet, dass dieses auf einen Rutsch mit allen Daten gefüllt wird. Das Ergebnis soll wie in Bild 2 aussehen (das gleiche Ergebnis wird auch später für die optimierte Variante angestrebt). Die Elemente des TreeViews sollen jeweils mit einer von acht möglichen Flaggen als Icon versehen werden, wozu Sie zum Formular neben dem TreeView<\/b>-Steuerelement, das den Namen ctlTreeView <\/b>erhält, noch ein ImageList<\/b>-Steuerelement namens ctlImageList <\/b>hinzufügen (siehe Bild 3) und dieses für die Eigenschaft ImageList <\/b>des TreeView-Steuerelements auswählen.<\/p>\n

\"abb003.tif\"<\/p>\n

Bild 2: TreeView mit einigen Beispiel-Elementen<\/span><\/b><\/p>\n

\"abb002.tif\"<\/p>\n

Bild 3: ImageList-Steuerelement mit den Icons für die TreeView-Einträge<\/span><\/b><\/p>\n

Danach kann es schon losgehen: Im Klassenmodul des Formulars deklarieren wir an zentraler Stelle zunächst eine Objektvariablen für das TreeView<\/b>-Steuerelement:<\/p>\n

Dim objTreeView As µ\r\nMSComctlLib.TreeView<\/pre>\n
Das TreeView-Steuerelement soll direkt beim Öffnen des Formulars gefüllt werden. Intuitiv verwendet man hier gern die durch das Ereignis Beim Öffnen <\/b>ausgelöste Ereignisprozedur, was aber in vielen Fällen Probleme verursacht – vor allem im Zusammenhang mit ActiveX-Steuerelementen wie dem TreeView<\/b>– und dem ListView<\/b>-Steuerelement.<\/p>\n
Verwenden Sie hier das Ereignis Beim Laden<\/b>: Zum Zeitpunkt des Aufrufs dieses Ereignisses sind alle für das Füllen von ActiveX-Steuerelementen benötigten Elemente sicher initialisiert. In der entsprechenden Ereignisprozedur rufen Sie einfach nur eine weitere Routine auf:<\/p>\n
Private Sub Form_Load()\r\n    FillTree\r\n    End Sub<\/pre>\n
Sie könnten das Füllen des TreeView-Steuerelements mit einer einzigen Routine auskommen (siehe frmTreeViewStandard_Einfach<\/b>), schneller geht es aber mit einer rekursiven Funktion – also einer Funktion, die sich selbst immer wieder aufruft, bis alle Elemente der Hierarchie abgearbeitet sind.<\/p>\n
<\/p>\n
Die Routine FillTree <\/b>erledigt diese Aufgabe noch nicht. Sie füllt das TreeView<\/b>-Steuerelement lediglich mit den Elementen, die kein übergeordnetes Element besitzen, deren ID <\/b>also in der Tabelle tblZuordnungen <\/b>nicht in der Spalte ChildID <\/b>vorkommt.<\/p>\n
Die Routine deklariert und instanziert zunächst einige Objekte (s. Listing 1):<\/p>\n
Listing 1: TreeView-Füllen, die Basis-Funktion<\/p>\n
Private Sub FillTree()\r\n    Dim db As DAO.Database\r\n    Dim rst As DAO.Recordset\r\n    Set db = CurrentDb\r\n    Set objTreeView = Me.ctlTreeView.Object\r\n    Set rst = db.OpenRecordset("SELECT * FROM qryRootelements", dbOpenDynaset)\r\n    Do While Not rst.EOF\r\n        objTreeView.Nodes.Add , , "e" & rst!ID, rst!Element, CLng(rst!ImageID)\r\n        FillTreeRecursive rst!ID, db\r\n        rst.MoveNext\r\n    Loop\r\n    End Sub<\/pre>\n