vb6.0 如何在TreeView控件节点前加一个不同的图标

首先，添加部件“Microsoft

Windows

Common

Controls

6.0”.添加控件Treeview1，Imagelist1.注意，Treeview添加图标必须通过Imagelist控件的辅助来进行。然后右击Imagelist1，选择属性，在里面的对话框中选择Image选项卡，单击Insert

Image

按钮，找到你需要的图标，全部导入。我以VB的Common文件夹中的Graphics\Icons\Comm中的图标为例。代码如下。

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

Option

Explicit

Private

Sub

Form_Load()

Dim

i

As

Integer

TreeView1.ImageList

=

ImageList1

For

i

=

1

To

ImageList1.ListImages.Count

TreeView1.Nodes.Add

Text:=i,

Image:=i

Next

End

Sub

1、首先你要讲清楚Delphi的哪个版本

2、其次你要讲清楚在设计模式下还是在运行模式下

以Delphi

7以前的版本

为例

TreeView本身不能有图标，但是他有TreeView.Images属性，因此我们可以利用TImageList控件来设置TTreeView的节点图标

...

//设置图标来源

TreeView1.Images=ImageList1

...

//设置节点图标在ImageList1中的对应序号

TreeView1.Items[0].ImageIndex:=0

..

treeview中的点有stateindex是选中后的搁笔值，你必定没改，所所以默认值，而你父搁笔可能也是默认值，所以一样了，你只要在生成子node

时同时设置imageindex和stateindex就可以了

---