ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Tree View Design help (https://www.excelbanter.com/excel-programming/386964-tree-view-design-help.html)

Ram[_5_]

Tree View Design help
 
The below code is the code for my tree view.

Private Sub UserForm_Initialize()
Dim nodX As Node
Dim i As Long
Dim j As Long
Dim k As Long
Dim l As Long
Dim m As Long
Dim n As Long
TreeView1.CheckBoxes = False
With TreeView1.Nodes
.Clear

'Certifacte Name
Set nodX = .Add(, , "CName",
Worksheets("Cert_Details").Range("C_Name").Value)

'Path Name

Set nodX = .Add("CName", tvwChild, "Path",
Worksheets("Cert_Path_module").Range("Path").Value )
nodX.Expanded = True
End With

'Modules (1-5)
With Worksheets("Cert_Path_module")
For i = 1 To 5
With .Range("Module_" & i)
If .Value < "" Then
Set nodX = TreeView1.Nodes.Add("Path", tvwChild, "Mod" &
i, .Value)
End If
End With
Next


End With
nodX.Expanded = True

'Learning Items
With Worksheets("Learning Item1")
For j = 1 To 20
With .Range("LI_" & j)
If .Value < "" Then
Set nodX = TreeView1.Nodes.Add("Mod1", tvwChild, "LI_" &
j, .Value)
End If
End With
Next j
End With
nodX.Expanded = False

With Worksheets("Learning Item2")
For k = 1 To 20
With .Range("LI2_" & k)
If .Value < "" Then
Set nodX = TreeView1.Nodes.Add("Mod2", tvwChild, "LI2_" &
k, .Value)
End If
End With
Next
End With
nodX.Expanded = False

With Worksheets("Learning Item3")
For l = 1 To 20
With .Range("LI3_" & l)
If .Value < "" Then
Set nodX = TreeView1.Nodes.Add("Mod3", tvwChild, "LI3_" &
l, .Value)
End If
End With
Next
End With
nodX.Expanded = False

With Worksheets("Learning Item4")
For m = 1 To 20
With .Range("LI4_" & m)
If .Value < "" Then
Set nodX = TreeView1.Nodes.Add("Mod4", tvwChild, "LI4_" &
m, .Value)
End If
End With
Next
End With
nodX.Expanded = False

With Worksheets("Learning Item5")
For n = 1 To 20
With .Range("LI5_" & n)
If .Value < "" Then
Set nodX = TreeView1.Nodes.Add("Mod5", tvwChild, "LI5_" &
n, .Value)
End If
End With
Next
End With
nodX.Expanded = False

nodX.EnsureVisible

TreeView1.Style = tvwTreelinesPlusMinusText
TreeView1.BorderStyle = ccFixedSingle

End Sub


Now On clicking on each node, I want the node Value to be displayed in
text box 1. And the details of that node in Text box 2 (we get the
node details from the excel sheet). Is it possible to design such a
thing?
Note: Each node will have different values and different details .

Please suggest I'm using the tree view control for the firstime. I got
this idea from the tree view that you will fing in the following link.
http://puremis.net/excel/code/080.shtml

Thanks.



All times are GMT +1. The time now is 10:03 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com