Dear All,
I have to move data from Treeview to Listbox with 2 columns. Idea is to send node value of treeview to column 1 of list box and tag value from treeview node to column 2 of list box.
I use two codes: THis code transfer node value to Column 1 and tag value to column two. However, code is transfering all the nodes and I am not able to transfer only selected node:
Private Sub CommandButton9_Click()
ListBox3.ColumnCount = 2 'setting two columns
For i = 1 To TreeView2.Nodes.Count - 1
ListBox3.AddItem
ListBox3.List(i - 1, 0) = TreeView2.Nodes(i)
ListBox3.List(i - 1, 1) = TreeView2.Nodes(i).Tag
Next i
End Sub
WIth the following code, I am able to transfer selected node to column 1 of list box. However, when I try to add tag, then it is giving error.
Private Sub CommandButton8_Click()
ListBox3.ColumnCount = 2 'setting two columns
For i = 1 To TreeView2.Nodes.Count - 1
If TreeView2.Nodes(i).Selected Then
ListBox3.AddItem TreeView2.Nodes(i)
End If
Next i
End Sub
Thanks in advance for help
Best regards
I have to move data from Treeview to Listbox with 2 columns. Idea is to send node value of treeview to column 1 of list box and tag value from treeview node to column 2 of list box.
I use two codes: THis code transfer node value to Column 1 and tag value to column two. However, code is transfering all the nodes and I am not able to transfer only selected node:
Private Sub CommandButton9_Click()
ListBox3.ColumnCount = 2 'setting two columns
For i = 1 To TreeView2.Nodes.Count - 1
ListBox3.AddItem
ListBox3.List(i - 1, 0) = TreeView2.Nodes(i)
ListBox3.List(i - 1, 1) = TreeView2.Nodes(i).Tag
Next i
End Sub
WIth the following code, I am able to transfer selected node to column 1 of list box. However, when I try to add tag, then it is giving error.
Private Sub CommandButton8_Click()
ListBox3.ColumnCount = 2 'setting two columns
For i = 1 To TreeView2.Nodes.Count - 1
If TreeView2.Nodes(i).Selected Then
ListBox3.AddItem TreeView2.Nodes(i)
End If
Next i
End Sub
Thanks in advance for help
Best regards