
利用vb滚动条控制timer控件的速度
展开全部
我觉得大概的思路是获取滚动条的位置,然后改变time控件的Interval
属性的值,这样就能调整快慢了。
属性的值,这样就能调整快慢了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
小弟学vb不久可能编的不是不好,请多多指点
Dim
timestep
As
Integer
Private
Sub
Form_Load()
HScroll1.Max
=
1000
timestep
=
HScroll1.Value
+
100
Timer1.Interval
=
timestep
End
Sub
Private
Sub
HScroll1_Change()
timestep
=
HScroll1.Value
+
100
Timer1.Interval
=
timestep
End
Sub
Private
Sub
Timer1_Timer()
Picture1.Left
=
Picture1.Left
+
100
End
Sub
Dim
timestep
As
Integer
Private
Sub
Form_Load()
HScroll1.Max
=
1000
timestep
=
HScroll1.Value
+
100
Timer1.Interval
=
timestep
End
Sub
Private
Sub
HScroll1_Change()
timestep
=
HScroll1.Value
+
100
Timer1.Interval
=
timestep
End
Sub
Private
Sub
Timer1_Timer()
Picture1.Left
=
Picture1.Left
+
100
End
Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询