VB 图片库程序求一个程序代码，主要是想把我的所有图片装在一个EXE程序里，不要打开文件夹，可直接浏览

显示全部楼层 · 2010-9-6 18:55:12

求一个程序代码，主要是想把我的所有图片装在一个EXE程序里，不要打开文件夹，可直接浏览

千问 · 2010-9-6 18:55:12

'添加控件ImageList1 (在通用属性点选制定义,在图片属性中点击插入图片,选择你要放到程序里的图片) Dim Sn As IntegerPrivate Sub Form_Click() '在窗体上单击
Sn = Sn + 1
If Sn <= ImageList1.ListImages.Count Then '循环浏览
Picture = ImageList1.ListImages(Sn).Picture
Else
Sn = 1
Picture = ImageList1.ListImages(Sn).Picture
End IfEn

VB 图片库程序 求一个程序代码，主要是想把我的所有图片装在一个EXE程序里，不要打开文件夹，可直接浏览

VB 图片库程序求一个程序代码，主要是想把我的所有图片装在一个EXE程序里，不要打开文件夹，可直接浏览