Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1112to1116
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Menue mit TreeView in cls

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
Anzeige
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
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige