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

以下是 VBA 代码示例，演示如何在 TreeView 控件中添加图标：

在 UserForm 上添加一个 TreeView 控件，并设置其 Name 为 treeView1。
在 UserForm 的代码窗口中添加以下代码：

Private Sub UserForm_Initialize()
    '添加图标
    Dim icon1 As ImageList
    Set icon1 = Me.ImageList1
    icon1.ListImages.Add 1, 'folder', LoadPicture('C:\folder.ico')
    icon1.ListImages.Add 2, 'file', LoadPicture('C:\file.ico')
    
    '添加节点及图标
    Dim node1 As Node
    Set node1 = Me.treeView1.Nodes.Add(, , 'Node1', 'Folder1', 'folder')
    Dim node2 As Node
    Set node2 = Me.treeView1.Nodes.Add(node1.Index, tvwChild, 'Node2', 'File1', 'file')
End Sub

说明：

在 UserForm 初始化时，首先添加了两个图标：一个名为'folder'的文件夹图标和一个名为'file'的文件图标。这些图标将被添加到 ImageList 控件中，以便在 TreeView 控件中使用。

然后，通过使用 Nodes.Add 方法，添加了两个节点：一个名为'Node1'的父节点和一个名为'Node2'的子节点。在添加节点时，分别指定了节点的名称、文本和图标。对于父节点，'folder'图标用于表示文件夹；对于子节点，'file'图标用于表示文件。

注意：在上述代码中，图标文件的路径是硬编码的，需要根据实际情况进行更改。