Question

vb tree控件收缩问题

如题
展开后节点是一个图标
折叠后节点又是另外一个图标
求大神代码实现

Answer 1

1、前提条件：在窗体上添加一个ImageList控件（ImageList1），在ImageList1中添加需要的图标并为其命名（方便使用），然后通过设置树状浏览器控件的ImageList属性为ImageList1将该控件与图像列表控件联系起来。

2、在树状浏览器控件的Collapse事件中添加代码，把节点的图像设置成关闭的文件夹：
Private Sub TreeView1_Collapse(ByVal Node As ComclLib.Node)
Node.Image="closed" 'closed是关闭图标的名称
End Sub

3、在树状浏览器控件的Expand事件中添加代码，把节点的图像设置成打开的文件夹：
Private Sub TreeView1_Collapse(ByVal Node As ComclLib.Node)
Node.Image="open" 'open是打开图标的名称
End Sub

Answer 2

响应 Expand 和 Collapse 事件, 修改 Node的图片.

追问

兄弟，你好赖给段代码或者例子呗