求 vb label 中的文字向上滚动的代码,当最后一行滚动到上边时,第一行再从下边滚动上来,,急需.. 10
3个回答
展开全部
在窗体上添加一个timer控件,一个label控件。代码如下:
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
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2012-08-29
展开全部
滚动 滚床 滚?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
label中的文字滚不了,但是可以考虑滚动整个label
将label放在某个容器内(form,frame或者picture box等),使用timer控制
当label低端到达容器上端时,将该label直接移至容器下端即可
将label放在某个容器内(form,frame或者picture box等),使用timer控制
当label低端到达容器上端时,将该label直接移至容器下端即可
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询