VB怎么实现标签中的字从右向左一直滚动

Question

一打开窗体，文字就运动了，不要有按钮。是指标签中的字从标签的右到左运动 最好有注释
嗯 ，是要有文字的标签从另一个标签的从右到左运动

Answer 1

加入一个LABEL控件，一个TIMER控件，如下代码
Dim n As Integer, a As String

Private Sub Form_Load()
Label1.Caption = "欢迎光临" '标签内容为欢迎观临
Label1.Alignment = 1 '右对齐
'Label1.Alignment = 0 如果你想左到右就把这行加上，把上面去掉
n = 1 '初始值1
a = Label1.Caption '记录label1的值，因为一会要改变的，这里先转移一下
Timer1.Interval = 400 ' 每0.4秒移动一下
End Sub

Private Sub Timer1_Timer()
Label1.Caption = a & Space(n) 'label1的内容改变成n个空格加原来的内容
'Label1.Caption = Space(n) & a 如果你想左到右就把这行加上，把上面去掉
n = n + 1 '空格变多
If n = 15 Then '当n数量为15时，从头移动
n = 1
End If
End Sub

Answer 2

其实不是你想像的那样的 不是自在运动

而是标签在运动

字运动 标签不动 是做不出的
都是标签滚动的

追问

那是嵌套在另一个标签中的吗？ 可以给下代码吗，最好有注释的

追答

Private Sub Form_Load()
Label1.Caption = "是回到iueoiusffogjiod 放屁狗降低哦i" '设置标签显示的文字
Timer1.Interval = 100 '设置Timer的时间间隔0.1秒
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Label1.Left = Label1.Left - 50 '每次标签向左运动50像素

If Label1.Left < -Label1.Width Then '如果标签移出窗体左边
Label1.Left = Me.ScaleWidth '标签从窗体右边进入
End If
End Sub

追问

如果要把label1 移出 label2 左边 该怎么改

Answer 3

新建VB工程，加入一个LABEL控件，一个TIMER控件，把TIMER控件的间隔定为1000
加入下面代码看看是不是你要的结果
Option Explicit
Private str As String
Private Sub Form_Load()
str = "the label move to left "
Label1.Caption = str

End Sub

Private Sub Timer1_Timer()
Dim ss As String
ss = Left(str, 1) '
str = Right(str, Len(str) - 1)
str = str & ss
Label1.Caption = str

End Sub