Question

VB程序中，有一个Timer控件，和一个picture box，几张图片，如何让图片在picture box中随机更换

请教各位。 谢谢帮助

Answer 1

假如有五张图片：1.jpg,2.jpg,3.jpg,4.jpg,5.jpg，可以这样写代码：
private sub Timer1_Timer()
dim i as integer
randomize
i=int(rnd*5)+1
picture1.picture=loadpicture(cstr(i) & ".jpg")
end sub
private sub form_load()
timer1.interval=1000'每秒更换一次
end sub

Answer 2

加一个imagelist控件

Answer 3

你做个随机数，按照随机数的大小，随机加载图像。例如有5个图片，则随机数没0.2一个，用 select Case 加载

Answer 4

楼上正解
不过randomize不用每次都占用一次
放到LOAD里就可以了