imagelist加载图片的问题

williamwangc

尝试使用imagelist，但图片始终加不进去。一到add就出问题。说是type mismatch。不知道问题在哪里。

Private Sub Command1_Click()
Dim imgFolder As Folder
Dim imgFile As File
Dim fso As FileSystemObject
Dim imgList As ImageList
Dim imgX As ListImage
Set imgList = Me.ImageList0.Object
Set fso = New FileSystemObject
Set imgFolder = fso.GetFolder(CurrentProject.Path & "\icon")
For Each imgFile In imgFolder.Files
Set imgX = imgList.ListImages.Add(, imgFile.Name, imgFile.Path)
Next imgFile
MsgBox imgList.ListImages.Count
End Sub

williamwangc

问题就出在set imgX=imgList.ListImages.add这里。

andymark

动态加载示例
http://www.office-cn.net/forum.p ... F%CC%AC%BC%D3%D4%D8

Grant

类型不匹配,看看你的声明和代码有什么地方错了,或者可以参考一下别人的例子,例如andymark提供的