• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Generating TreeView Controls at run time.(Using the same way you can generate any ActiveXControl at

Generating TreeView Controls at run time.(Using the same way you can generate any ActiveXControl at

Generating TreeView Controls at run time.(Using the same way you can generate any ActiveXControl at run time. The only thing you require is

API Declarations


Dim intX as integer
Dim intY as integer



Rate Generating TreeView Controls at run time.(Using the same way you can generate any ActiveXControl at

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Private Sub Form_Load()
On Error goto Err_Handler
intY=500
Licenses.Add "COMCTL.TreeCtrl.1","TreeView"
For intX=0 to 5
Set Obj=Controls.Add("COMCTL.TreeCtrl.1","TreeView" & intX)
Obj.Left=100
If intX=1 then
Obj.Top=intY + 500
else
Obj.Top=intY + 1000
End If
intY=Obj.Top
Obj.Visible=True
Next intX
Set Obj=Nothing
Err_Handler:
     MsgBox Err.Description
End Sub
'Removing TreeView Controls on the Click event of RemoveTreeView Button
Private Sub cmdRemoveTreeView()
On error goto Err_Handler
Licenses.Remove "COMCTL.TreeCtrl.1"
For intX= 0 to 5
Controls.Remove "TreeView" & intX
Next intX
Err_Handler:
    MsgBox Err.Description
End Sub