Erstmals recht herzlichen Dank für deine Mühe!
Ich bin allerdings schon ein kleines Stück weiter als dieses Posting hier noch vermuten lässt.
Ich hab meine Anfrage im Forum Programmierung & im Forum Software gestellt, weil ich mir gedacht hatte, dass das eher ein komplexes Problem ist und die Chancen auf Antworten so schrumpfen. Aber da hatte ich euch wohl unterschätzt.
Hier nochmal der bisherige Verlauf im Software forum ....
======================
1. Posting von mir ...
======================
Ein freundliches Hallo an alle!
Wie schon in meinem Beitrag "Access 2000 - Spezialisten unter euch?" erwähnt, möchte ich in eine Access Datenbank eine "explorerartige" Hierarchie bzw. ein solches Menü erstellen.
Nun habe ich ein OCX-Objekt gefunden, welches genau das unterstützt und wollte mal so fragen ob schon wer mit dem Objekt "TREEVIEW" Erfahrung hat oder es einfach nur kennt, irgendwo gesehen hat, mir einfach irgendwelche Tips in Bezug auf die Verwendung geben kann?
Dieses OXC-Objekt ist bei Access 2000 schon dabei und muss nicht extra eingebunden werden. (Nur als kleiner Hinweis)
Wäre vielleicht auch toll, wenn wer dieses Objekt schon mal in ein Access Formular eingebunden hat und mir eine abgespeckte Version der Datenbank schicken könnte um mir das nur beispielweise anzusehen.
Verbindlichsten Dank im Voraus ...
Andy
Happy Posting
=======================
2. Posting von keop ...
=======================
da bin ich voll überfragt, würde mich aber auch sehr interessieren.
-----------------
mfg -keop-
================================
3. Posting von Punschkrapfen ...
================================
zu dem control gibt es das Handbuch von Microsoft auf
http://msdn.microsoft.com/library/de...bjTreeView.htm .
Jedes Element ist ein Node-Object, die man mit der Add-method in der nodes-collection hinzufügen kann, zb (lt.
http://msdn.microsoft.com/library/de...bpronodesx.htm ):
Dim nodX As Node
Set nodX = TreeView1.Nodes.Add(,,"R","Root")
Set nodX = TreeView1.Nodes.Add("R", tvwChild,"C1","Child 1")
Set nodX = TreeView1.Nodes.Add("R", tvwChild,"C2","Child 2")
Set nodX = TreeView1.Nodes.Add("R", tvwChild,"C3","Child 3")
Set nodX = TreeView1.Nodes.Add("R", tvwChild,"C4","Child 4")
wenn man wissen will, über welchem objekt sich die maus gerade befindet, dann gibt es die HitTest-method (
http://msdn.microsoft.com/library/de...mthhittest.htm ). SelectedItem kann man auch verwenden ([url=http://msdn.microsoft.com/library/devprods/vs6/vbasic/cmctl198/vbproselecteditem.htm]http://msdn.microsoft.com/library/devprods/vs6/vbasic/cmctl198/vbproselecteditem.htm[/url ]) wenn der User zB auf einen commandbutton clickt.
Das ist aber alles für VB; das OCX reagiert aber überall gleich. Im Excel könnte man zB den Inhalt zweier cols so übertragen:
Private Sub CommandButton1_Click()
Dim nodx As Node
Dim col, row As Integer
Label1.Caption = Excel.ActiveCell.Text
TreeView1.Nodes.Clear
Set nodx = TreeView1.Nodes.Add(, , "R", Excel.ActiveCell.Text)
col = Excel.ActiveCell.Column
row = Excel.ActiveCell.row
col = col + 1
row = row + 1
Do While Len(Excel.Cells(row, col)) > 0
Set nodx = TreeView1.Nodes.Add("R", tvwChild, "C" & LTrim(Str(row)), Excel.Cells(row, col))
row = row + 1
Loop
End Sub
usw ...
======================
4. Posting von mir ...
======================
Erstmal recht herzlichen Dank Punschkrapfen!
Das hat mir schon mal geholfen das Objekt mit Elementen zu füttern, , die auch angezeigt werden ... wahnsinn.
Jetzt würde ich nur noch gerne wissen wie ich bei einem Click auf eine Node ein Ereignis hervorrufe bzw. eine Funktion oder Makro starte dass z.B. ein Formular öffnet.
Nehmen wir z.B. diese Node als Beispiel ...
Set nodX = Me!xTree.Nodes.Add("C1", tvwChild, "D1", "Makro starten")
Was muss ich da machen, dass jetzt das Makro gestartet wird?
Bin dir für deine Hilfe wirklich dankbar!
Andy
Happy Posting
=====================================
Das ist also die aktuelle Lage, vielleicht kannst du mir weiterhelfen.
Wie kann ich bei Klicks auf Nodes in dem TreeView Element Aktionen starten?
Bin dir, sowie allen anderen für ihre Hilfe sehr dankbar!
Happy Posting
Andy