求助:组合框里自动加载ImageListCtrl控件图标的关键字
窗体上有TreeView9树型控件、ImageList4Tree图标控件和TxtTreeImage组合框,当点击树型控件时，想把图标控件中的属性图标关键字加载到组合框里，求助各位怎么加载？在此先谢谢各位了。
我的代码如下：
Private Sub TreeView9_NodeClick(ByVal Node As Object)
'TxtOnAction组合框加载程序所有窗体名称
Dim frm As Document
Dim db As Database
Set db = CurrentDb
For Each frm In db.Containers("Forms").Documents
Me.TxtOnAction.AddItem frm.Name
Next
'TxtTreeImage组合框加载ImageList4Tree图标控件关键字
？
？
？
'把点击的节点信息赋值给文本框
SQL = "SELECT TreeID, ParentID, TreeCaption, TreeImage, OnAction FROM Tree where TreeID=" & Mid(Node.key, 2) & " ORDER BY TreeID;"
Call Connection_String
Conn.Open ConnectionString
Rs.CursorLocation = adUseClient
Rs.Open SQL, Conn, adOpenDynamic, adLockOptimistic
With Me
.TxtTreeID = Rs(1)
.TxtParentID = Mid(Node.key, 2)
.TxtTreeCaption = Rs(2)
.TxtTreeImage = Rs(3)
.TxtOnAction = Rs(4)
End With
Rs.Close
Conn.Close
End Sub
[最优解释]
Dim i As Integer
For i = 1 To ImageList1.ListImages.Count
Combo1.AddItem ImageList1.ListImages(i).Key
Next i
[其他解释]
加入imagelist时指定KEY，下面代码取得
For Each ff1 In Me.ActiveX控件2.ListImages
MsgBox ff1.Key
Next
[其他解释]
TreeView1.Nodes.Add , , , "ab1", 1,2
添加一个名字为ab1节点，后面的1是imagelist中第1个图片，2是第二个图片。前面是默认显示的图片，后面这个2是选择这个节点时显示的图片
TreeView1.Nodes.Add 1, tvwChild, "u:456789", “子节点", "to:WWWA"
这一是添加到第一个节点里的子节点，前面那个没有指定父节点和显示类型。
tvwChild是显示类型，代表子节点，"u:456789"这个子节点的关键字key，最后的"to:WWWA"
是要添加这个关键字的图片。这里没写选择时的图片。可以不要的。
TreeView1.Nodes.Add "u:456789", tvwChild, "M:456", “子子节点", "to:12564"
这是向刚才的子节点再加点一个子子节点。使用的是关键字，关键字必须开头是字母，后面可以是数字。而纯数字，就是代表索引的。指定节点的图片，首先要在TreeView1属性图像列表，选择你使用的imagelist，那么添加节点时，可以指定索引，也可以指定关键字。
如果已经添加的节点，要改变这个图标。那么也可以再指定
TreeView1.Nodes(1).Image = 3
就是指节点1的图标变成第三个图片
TreeView1.Nodes("M:456").Image = "to:567"
就是把"M:456"这个节点的图标，变成"to:567"这张图片
[其他解释]
图标控件关键字：举例说明一下
[其他解释]
TO:WWWWA
treeview树型控件指定使用imagelist控件来插入图像,我想把imagelist控件中的所有图像关键字加载TxtTreeImage组合框中,方便我增加节点时选择用哪个图,不知我这样说清楚没有,谢谢您的帮助
[其他解释]
to:WWWA
加入imagelist时指定KEY,怎样指定,我是个菜鸟,教教我,我这个控件名称是ImageList4Tree,里面有32个图片,谢谢
