在listView中插入图片？

Question

源码如下：
             Set itmx = ListView1.ListItems.Add(, , rs("per_id") & "")
                itmx.SubItems(1) = LoadPicture(App.Path & "\pic\Setup.bmp")
以上源码有错误，请教高手指出。多谢！！！
如何在listview1控件中的一条记录中插入一张图片？

Answer 1

Option ExplicitPrivate Sub Form_Load()
  Set Me.ListView1.SmallIcons = Me.ImageList1
End Sub先找个ImageList1把他和listview进行关联
ImageList1里面插入你想要的图片当你想要选择哪个图的时候就
  Set itmx = form.listview.ListItems.Add(, , Trim("" & AdoRs("L_name")), , 1)
1,就是代替第几张图，你可以查下MSDN，有很详细的帮助哦:P

Answer 2

出现如下错误：
       在Imagelist 可以使用之前必须将它初始化
请问如何解决？

Answer 3

SubItems 是一个字符串数组object.SubItems(index) [= string]它不能加载图片。ListItem 可以加载图片（通过 ImageList）：
   Dim imgX As ListImage
   Set imgX = ImageList1.ListImages. Add(, , LoadPictureApp.Path & _ 
                                                        "\pic\Setup.bmp")
   itmX.Icons = ImageList1 
   itmX.Icon = 1

Answer 4

你可以在Imagelist插入图片或者代码加入即可
还要把ImageList1和listview进行关联

Answer 5

>出现如下错误：
>       在Imagelist 可以使用之前必须将它初始化
>请问如何解决？窗体上放一个Imagelist

Answer 6

//出现如下错误：
       在Imagelist 可以使用之前必须将它初始化
请问如何解决？先给Imagelist控件添加几张图片即可

Answer 7

加上这一句就可以：
ListView1.Icons = ImageList1