Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Treeview-Steuerelement alle Knoten ausklappen MSCOMCTL.OCX

586 views
Skip to first unread message

Sven Nicolaus

unread,
Aug 5, 2009, 9:28:24 PM8/5/09
to
A2003
MS Treeview Control Version 6

Hallo Zusammen,

ich habe mir ein Baum in einem Access Formular mithilfe des MS Treeview
Control Version 6
-MSCOMCTL.OCX- eingebaut. funktioniert soweit auch ganz super.

Ich m�chte nun z.B. durch Klicken auf einen Butten au�erhalb des
Baum-Elementes alle oder einige Knoten aufklappen lassen, wie geht das?

Gr��e
Sven


Jens Schilling

unread,
Aug 6, 2009, 2:57:31 AM8/6/09
to
Hallo, Sven

Sven Nicolaus wrote:
> ich habe mir ein Baum in einem Access Formular mithilfe des MS
> Treeview Control Version 6
> -MSCOMCTL.OCX- eingebaut. funktioniert soweit auch ganz super.
>
> Ich m�chte nun z.B. durch Klicken auf einen Butten au�erhalb des
> Baum-Elementes alle oder einige Knoten aufklappen lassen, wie geht
> das?

Schau's Dir einfach mal in einem Beispiel an - hier kannst Du eines findes:

http://www.access-programmers.co.uk/forums/showthread.php?t=102494

Der zweite Download ( TREE_RECORD_ADD.zip ) enth�lt eine kleine Demo, die
genau Dein Anliegen demonstriert.

--
Gruss
Jens

12. AEK - 10./11.10. + 31.10/1.11.2009, N�rnberg
http://www.donkarl.com/AEK


Volker Neurath

unread,
Aug 6, 2009, 4:11:40 AM8/6/09
to
Sven Nicolaus wrote:

> Ich m�chte nun z.B. durch Klicken auf einen Butten au�erhalb des
> Baum-Elementes alle oder einige Knoten aufklappen lassen, wie geht das?

Das ist eine der eher einfachen �bungen mit dem TreeView ;)

�ffnen:
------------
Private Sub cmdTreeAuf_Click()
Dim nde As MSComctlLib.node

For Each nde In Me.tvwHistoryTree.Nodes
nde.Expanded = True
Next nde
End Sub
------------

schliessen
------------
Private Sub cmdTreeZu_Click()
Dim nde As MSComctlLib.node

For Each nde In Me.tvwHistoryTree.Nodes
nde.Expanded = False
Next nde

End Sub
------------


Beispiel direkt aus meiner Anwendung, die Namen musst du anpassen
Volker


--
Wenn es vom Himmel Zitronen regnet -- lerne, Limonade zu machen.

Sven Nicolaus

unread,
Aug 9, 2009, 8:07:51 PM8/9/09
to
Hat super geklappt :) Vielen Dank!!!


Sven Nicolaus


"Volker Neurath" <nean...@expires-31-08-2009.news-group.org> schrieb im
Newsbeitrag news:124954...@neanderix.newsoffice.de...

0 new messages