列表视图中的图标

Question

我正在尝试在列表视图中的文本旁边添加图标，但我一直收到错误消息说我需要 必须先初始化图像列表才能使用它。

在表单 window 加载时，我有以下代码：

    Private Sub UserForm_Initialize()
    ImageList3.ListImages.Add Key:="Koala", Picture:=LoadPicture("\images\add_icon.gif")
    end sub

然后我尝试像这样填充列表视图

li.ListSubItems.Add , , "Test", "Koala"

我做错了什么？

Answer 1

您需要使用 Icons-属性将您的 ImageList link 添加到 ListView。在 UserForm_Initialize 中添加以下行 - 这必须在填充 ListView 之前完成（当然您需要调整 ListView 的名称）

Me.ListView1.Icons = ImageList3

Icons In ListView