VBA TreeView 控件节点添加图标图片：代码实现实例

以下是一个示例代码，可以实现给 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 控件可以使用这些图标。