VB 如何使label控件 从右向左滚动 并且要从左边消失的字立刻在右边显示出来 label1.caption=“实装部”
4个回答
展开全部
'添加一个Timer1 Label1
Private Sub Form_Load()
With Label1
.BackStyle = 0
.AutoSize = True
.Caption = "滚动字幕的演示"
End With
Timer1.Interval = 10
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Label1.Left = Label1.Left + X - Label1.Width / 2
Label1.Top = Label1.Top + Y - Label1.Height / 2
End If
End Sub
Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Top = IIf(Label1.Top <= -Label1.Height, 0, Label1.Top)
Label1.Top = IIf(Label1.Top >= Me.ScaleHeight - Label1.Height, Me.ScaleHeight - Label1.Height, Label1.Top)
End Sub
Private Sub Timer1_Timer()
Label1.Left = IIf(Label1.Left <= -Label1.Width, Me.ScaleWidth, Label1.Left - 10)
End Sub
Private Sub Form_Load()
With Label1
.BackStyle = 0
.AutoSize = True
.Caption = "滚动字幕的演示"
End With
Timer1.Interval = 10
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Label1.Left = Label1.Left + X - Label1.Width / 2
Label1.Top = Label1.Top + Y - Label1.Height / 2
End If
End Sub
Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Top = IIf(Label1.Top <= -Label1.Height, 0, Label1.Top)
Label1.Top = IIf(Label1.Top >= Me.ScaleHeight - Label1.Height, Me.ScaleHeight - Label1.Height, Label1.Top)
End Sub
Private Sub Timer1_Timer()
Label1.Left = IIf(Label1.Left <= -Label1.Width, Me.ScaleWidth, Label1.Left - 10)
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
加一个timer控件,通过改变坐标来移动label
加两个picturebox左边一个右边一个,作用是用来遮住label多余的部分,这样当label移动时露在两个picturebox外边的部分就能看见,而被遮住的部分就看不见了,就有了滚动效果。
然后呢这个label后边的一部分内容要和前边的相通,当相同位置到达起始位置时立刻恢复到原来的位置,就能够循环了。
做过flash的可能好理解点
加两个picturebox左边一个右边一个,作用是用来遮住label多余的部分,这样当label移动时露在两个picturebox外边的部分就能看见,而被遮住的部分就看不见了,就有了滚动效果。
然后呢这个label后边的一部分内容要和前边的相通,当相同位置到达起始位置时立刻恢复到原来的位置,就能够循环了。
做过flash的可能好理解点
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
用两个同属性label实现你要的效果,将两label放在容器(如frame)内,frame边框设成0,label宽度设成与frame相同,label2保持在label1的右边,设置两者TOP属性相同,移动label1
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
是控件滚动还是控件里的字滚动
追问
你好,是字滚动
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询