VB中如何在ListView中添加ImageList中的图像

Question

问题如标题。

本人是VB初学者，希望有高手给予帮助，步骤越详细越好~~谢谢~~~

注：我的MS Windows Common Controls 是5.0的.

Answer 1

方法如下

（1）新建一个VB工程

（2）在控件工具箱中添加ListView和ImageList控件

在工具箱上鼠标右键单击-->调出菜单

（3）在窗体上布置一个ListView和一个ImageList

（4）向ImageList1中插入图片

鼠标右键单击ImageList1-->调出菜单-->属性

（5）将ListView1与ImageList关联起来

鼠标右键单击ListView1-->调出菜单-->属性

（6）窗体代码

Option Explicit

Private Sub Form_Load()
    '向ListView1中添加项
    Dim itemX As ListItem
    With ListView1
        Set itemX = .ListItems.Add(, , "项目1")
        '使用ImageList1中的#1图
        itemX.Icon = 1
        
        Set itemX = .ListItems.Add(, , "项目2")
        '使用ImageList1中的#2图
        itemX.Icon = 2
    End With
End Sub

（7）运行效果

Answer 2

先在imagelist中添加好图片~
双击listview的自定义。之后在属性页中设置图象列表由无改成imagelist1
最后
用ListView1.ListItems.Add , , "项目名字", 1
来增加项目就或以了 后面的1是代码imagelist1里的图标编号