各位,如何才能显示多图的?

Question

我想把一个目录下的全部图像文件显示出,用ImgThumbnail，可是不知如何操作?
请各位帮助

Answer 1

用FileListBox控件读取文件列表
用LoadPicture来读取图片
用PaintPicture方法来画图
比如：
Dim AdData as Long,Y As Long,X As Long
For AddData=0 to File1.ListCount-1
   Picture1.PaintPicture LoadPicture(File1.Path & "\" & File1.List(AddData)),_
                         X*40,Y*30,40,30
   X=X+1
   If X>=5 then X=0 :Y=Y=1
Next AddData
当然，你还可以自己运算一下图片的比例，搞得更好一些，就像ACDSee一样

Answer 2

//我想把一个目录下的全部图像文件显示出,用ImgThumbnail，可是不知如何操作?
请各位帮助只用ImgThumbnail的话，用微软提供的ImgThumbnail实现不了