VB初学者疑问，第三问

Question

VB6.0中，为什么用代码给imagelist加载图片会显示数据不匹配。而在form界面中通过imagelist的属性插入图片则无问题。

Dim imgx As ImageList
Set imgx = ImageList1.ListImages.Add(, , LoadPicture(App.Path & "\456.ico"))

Answer 1

ImageList1.ListImages.Add的返回值类型是ListImage，跟你定义的不匹配。

Dim imgx As ImageList
Set imgx = Me.Controls.Add("MSComctlLib.ImageListCtrl.2", "imgList")
Call imgx.ListImages.Add(, , LoadPicture(App.Path & "\456.ico"))
Picture1.Picture = imgx.ListImages.Item(1).Picture