Question

您好，请问用VB中，image创建数组,timer控制，做动态幻灯片，详细问题如下：

您好，请问用VB中，image创建数组,timer控制，做动态幻灯片（顺序播放），不要在指定文件找图片（因为软件做给别人用的),怎么编代码？

Answer 1

用相对路径。把图片拷贝到程序所在的文件夹下。比如：
private sub timer1_timer()
i=i+1
image1(i).picture=loadpicture(app.path & "\myimage\" & i & ".jpg")
end sub

追问

你好，我的意思是不要在文件夹里面播放图片，image创建数组同时把图片存到数组里了，播放时放的是固定图片，不能更改！这个应该怎么编写啊？

追答

dim i as integer
private sub form_load()
for i=0 to image1.count-1
image1(i).visible=false
next i
end sub

private sub timer1_timer()
image1(i).visible=false
i=i+1
image1(i).visible=true
end sub

追问

好像有些对了。但是还是没显示图片就提示元素不存在（不存在是我数组图片放少了，但没显示图片我就不知道了）。想请阁下帮我编一下全程代码（成功追分），想法如下：
通过一个command点击用iamge创建数组（放置10张图片）按顺序播放，timer控制，这10张图片只播放一次，并用另一个command可以在播放途中停止播放！谢了！

追答

窗体上放10个iamge1控件（控件数组），手写代码，楼主自己测试:

dim k as integer
private sub form_load()
dim i as integer
for i=1 to image1.count-1
image1(i).visible=false
next i
timer1.intelvar=3000 '3秒钟播放一张
timer1.enabled=false
end sub

private sub command1_click() '开始播放
timer1.enabled=true
end sub

private sub command2_click() '结束播放
timer1.enabled=false
end sub

private sub timer1_timer()
image1(k).visible=false
k=k+1
if k>=image1.count then k=0 '循环播放
image1(k).visible=true
end sub

Answer 2

思路：把需要做幻灯片的图片放在某个目录下，然后通过读取目录下的所有图片后再进行循环显示就行了

Answer 3

用VB中的Timer事件控制一些shape控件数组依次可见，应该怎么操作啊？我主要是程序有问题，但不仅仅在这里，关键在Timer事件和form事件中，无法回答，你的