vb中图片框移动的速度逐渐加快
1个回答
展开全部
需要2个timer和1个picture控件
2个timer的interval属性设置一下,单位毫秒
Private sub form1_load()
timer1.enabled =true
timer2.enabled =fause
End sub
Private sub timer1_timer()
picture1.left=picture1.left +10
if picture1.left + picture1.width > form1.width then
timer2.enabled =true
timer1.enabled =fause
end sub
Private sub timer2_timer()
picture1.left=picture1.left -10
if picture1.left <0 then
timer1.enabled =true
timer2.enabled =fause
end sub
2个timer的interval属性设置一下,单位毫秒
Private sub form1_load()
timer1.enabled =true
timer2.enabled =fause
End sub
Private sub timer1_timer()
picture1.left=picture1.left +10
if picture1.left + picture1.width > form1.width then
timer2.enabled =true
timer1.enabled =fause
end sub
Private sub timer2_timer()
picture1.left=picture1.left -10
if picture1.left <0 then
timer1.enabled =true
timer2.enabled =fause
end sub
赛麦吉
2023-06-03 广告
2023-06-03 广告
这是一张ISO12233:2000标准的分辨率测试卡,目前已被ISO12233:2014 eSFR分辨率测试卡所取代,但是目前使用ISO12233:2000标准的分辨率测试卡还是比较多。 类型 反射式:由前面照明的反射式测试标板 透射式:可...
点击进入详情页
本回答由赛麦吉提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询