---

Hallo und guten Morgen Zusammen!

Hat jemand von Euch Erfahrung mit dem TreeView - Steuerelement?

Ich möchte folgendes probieren:

Eine UserForm mit einem Feld TreeView und einem Anzeigefeld (Image).
In dem TreeView - Bereich möchte ich aus einem Unterverzeichnis ein Bild in das Anzeigefeld laden.
Alternativ ein Bild aus einer Bildsammlung aus einer Imageliste.

Hat da jemand eine Idee oder evtl. einen Beispielcode für mich?

Vielen Dank im voraus.

Gruß

Dirk

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Dirk,

brauchst du hier noch Hilfe?

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Dirk,

hier ein kleines Muster zum Abfüllen des Treeviews.

Code:

---

Private Sub CommandButton1_Click()
Dim R_Node As Node
Dim S_Node As Node

Dim i As Integer
Dim S_NodeKey As String
Dim ii As Integer
Dim S_NodeKey2 As String

' Alles alte löschen
trv.Nodes.Clear

'Outfit
trv.Style = tvwTreelinesPlusMinusText

' Rootnode
Set R_Node = trv.Nodes.Add(, tvwFirst, "KEY_ROOT", "Root")

' Sub Nodes
For i = 1 To 10
    S_NodeKey = R_Node.key & "/S" & i
    Set S_Node = trv.Nodes.Add(R_Node.key, tvwChild, S_NodeKey, "SUB " & i)
    For ii = 1 To 3
      S_NodeKey2 = S_NodeKey & ii
      Set S_Node = trv.Nodes.Add(S_NodeKey, tvwChild, S_NodeKey2, "SUB" & i & "/SUB " & ii)
    Next ii
Next i
' Root Ebene ausklappen
R_Node.Expanded = True
' Letztes Node sichbar machen
S_Node.EnsureVisible

End Sub

Private Sub trv_NodeClick(ByVal Node As MSComctlLib.Node)
        Me.Caption = Node.Text
End Sub

---

Stelli1

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP