<\/p>\n
Autor: André Minhorst, Duisburg<\/p>\n
<\/b><\/p>\n
Das Treeview-Steuerelement dient zur hierarchischen Darstellung von Daten. Diese Daten können entweder aus mehreren miteinander verknüpften Tabellen stammen oder einer Tabelle mit rekursiv definierter Beziehung entnommen werden. Der vorliegende Beitrag beschreibt das Treeview-Steuerelement und seine Programmierung. Sie lernen anhand einiger praktischer Beispiele den Umgang mit diesem Steuerelement kennen.<\/b><\/p>\nHinweis<\/h3>\n
Das im vorliegenden Beitrag vorgestellte ActiveX-Steuerelement ist nicht standardmäßig in Access enthalten. Um das Steuerelement zu verwenden, benötigen Sie entweder die Office Developer-Edition oder eines der Microsoft Entwickler-Tools wie z. B. Visual Studio. <\/p>\n
Der bekannteste Anwendungsbereich des Treeview-Steuerelements ist wohl die Ordnerliste im Windows-Explorer. Das Steuerelement gewährleistet hier eine komfortable und übersichtliche Auswahl und Ansicht des gewünschten Ordners.<\/p>\n
Es gibt allerdings noch viele weitere Anwendungsmöglichkeiten. Sie können damit beispielsweise ein Unternehmen und dessen Räumlichkeiten abbilden, indem Sie es in unterschiedliche Ebenen aufteilen: z. B. in Standorte, Gebäude, Etagen und Räume. Oder Sie stellen eine rekursiv definierte Beziehung dar, wie im Beitrag „Mitarbeiterverwaltung mit rekursiven Beziehungen“ der vorliegenden Ausgabe von „Access im Unternehmen“ beschrieben.<\/p>\n
![](\"..\/fileadmin\/_temp_\/{110B2E0C-D43C-4B94-838D-6A28DA2BFAC9}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Bild 1: Die Tabellen der Beispieldatenbank<\/span><\/b><\/p>\n Als Beispiel soll eine Firma namens XYZ dienen, die innerhalb Deutschlands an unterschiedlichen Standorten vertreten ist. An jedem Standort gibt es ein oder mehrere Gebäude mit unterschiedlich vielen Räumen.<\/p>\n Das Treeview-Steuerelement soll – ausgehend von den Standorten – zur Auswahl der Gebäude, Räume und Mitarbeiter eingesetzt werden.<\/p>\n Die Beispieldatenbank beinhaltet vier Tabellen zur Eingabe dieser Standorte, Gebäude usw. Bild 1 zeigt das Beziehungsfenster mit dem Datenmodell.<\/p>\n Sie müssen die Tabellenstruktur nicht von Hand nachbilden. Alle im vorliegenden Beitrag vorgestellten Tabellen und Formulare befinden sich auf der Heft-CD der aktuellen Ausgabe von „Access im Unternehmen“. <\/p>\n Um das Treeview-Steuerelement verwenden zu können, müssen Sie es zunächst in das gewünschte Formular einfügen. <\/p>\n Weitere Informationen zum Einfügen von Ac-tiveX-Steuerelementen finden Sie im Beitrag „ActiveX-Steuerelemente einfügen“ der vorliegenden Ausgabe. <\/p>\n Nachdem Sie das Steuerelement in das Formular eingefügt und dessen Größe angepasst haben, könnte die Entwurfsansicht wie in Bild 2 aussehen. Anschließend geben Sie dem Steuerelement noch den Namen ocxTreeview. <\/b><\/p>\n <\/b><\/p>\n Bild 2: Das Treeview-Steuerelement in der Entwurfsansicht<\/span><\/b><\/p>\n Die einzelnen Elemente des Treeview-Steuerelements heißen Nodes (dt.: Knoten). In den folgenden Abschnitten wird gezeigt, wie Sie die einzelnen Nodes mit den Daten der Beispieltabellen füllen können.<\/p>\n Da dies nicht besonders einfach ist, lernen Sie zunächst Schritt für Schritt die wichtigsten Eingaben zum Füllen des Treeview-Objektes kennen und setzen dieses Wissen dann anhand der Beispieldatenbank um.<\/p>\n Aufbau des Treeview-Steuerelements<\/b><\/p>\n Das Treeview-Steuerelement bietet die Möglichkeit der strukturierten Darstellung hierarchischer Daten. Es besteht aus einer Reihe von Hauptknoten, die zur Darstellung der Elemente der obersten Ebene der Hierarchie dienen.<\/p>\n Zu jedem der Hauptknoten können unterschiedlich viele untergeordnete Knoten vorhanden sein, die wiederum untergeordnete Knoten besitzen usw.<\/p>\n Das Steuerelement bietet die Möglichkeit, die verschiedenen untergeordneten Ebenen ein- und auszublenden, Einträge zu markieren und verschiedene Aktionen anhand dieser Einträge durchzuführen.<\/p>\n So ist es z. B. denkbar, die Mitarbeiter eines Unternehmens entsprechend der Hierarchie in dem Unternehmen darzustellen und per Doppelklick Detaildaten zu einem Mitarbeiter in einem separaten Formular anzuzeigen.<\/p>\n Prozedur zum Füllen des Baumes<\/b><\/p>\n Zum Füllen der Nodes verwenden Sie eine VBA-Prozedur namens BaumFuellen(). Legen Sie die Prozedur im Klassenmodul des Formulars frmTreeview an.<\/p>\n Die Prozedur fügt dem Baum zunächst einen einzigen neuen Knoten ohne weitere Verzweigungen zu.<\/p>\n Dazu verwenden Sie die Prozedur aus Quellcode 17. Hier erfolgt zunächst die Deklaration einer Treeview- sowie einer Node-Objektvariablen. Anschließend wird der Treeview-Variablen das Treeview-Steuerelement des Formulars zugewiesen.<\/p>\n Das Treeview-Objekt enthält eine Auflistung namens Nodes, die sämtliche Node-Elemente beinhaltet. Diese Auflistung wird mit der Methode Clear in der nächsten Anweisung der Prozedur initialisiert.<\/p>\n Schließlich fügt die Prozedur der Auflistung mit der Add-Methode ein erstes Node-Objekt hinzu. <\/p>\n Die Add-Methode verfügt über einige Parameter, die in Tabelle 1 aufgelistet sind. Tabelle 2 beinhaltet eine Liste der Konstanten für die Eigenschaft Relationship.<\/p>\n Quellcode 1<\/b><\/p>\n Eigenschaft<\/b><\/p>\n<\/td>\n Bedeutung<\/b><\/p>\n<\/td>\n<\/tr>\n Key<\/p>\n<\/td>\n Eindeutiger Schlüssel zum Verweis auf den Knoten<\/p>\n<\/td>\n<\/tr>\n Text<\/p>\n<\/td>\n Angezeigter Text<\/p>\n<\/td>\n<\/tr>\n Relative<\/p>\n<\/td>\n Schlüssel oder Index des Knotens, auf den sich der in Relationship angegebene Wert bezieht <\/p>\n<\/td>\n<\/tr>\n Relationship<\/p>\n<\/td>\n Art der Beziehung, falls ein Wert für Relative angegeben ist (mögliche Werte in Tabelle 2)<\/p>\n<\/td>\n<\/tr>\n Image<\/p>\n<\/td>\n Angezeigtes Bild, wenn Knoten nicht ausgewählt ist<\/p>\n<\/td>\n<\/tr>\n SelectedImage<\/p>\n<\/td>\n Angezeigtes Bild, wenn Knoten ausgewählt ist<\/p>\n<\/td>\n<\/tr>\n<\/table>\n Tab. 1: Parameter der Add-Methode<\/b><\/p>\n Konstante<\/b><\/p>\n<\/td>\n Beschreibung<\/b><\/p>\n<\/td>\n<\/tr>\n tvwFirst<\/p>\n<\/td>\n Platzierung als erster Knoten in der Ebene des mit Relative angegebenen Knotens<\/p>\n<\/td>\n<\/tr>\n tvwLast<\/p>\n<\/td>\n Platzierung als letzter Knoten in der Ebene des mit Relative angegebenen Knotens<\/p>\n<\/td>\n<\/tr>\n tvwNext<\/p>\n<\/td>\n Platzierung hinter dem mit Relative angegebenen Knoten<\/p>\n<\/td>\n<\/tr>\n tvwPrevious<\/p>\n<\/td>\n Platzierung vor dem mit Relative angegebenen Knoten<\/p>\n<\/td>\n<\/tr>\n tvwChild<\/p>\n<\/td>\n Platzierung in der Ebene unterhalb des mit Relative angegebenen Knotens<\/p>\n<\/td>\n<\/tr>\n<\/table>\n Tab. 2: Konstanten für den Parameter Relationship<\/b><\/p>\n Der Wert für den Parameter Text der Add-Methode muss als erstes Zeichen einen Buchstaben enthalten, also z. B. n0001 statt 0001. <\/p>\n Damit die Prozedur aus Quellcode 1 auch ausgeführt wird, rufen Sie diese in einer Ereignisprozedur auf, die beim Laden des Formulars ausgelöst wird. Die Ereignisprozedur hat folgendes Aussehen:<\/p>\n Weitere Informationen zum Anlegen einer Ereignisprozedur finden Sie im Beitrag „Anlegen von Ereignisprozeduren“ in der Ausgabe 1\/2002 von „Access im Unternehmen“. <\/p>\n Wenn Sie das Formular nun in der Formularansicht öffnen, erscheint ein Baum mit nur einem einzigen Knoten wie in Bild 3.<\/p>\n <\/b><\/p>\n Bild 3: Ein Treeview-Steuerelement mit einem einzigen Knoten<\/span><\/b><\/p>\n Wenn Sie nun einen weiteren Knoten in der gleichen Ebene hinzufügen möchten, erledigen Sie dies mit der folgenden Anweisung:<\/p>\n Auch das Hinzufügen eines untergeordneten Knotens ist nicht viel komplizierter:<\/p>\n Zusätzlich zu der bekannten Anweisung sind hier die beiden Parameter Relative und Relationship erforderlich. Die Parameter geben den übergeordneten Knoten und die Art der Zuordnung an.<\/p>\n <\/p>\n Wenn Sie einige Haupt- und untergeordnete Knoten per VBA angelegt haben, zeigt das Treeview-Steuerelement zunächst nur die oberste Ebene an. Wenn Sie einen Knoten direkt zu Beginn erweitert anzeigen möchten, verwenden Sie die Expanded-Eigenschaft des Knotens:<\/p>\n Das Treeview-Steuerelement zeigt nun direkt den erweiterten Knoten an (siehe Bild 4). Das Setzen der Eigenschaft Expanded auf den Wert True wirkt sich nur auf die dem Knoten untergeordnete Ebene aus. Knoten in darunter liegenden Ebenen sind ebenso wenig wie übergeordnete Knoten von dieser Eigenschaft betroffen. <\/p>\n <\/b><\/p>\n Bild 4: Das Treeview-Steuerelement mit expandiertem Knoten<\/span><\/b><\/p>\n Die Remove-Methode der Nodes-Auflistung dient zum Entfernen eines Knotens. Dabei gibt es unterschiedliche Möglichkeiten, den zu entfernenden Knoten festzulegen.<\/p>\n Die erste Möglichkeit verwendet den Schlüssel des Knotens, um auf diesen zu verweisen:<\/p>\n Sie können auch den Index des zu entfernenden Knotens verwenden:<\/p>\n Der wichtigste Unterschied zwischen diesen beiden Methoden ist, dass beim Entfernen eines Knotens per Index der komplette Index aktualisiert wird, d. h. wenn Sie den Knoten mit dem Index 1 entfernen, enthält der nächste Knoten die 1 als Index usw.<\/p>\n Die Schlüssel werden jedoch beibehalten. Eine weitere Möglichkeit zum Entfernen eines Knotens ist, den gewünschten Knoten zu selektieren und anschließend den selektierten Knoten zu entfernen:<\/p>\n Bei allen Aktionen zum Entfernen eines Knotens wird der komplette Zweig gelöscht, also auch alle untergeordneten Knoten. <\/p>\n Das letzte Beispiel verwendete bereits die Selected-Eigenschaft des Treeview-Steuerelementes, um den selektierten Knoten zu entfernen.<\/p>\n Mit der Selected-Eigenschaft lassen sich nicht nur der Index des ausgewählten Knotens ermitteln, sondern auch alle weiteren Eigenschaften eines Knotens.<\/p>\n Mit der Methode Clear können Sie alle Knoten eines Treeview-Steuerelements löschen. Sie haben die Methode bereits weiter oben kennen gelernt – in Quellcode 1 werden vorsorglich alle Knoten mit der folgenden Anweisung gelöscht:<\/p>\n Festlegen der Eigenschaften eines Knotens<\/b><\/p>\n In der Prozedur BaumFuellen haben Sie den mit der Add-Methode neu erzeugten Knoten jeweils der Objektvariablen Knoten zugewiesen.<\/p>\n Dies ist nicht unbedingt erforderlich. Sie können den Knoten auch auf folgende Weise erstellen:<\/p>\n Die Zuweisung an die Objektvariable benötigen Sie für den Fall, dass Sie dem Knoten noch weitere Eigenschaften zuweisen möchten, die nicht durch die Verwendung der Parameter beim Hinzufügen des Knotens festgelegt wurden.<\/p>\n Daher gibt es zwei Varianten beim Zuweisen von Eigenschaften. Bei der ersten Alternative verwenden Sie die aktuelle Objektvariable des Knotens:<\/p>\n Die zweite Variante greift zur Bestimmung des zu bearbeitenden Knotens auf die Nodes-Auflistung zu und verwendet den Key des Knotens als Identifikationsmerkmal:<\/p>\n Genau genommen gibt es noch eine dritte Variante, die allerdings nur eine Abwandlung der zweiten ist. Hier verwenden Sie statt der Key-Eigenschaft die Index-Eigenschaft des Knotens. <\/p>\n Wenn Sie einen neuen Knoten anlegen, wird automatisch ein Wert für die Eigenschaft Index vergeben. Der Index beginnt mit dem Wert 1 und wird für jeden neuen Knoten um den Wert 1 erhöht.<\/p>\n Wenn Sie die genaue Anzahl der vorhandenen Knoten ermitteln möchten, verwenden Sie die Count-Eigenschaft der Nodes-Auflistung:<\/p>\n Nachdem Sie nun mit den grundlegenden Informationen über das Treeview-Steuerelement vertraut sind, setzen Sie es nun in der Praxis ein.<\/p>\n Dazu verwenden Sie ein neues Formular, in das Sie wie im vorherigen Beispiel ein Treeview-Steuerelement platzieren – wenn Sie möchten, können Sie auch das vorhandene Formular verwenden.<\/p>\n Die Prozedur aus Quellcode 2 füllt das Treeview-Steuerelement mit den Daten aus den Tabellen tblStandorte, tblGebaeude, tblRaeume und tblMitarbeiter.<\/p>\n In der Prozedur werden zunächst die für die Verwendung des Treeview-Steuerelementes benötigten Objektvariablen deklariert und initiiert. Außerdem benötigen Sie vier Datensatzgruppen – je eine für jede der vier Tabellen.<\/p>\n Anschließend durchläuft die Prozedur jede der vier Datensatzgruppen und nimmt deren Elemente in das Treeview-Steuerelement auf.<\/p>\n Für die Standorte ist das noch recht einfach: Hier verwendet die Prozedur einfach das Feld Standort für die Eigenschaft Text und eine abgewandelte Version der Datensatznummer als Schlüssel.<\/p>\n Die abgewandelte Version besteht aus dem Buchstaben a sowie der Datensatznummer. Damit alle Schlüssel das gleiche Format haben, wird die Datensatznummer auf vier Stellen erweitert. Für Datensatznummern mit weniger als vier Stellen bedeutet das ein Auffüllen der fehlenden Stellen durch die entsprechende Anzahl vorangestellter Nullen (also z. B. 0002 statt 2).<\/p>\n Im nächsten Schritt sollen nun alle Gebäude den Standorten zugewiesen werden. Die Eigenschaften Key und Text werden genau wie bei den Standorten zugeteilt – mit dem Unterschied, dass dem Schlüssel statt eines a ein b voran-gestellt wird.<\/p>\n Damit die Gebäude den richtigen Standorten zugeordnet werden, müssen mit den beiden Parametern Relative und Relationship die entsprechenden Werte übergeben werden.<\/p>\n Für den Parameter Relationship verwenden Sie sinnvollerweise die Konstante tvwChild, da die Knoten den bestehenden Knoten untergeordnet werden sollen.<\/p>\n Mit dem Parameter Relative müssen Sie den Schlüssel des übergeordneten Knotens übergeben. Da die Tabellen tblStandorte und tblRaeume relational verknüpft sind und referentielle Integrität festgelegt ist, stellt diese Aufgabe keine allzu große Hürde dar. Verwenden Sie einfach den folgenden Ausdruck:<\/p>\n Quellcode 2<\/b><\/p>\n Sie ermitteln einfach den Wert des Feldes StandortID, über den die Tabellen tblStandorte und tblGebaeude miteinander verknüpft sind. Mit der entsprechenden Formatierung ermitteln Sie daraus leicht den Schlüssel des Knotens, der zu dem übergeordneten Datensatz gehört. Die Vorgehensweise für die beiden weiteren Tabellen tblRaeume und tblMitarbeiter ist identisch. Hier wird lediglich der Zusatz c bzw. d für die Schlüssel verwendet, um doppelte Schlüssel zu verhindern.<\/p>\n Sie müssen nun noch eine Prozedur anlegen, die durch die Ereigniseigenschaft Beim Laden des Formulars ausgelöst wird:<\/p>\n Diese Prozedur ruft lediglich die Prozedur zum Füllen des Treeview-Steuerelementes auf. Wenn Sie das Formular nun in der Formularansicht öffnen, erscheint ein Bild wie in Bild 5.<\/p>\n <\/b><\/p>\n Bild 5: Das gefüllte Treeview-Steuerelement<\/span><\/b><\/p>\n Das Treeview-Steuerelement bietet einige Anpassungsmöglichkeiten. Diese können Sie einerseits zur Verschönerung und andererseits zum Hinzufügen von Funktionalitäten nutzen.<\/p>\n Einstellen der Eigenschaften<\/b><\/p>\n Wenn Sie in der Entwurfsansicht des Formulars doppelt auf das Treeview-Steuerelement klicken, erscheint sein Eigenschaftsfenster (siehe Bild 6).<\/p>\n Hier können Sie unterschiedliche Einstellungen vornehmen, die in Tabelle 3 zusammengefasst sind.<\/p>\n Eigenschaft<\/b><\/p>\n<\/td>\n Bedeutung<\/b><\/p>\n<\/td>\n<\/tr>\n Style<\/p>\n<\/td>\n Legt fest, welche Kombination aus Text, Linien, Bildern und Plus-\/Minuszeichen verwendet wird<\/p>\n<\/td>\n<\/tr>\n MousePointers<\/p>\n<\/td>\n Aussehen des Mauszeigers bei überfahren des Steuerelements<\/p>\n<\/td>\n<\/tr>\n LineStyle<\/p>\n<\/td>\n Art der Linien<\/p>\n<\/td>\n<\/tr>\n LabelEdit<\/p>\n<\/td>\n Legt fest, ob die Beschriftung per Mausklick geändert werden kann<\/p>\n<\/td>\n<\/tr>\n ImageList<\/p>\n<\/td>\n Name des ImageList-Steuerelements, falls verwendet<\/p>\n<\/td>\n<\/tr>\n BorderStyle<\/p>\n<\/td>\n Rahmenstil<\/p>\n<\/td>\n<\/tr>\n Appearance<\/p>\n<\/td>\n Flaches oder vertieftes Steuerelement <\/p>\n<\/td>\n<\/tr>\n OLEDragMode<\/p>\n<\/td>\n Legt fest, ob Steuerelement oder Anwendung die Steuerung von Drag-Operationen übernimmt.<\/p>\n<\/td>\n<\/tr>\n OLEDropMode<\/p>\n<\/td>\n s. o.<\/p>\n<\/td>\n<\/tr>\n Intendation<\/p>\n<\/td>\n Entfernung zweier Knotenebenen<\/p>\n<\/td>\n<\/tr>\n PathSeparator<\/p>\n<\/td>\n Zeichen für Pfadtrennungen<\/p>\n<\/td>\n<\/tr>\n HideSelection<\/p>\n<\/td>\n Soll der ausgewählte Knoten markiert bleiben, wenn das Steuerelement den Fokus verliert<\/p>\n<\/td>\n<\/tr>\n Sorted<\/p>\n<\/td>\n Sortiert alle zu einer Gruppe gehörenden Knoten alphabetisch<\/p>\n<\/td>\n<\/tr>\n FullRowsSelected<\/p>\n<\/td>\n Gibt an, ob die ganze Zeile oder nur der Text des ausgewählten Knotens markiert werden soll <\/p>\n<\/td>\n<\/tr>\n Enabled<\/p>\n<\/td>\n Legt fest, ob das Steuerelement auf Benutzereingaben reagiert<\/p>\n<\/td>\n<\/tr>\n Checkboxes<\/p>\n<\/td>\n Legt fest, ob Kontrollkästchen angezeigt werden<\/p>\n<\/td>\n<\/tr>\n SingleSel<\/p>\n<\/td>\n Legt fest, ob nur der aktuell ausgewählte Knoten erweitert werden soll<\/p>\n<\/td>\n<\/tr>\n Scroll<\/p>\n<\/td>\n Bildlaufleisten<\/p>\n<\/td>\n<\/tr>\n HotTracking<\/p>\n<\/td>\n Aktivierung der maussensitiven Markierung<\/p>\n<\/td>\n<\/tr>\n<\/table>\n Tab. 3: Eigenschaften des Treeview-Steuerelements<\/b><\/p>\n Hinzufügen von Icons<\/b><\/p>\n Wenn Sie den einzelnen Knoten Symbole zuweisen möchten, benötigen Sie ein weiteres Ac-tiveX-Steuerelement namens Microsoft Image List Control X.0.<\/p>\n Weisen Sie dieses Steuerelement demjenigen Formular zu, in dem Sie es verwenden möchten, und geben Sie ihm den Namen ocxImageList. Nach dem Einfügen erscheint lediglich ein Icon wie in Bild 7.<\/p>\n <\/b><\/p>\n Bild 6: Eigenschaften des Treeview-Steuerelements<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 7: Das ImageList-Steuerelement<\/span><\/b><\/p>\n Das ImageList-Steuerelement funktioniert wie ein Container. Hier legen Sie die im Formular benötigten Grafikdateien ab.<\/p>\n <\/b><\/p>\n Bild 8: Eigenschaften des ImageList-Steuerelements<\/span><\/b><\/p>\n Sie brauchen dann für die einzelnen Knoten lediglich den im ImageList-Steuerelement verwendeten Namen des gewünschten Bildes anzugeben, um es dem Knoten hinzuzufügen.<\/p>\n Damit das Treeview-Steuerelement für die einzelnen Knoten Symbole anzeigt, sind die in den folgenden Abschnitten beschriebenen Schritte erforderlich.<\/p>\n Nachdem Sie das Steuerelement eingebunden haben, können Sie direkt die gewünschten Abbildungen einfügen. Dazu klicken Sie in der Entwurfsansicht doppelt auf das Steuerelement.<\/p>\n Es öffnet sich das Eigenschaftsfenster des Steuerelements. Hier ist vor allem das Register Abbildungen interessant:<\/p>\n Es dient dem Einlesen der Abbildungen und dem Zuweisen von Index und Schlüsselbezeichnung (siehe Bild 8).<\/p>\n Vorausgesetzt, Sie haben bereits eine Bilddatei vorbereitet, können Sie mit der Schaltfläche Bild einfügen den Dialog Bild auswählen öffnen und das gewünschte Bild auswählen.<\/p>\n Anschließend müssen Sie dem Bild noch einen Wert für die Eigenschaft Key hinzufügen. Diese Bezeichnung verwenden Sie später, um dem jeweiligen Knoten das entsprechende Bild zuzuweisen.<\/p>\n <\/b><\/p>\n Bild 9: Das Treeview-Steuerelement mit neuen Icons<\/span><\/b><\/p>\n Damit die Abbildungen auch im Treeview-Steuerelement verwendet werden können, müssen Sie das ImageList-Steuerelement dort registrieren.<\/p>\n Dazu stellen Sie einfach in der Prozedur aus Quellcode 2 die Eigenschaft ImageList des Treeview-Steuerelements auf das neue ImageList-Steuerelement ein:<\/p>\n Zusätzlich soll für jede Ebene ein eigenes Icon verwendet werden. Dazu müssen Sie jeweils einen weiteren Parameter für die vier Add-Anweisungen der Prozedur angeben.<\/p>\n Der Parameter heißt Image und soll den im ImageList-Steuerelement angegebenen Wert für die Eigenschaft Key erhalten.<\/p>\n Ergänzen Sie also die Add-Anweisungen entsprechend dem folgenden Beispiel:<\/p>\n Je nachdem, wie viel Mühe Sie sich bei der Gestaltung der Icons geben, erhalten Sie ein mehr oder weniger gutes Ergebnis. Dieses könnte beispielsweise wie in Bild 9 aussehen.<\/p>\n Hinzufügen von Funktionalitäten<\/b><\/p>\n Das Treeview-Steuerelement bietet die technischen Grundlagen zum Hinzufügen unterschiedlicher Funktionalitäten.<\/p>\n Eine sinnvolle Erweiterung des jetzigen Standes wäre z. B. die Möglichkeit, zu den einzelnen Mitarbeitern per Doppelklick ein Formular mit Details zum jeweiligen Mitarbeiter anzuzeigen.<\/p>\n Das Treeview-Steuerelement bietet wie andere Steuerelemente auch entsprechende Ereigniseigenschaften an. Hierüber können die gewünschten Aktionen initiiert werden.<\/p>\n Das Treeview-Steuerelement ist für die Anzeige hierarchischer Daten prädestiniert. Die vorgestellten Möglichkeiten decken aber längst nicht das komplette Spektrum der Fähigkeiten ab.<\/p>\n So könnten Sie die im Beitrag vorgestellte Anwendung z. B. dahingehend erweitern, dass Sie Mitarbeiter von einem zum anderen Standort verschieben und die Datenherkunft automatisch angepasst wird. Oder Sie verwenden einfach die Kontrollkästchen, um aus den vorhandenen Mitarbeitern einige für ein Projekt auszuwählen und in einer Liste auszudrucken. <\/p>\n Enthaltene Beispieldateien:<\/p>\n Treeview00.mdb<\/p>\n Treeview97.mdb<\/p>\nHinweis<\/h3>\n
Hinweis<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{110B2E0C-D43C-4B94-838D-6A28DA2BFAC9}\/pic002.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{110B2E0C-D43C-4B94-838D-6A28DA2BFAC9}\/pic003.png\")
<\/p>\nDeklaration von Bäumen und Knoten<\/h3>\n
Die Nodes-Auflistung<\/h3>\n
Private Sub BaumFuellen()\r\n Dim Baum As MSComctlLib.Treeview\r\n Dim Knoten As MSComctlLib.Node\r\n Set Baum = Me.ocxTreeview.Object\r\n Baum.Nodes.Clear\r\n Set Knoten = Baum.Nodes.Add(Key:=\"n0001\", _ Text:=\"Knoten1\")\r\nEnd Sub<\/pre>\n
\n
\n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n
\n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n Hinweis<\/h3>\n
Private Sub Form_Load()\r\n BaumFuellen\r\nEnd Sub<\/pre>\n
Hinweis<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{110B2E0C-D43C-4B94-838D-6A28DA2BFAC9}\/pic004.png\")
<\/p>\nAnlegen weiterer Knoten<\/h3>\n
Set Knoten = Baum.Nodes.Add(Key:=\"n0002\", Text:=\"Knoten2\")<\/pre>\n
Hinzufügen untergeordneter Knoten<\/h3>\n
Set Knoten = _ Baum.Nodes.Add(Relative:=\"n0001\", _ Relationship:=tvwChild, _ Text:=\"Knoten1-1\")<\/pre>\n
Gleichzeitige Anzeige mehrerer Ebenen<\/h3>\n
Baum.Nodes(\"n0001\").Expanded = True<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{110B2E0C-D43C-4B94-838D-6A28DA2BFAC9}\/pic005.png\")
<\/p>\nEntfernen von Knoten<\/h3>\n
Baum.Nodes.Remove \"n0001\"<\/pre>\n
Baum.Nodes.Remove 1<\/pre>\n
Baum.Nodes.Remove Baum.SelectedItem.Index<\/pre>\n
Hinweis<\/h3>\n
Selektion von Knoten<\/h3>\n
Entfernen aller Knoten<\/h3>\n
Baum.Nodes.Clear<\/pre>\n
Baum.Nodes.Add Key:=\"n0002\", Text:=\"Knoten2\"<\/pre>\n
Set Knoten = _ Baum.Nodes.Add(Key:=\"n0002\", _ Text:=\"Knoten2\")\r\nKnoten.Expanded = True<\/pre>\n
Baum.Nodes.Add Key:=\"n0002\", _ Text:=\"Knoten2\"\r\nBaum.Nodes(\"n0002\").Expanded = True<\/pre>\n
Zählen der Knoten<\/h3>\n
MsgBox \"Anzahl der Knoten: \" _ & Baum.Nodes.Count<\/pre>\n
Private Sub TreeviewFuellen()\r\n Dim Baum As MSComctlLib.Treeview\r\n Dim Knoten As MSComctlLib.Node\r\n Dim cnn As ADODB.Connection\r\n Dim rstStandorte As New ADODB.Recordset\r\n Dim rstGebaeude As New ADODB.Recordset\r\n Dim rstRaeume As New ADODB.Recordset\r\n Dim rstMitarbeiter As New ADODB.Recordset\r\n Set cnn = CurrentProject.Connection\r\n Set Baum = Me.ocxTreeview.Object\r\n rstStandorte.Open \"tblStandorte\", cnn, adOpenDynamic, adLockReadOnly\r\n rstGebaeude.Open \"tblGebaeude\", cnn, adOpenDynamic, adLockReadOnly\r\n rstRaeume.Open \"tblRaeume\", cnn, adOpenDynamic, adLockReadOnly\r\n rstMitarbeiter.Open \"tblMitarbeiter\", cnn, adOpenDynamic, adLockReadOnly\r\n Do While Not rstStandorte.EOF\r\n Baum.Nodes.Add Key:=\"a\" & Format(rstStandorte!StandortID, \"0000\"), _ Text:=rstStandorte!Standort\r\n rstStandorte.MoveNext\r\n Loop\r\n Do While Not rstGebaeude.EOF\r\n Baum.Nodes.Add Relative:=\"a\" & Format(rstGebaeude!StandortID, \"0000\"), _ Relationship:=tvwChild, Key:=\"b\" & Format(rstGebaeude!GebaeudeID, _\r\n \"0000\"), Text:=rstGebaeude!Gebaeude\r\n rstGebaeude.MoveNext\r\n Loop\r\n Do While Not rstRaeume.EOF\r\n Baum.Nodes.Add Relative:=\"b\" & Format(rstRaeume!GebaeudeID, \"0000\"), _ Relationship:=tvwChild, Key:=\"c\" & Format(rstRaeume!RaumID, \"0000\"), _\r\n Text:=rstRaeume!RaumID\r\n rstRaeume.MoveNext\r\n Loop\r\n Do While Not rstMitarbeiter.EOF\r\n Baum.Nodes.Add Relative:=\"c\" & Format(rstMitarbeiter!RaumID, \"0000\"), _ Relationship:=tvwChild, Key:=\"d\" & Format(rstMitarbeiter!MitarbeiterID, _ \"0000\"), Text:=rstMitarbeiter!Mitarbeiter\r\n rstMitarbeiter.MoveNext\r\n Loop\r\nEnd Sub<\/pre>\n
\"a\" & Format(rstGebaeude!StandortID, _ \"0000\")<\/pre>\n
Private Sub Form_Load()\r\n TreeviewFuellen\r\nEnd Sub<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{110B2E0C-D43C-4B94-838D-6A28DA2BFAC9}\/pic006.png\")
<\/p>\n\n
\n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n ![](\"..\/fileadmin\/_temp_\/{110B2E0C-D43C-4B94-838D-6A28DA2BFAC9}\/pic007.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{110B2E0C-D43C-4B94-838D-6A28DA2BFAC9}\/pic008.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{110B2E0C-D43C-4B94-838D-6A28DA2BFAC9}\/pic009.png\")
<\/p>\nFüllen des ImageList-Steuerelements mit Abbildungen<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{110B2E0C-D43C-4B94-838D-6A28DA2BFAC9}\/pic010.png\")
<\/p>\nInitialisieren des ImageList-Steuerelements<\/h3>\n
Baum.ImageList = ocxImageList.Object<\/pre>\n
Baum.Nodes.Add Key:=\"a\" _ & Format(rstStandorte! _ StandortID, \"0000\"), _ Text:=rstStandorte! _ Standort, _ Image:=\"Location\"<\/pre>\n
Downloads zu diesem Beitrag<\/h3>\n