Assign a treeview at design run time to other at design time
To add a single Treeview:
Declarations.Section:
Private tvwTree As MSComctlLib.TreeView
Private Sub Form_Load()
Set tvwTree = Me.Controls.Add("MSComctlLib.TreeCtrl", "tvwTree")
With tvwTree
.Move TreeView1.Left + TreeView1.Width + 90, _
TreeView1.Top, TreeView1.Width, TreeView1.Height
.Visible = True
End With
End Sub
To add multiple TreeViews:
Declarations.Section:
Private tvwTree() As MSComctlLib.TreeView
Private Sub Form_Load()
Dim iIdx As Integer
ReDim tvwTree(0 To 2)
For iIdx = 0 To 2
Set tvwTree(iIdx) = Me.Controls.Add("MSComctlLib.TreeCtrl",
"tvwTree" & CStr(iIdx))
With tvwTree(iIdx)
.Left = TreeView1.Left + TreeView1.Width + 90 + _
(iIdx * (TreeView1.Width + 90))
.Move .Left, TreeView1.Top, TreeView1.Width, TreeView1.Height
.Visible = True
End With
Next
End Sub
Rocky Clark (Kath-Rock Software)
Quote:
> How can I asign a treeview at run time to other at design time?
> Assume that tvwtree is a treeview at design time
> Something like this:
> dim tvw as treeview
> set tvw = controls.add (....)
> .
> .
> set tvwtree = tvw ???????
