如果给vba的treeview控件节点前添加icon图片代码实现实例

以下是一个示例代码，可以实现给TreeView控件添加icon图片：

Private Sub UserForm_Initialize()

' 添加节点
Dim rootNode As Node
Set rootNode = TreeView1.Nodes.Add(, , "Root", "根节点")
Dim childNode As Node
Set childNode = rootNode.ChildNodes.Add(, , "Child1", "子节点1")

' 添加图片
Dim imageList As ImageList
Set imageList = Me.ImageList1
rootNode.SelectedImageIndex = 0
rootNode.ImageIndex = 0
childNode.SelectedImageIndex = 1
childNode.ImageIndex = 1

' 将ImageList与TreeView控件关联
Set TreeView1.ImageList = imageList

End Sub

在这个示例代码中，我们首先定义了一个根节点和一个子节点。然后，我们使用ImageList控件来添加两个icon图片，并将它们与根节点和子节点关联。最后，我们将ImageList与TreeView控件关联，以便TreeView控件可以使用这些图标。