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

da bin ich voll überfragt, würde mich aber auch sehr interessieren.

-----------------
mfg -keop-

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 ... http://home.t-online.de/home/fabian_...ies/viking.gif

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

Hi Leute!

Abschliessend, für alle dies vielleicht interessiert, gibts die Lösung des Problemes im Forum "Programmierung" unter dem gleichen Header. :D

Andy

Happy Posting