label条上下滚动到指定位置停顿10秒,然后继续,计数器该怎么设置哇
来源:百度知道 编辑:UC知道 时间:2024/06/07 07:01:44
Timer1.Interval = 50 '上下滚动速度
Label1.Top = Me.ScaleHeight'
Private Sub Timer1_Timer()
Label1.Move Label1.Left, Label1.Top - 50
If Label1.Top + Label1.Height < 0 Then Label1.Top = Me.ScaleHeight
end sub
这个可以实现上下滚动
请问一次滚动到某点 然后停顿10秒后继续滚动 该怎么实现
Label1.Top = Me.ScaleHeight'
Private Sub Timer1_Timer()
Label1.Move Label1.Left, Label1.Top - 50
If Label1.Top + Label1.Height < 0 Then Label1.Top = Me.ScaleHeight
end sub
这个可以实现上下滚动
请问一次滚动到某点 然后停顿10秒后继续滚动 该怎么实现
Private Sub Timer1_Timer()
If Label1.top=500 then
Timer1.Interval = 10000
else
Timer1.Interval = 50
Label1.Move Label1.Left, Label1.Top - 50
If Label1.Top + Label1.Height < 0 Then Label1.Top = Me.ScaleHeight
endif
end sub
或者你可以采用第二个TIMER事件来控制TIMER1的可用性来实现