Question

VB 如何使label控件 从右向左滚动 并且要从左边消失的字立刻在右边显示出来 label1.caption=“实装部”

Answer 1

'添加一个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

Answer 2

加一个timer控件，通过改变坐标来移动label
加两个picturebox左边一个右边一个，作用是用来遮住label多余的部分，这样当label移动时露在两个picturebox外边的部分就能看见，而被遮住的部分就看不见了，就有了滚动效果。
然后呢这个label后边的一部分内容要和前边的相通，当相同位置到达起始位置时立刻恢复到原来的位置，就能够循环了。
做过flash的可能好理解点

Answer 3

用两个同属性label实现你要的效果，将两label放在容器（如frame）内，frame边框设成0，label宽度设成与frame相同，label2保持在label1的右边，设置两者TOP属性相同，移动label1

Answer 4

是控件滚动还是控件里的字滚动

追问

你好，是字滚动