Question

VB中怎么用Timer控件让图片定期更换 求高手解答

我要做一个屏幕保护程序 想用timer控件让背景图片几秒换一个 大约10张左右 循环更换

Answer 1

dim s

private sub tiemr2_timer()
s=val(s)+1
if s<10 then s="0" & s

me.picture=loadpicture("c:\users\think\music\" & s & ".jpg")
end sub

追问

可是运行后显示错误424 是怎么回事

追答

拼写错误tiemr2_timer()
timer2_timer()

追问

我把图片名字都改了  1到10 就是没有前面那个0了 还有 Dim s as integer 是在之前的Form_Load里面

追答

不能再load里 这里定义 就只是局部变量
应该在代码最上面 不是过程里

追问

还是实时错误424 要求对象 本来是没有问题的 加了更改图片的代码 才出现问题

追答

你有添加 timer2控件么

你这个 form 是什么对象啊。。一般默认名称都是 form1 之类的 你确定你窗体名称写对了？