你图片顺序放什么地方的?
TXT文件? 程序里指定? 数组指定。
1、程序指定:使用 SELECT CASE 多分支选择。
全局变量
dim imgjs as long
command按钮事件
dim imgfile as string
select case imgjs
case 0
imgfile="1.jpg"
'图片的全路径,可以写相对路径
case 1
imgfile="2.jpg"
.....
case else
'此节是用来循环的
imgfile="1.jpg"
imgjs=1
end select
imgjs=imgjs+1 '感谢 Artless 的提醒。是忘了写了。
pictuer1. LoadPictuer imgfile
-------------
其它当时没时间写。
大体上与这个类似,都是一个变量计数,然后根据这个变量去取图片名称,再读入。
[
本帖最后由 风吹过b 于 2012-10-11 22:36 编辑 ]