小编apo*_*neo的帖子

我正在使用VS2010和Windows 7进行滚动文本动画.我有一个文本框,标签和一个按钮,当然还有一个计时器来完成这项工作.以下是我放入计时器的代码.

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Label1.Text = TextBox1.Text
    Timer1.Interval = 1000
    Timer1.Start()

End Sub

Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
    'Dim txtBuffer As String = TextBox1.Text
    Label1.Text = Label1.Text
    If Len(Label1.Text) <> 0 Then
        Label1.Text = Microsoft.VisualBasic.Right(Label1.Text, (Len(Label1.Text) - 1))
    Else
        Timer1.Enabled = False
    End If
End Sub

我的问题是当你在字符串的开头输入一定量的空间时,滚动动画有点奇怪.它不会显示字符串从右侧移动到标签中,但只显示整个字符串然后开始滚动出标签的左边界.

我使用固定长度的标签,我的目的是模拟留言板,因此文本可以从右侧滚动到msg框并从左侧移出.

我每次触发计时器时都会进行调试,并且一定数量空间的字符串头一个接一个地消失.但我没有在标签上看到预期的动画.

标签的大小为7个大写字母的宽度,AutoSize属性为false.如果你输入的文本框中是"[7 space] ABCDEFG",那么你会期望滚动效果是"[7 space]" - >"[6 space] A" - >"[5 space] AB" - > "[4 space] ABC" - …