文件出处
https://bbs.bccn.net/viewthread.php?tid=390936&highlight=%CA%F7
文件下载
1、怎么更换红框的图片，用自己做的图片。

2、Olecontrol2是怎么搞出来的，好像是图片控件，Nodes.Add(,,"Root","人员目录表",1)的“1”就是图片，但只有1-5，且图片不好看。（Olecontrol1我知道在那里搞出来）
With ThisFormset.form1.olecontrol1
    .ImageList = Thisformset.form1.Olecontrol2
    .Nodes.Add(,,"Root","人员目录表",1)
...

3、怎么增加checkbox
我想把上面的列子改为权限控制。请指教。

1. olecontrol2 是一个 ImageList 控件，只不过由于其 top 属性设置为 -46，你看不见罢了。将top设为 50，可在表单上看见此控件。
2. olecontrol2 保存的是 TreeView 控件中各节点要用到的图标，可以在 olecontrol2上单击右键，选择“ImageListCtrl Properties”,在其 Image 页中可看到所有的图标。
3. 在表单上添加 olecontrol2 的方法与添加 olecontrol1 的方法相同。
   第一步：选择“Tools”-“Option”-“Controls”-“ActiveX Control”，在列表中复选“Microsoft ImageList Control,Version 6.0”，单击“OK”
   第二步：单击 Form Controls 工具条上的 ADD 按钮并选择 ActiveX Controls，则工具条上会显示 ImageList 按钮
   第三步：将工具条上的 ImageList 控件添加到表单
4. 将 olecontrol1 的 CheckBoxes 属性设为 .t.即可在每个节点前显示复选框

[此贴子已经被作者于2016-2-4 13:35编辑过]