【Office十万为什么】 Access 使用ListView显示图标列表

在窗体中添加Activex控件ListView、ImageList

在代码中添加如下：

Private Sub Form_Load()

With ListView1

 .View = LargeIcon  '显示大图标，相关选项：Details、LargeIcon、List、SmallIcon、Tile

 ' 初始化ImageList
 ImageList1.ListImages.Add , "default", LoadPicture(Application.CurrentProject.Path & "barcode_icon.png")
 
 '将ImageList赋值给ListView.
 .Icons = ImageList1.Object
    
End With

End Sub

备注：listview控件的icons属性在vb中可以用代码：

listview.icons=imglst 'imglst是图像列表控件(ImageListCtrl)

但是在ACCESS中无法通过上面的代码实现，报告出错。在imglst后面加个object，问题就迎刃而解了：

listview.icons=imglst.object