vb设计中利用timer控件让图片框在窗体中移动,到达边框后返回,给出程序
展开全部
需要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
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
同求啊。。来高手啊···
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询