Menue mit TreeView in cls

Forumthread: Menue mit TreeView in cls

Thomas

Hallo Liebe ExcelVBAGemeinde,
nachdem ich das TreeView-Element für mich entdeckt habe,
möchte ich es als Menue zur Steuerung von mehreren
UserFormen verwenden.
Was ich mir dabei vorgestellt habe ist, daß TreeView auf
allen UserForm's vorhanden ist und dabei der jeweilige,
aktuelle MenuePunkt, hervorgehoben dargestellt wird.
Der Einfachheit halber habe ich hier ein kleines Beispiel
erstellt:
https://www.herber.de/bbs/user/65328.zip
Dabei bin ich sehr schnell an meine Grenzen bei VBA
gestoßen.
Denn mir ist klar, daß das was bei mir als normales Modul
"xlSteuerungMenue" steht, eigentlich als KlassenModul für
alle UserForm's geltend, erstellt werden müßte.
Leider habe ich für Klassen keinerlei Kenntnisse.
Darum meine Frage, an diejenigen unter euch, die sich auf
diesem Gebiet auskennen, ist das was ich mir vorstelle
überhaupt möglich?
Und wenn ja, kann mir bitte jemand dabei helfen?
mfg
Thomas

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Benutzer

AW: Menue mit TreeView in cls

Thomas

AW: Menue mit TreeView in cls

26.10.2009 22:24:42

Thomas

Hallo Liebe ExcelVBAGemeinde,
leider habe ich auf meine o.g. Frage bisher keine Antwort erhalten.
Trotzdem versuche ich noch einmal mein Glück.
Im Netz habe ich folgenden Code gefunden und frage mich ob dieser
die Lösung zu meiner Frage sein könnte:
Private mNodeKeys As Collection
Private mSelectedNode As String

Public Sub Store(tvw As TreeView)
Dim nNode As Node
Set mNodeKeys = New Collection
With mNodeKeys
For Each nNode In tvw.Nodes
If nNode.Expanded Then
.Add nNode.Key
End If
Next
End With
With tvw
If Not (.SelectedItem Is Nothing) Then
mSelectedNode = .SelectedItem.Key
End If
End With
End Sub

Public Sub Restore(tvw As TreeView, _
Optional ByVal RestoreSelected As Boolean)
Dim l As Long
If mNodeKeys Is Nothing Then
Exit Sub
End If
On Error Resume Next
With tvw
For l = 1 To mNodeKeys.Count
.Nodes(mNodeKeys(l)).Expanded = True
Next
With .Nodes(mSelectedNode)
.Selected = RestoreSelected
End With
End With
End Sub

Bei diesem Code steht, daß es sich um ein Klassenmodul handle.
Nun weiß ich leider nicht, wie ich ein solches in mein Beispiel
einbinden könnte.
Darum meine Bitte ob mir jemand anhand meines Beispiels zeigt,
wie so etwas geht, wenn es überhaupt geht.
mfg
Thomas

Beliebteste Forumthreads (12 Monate)

Forumthread: Menue mit TreeView in cls

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread