如何滚动字幕

首先，我们来看下效果

这里的 烟雨任平生 是可以动的哦

 

我们来看下代码

首先 要添加一个 计时器控件

Timer1

看下 开始滚动 按钮的事件

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Do While Label1.Text.Length < 13
            Label1.Text = Label1.Text & " "
        Loop
        Label1.AutoSize = True
        Timer1.Start()
    End Sub

-----------

方法

Public Overridable Property AutoSize() As Boolean
     成员属于: System.Windows.Forms.Label

摘要:
 获取或设置一个值，该值指示是否自动调整控件的大小以完整显示其内容。  

当点击 开始滚动按钮后

Timer1 计时器 Start

Public Sub Start()
     成员属于: System.Windows.Forms.Timer

摘要:
 启动计时器。 

 

之后

我们再来看下 计时器的事件 内容

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label1.Text = Microsoft.VisualBasic.Right(Label1.Text, 1) & Microsoft.VisualBasic.Left(Label1.Text, Label1.Text.Length - 1)
    End Sub

方法

Public Function Right(ByVal str As String, ByVal Length As Integer) As String
     成员属于: Microsoft.VisualBasic.Strings

摘要:
返回包含从某个字符串右端开始的指定数量字符的 String。 

参数:
Str: String 表达式，从该表达式返回最右端的字符。 
Length: Integer。指示要返回的字符数的数值表达式。如果为 0，则返回零长度字符串 ("")。如果大于或等于 Str 的字符数，则返回整个字符串。 

 

 方法

Public Function Left(ByVal str As String, ByVal Length As Integer) As String
     成员属于: Microsoft.VisualBasic.Strings

摘要:
返回包含从某个字符串左端开始的指定数量字符的 String。 

参数:
Str: String 表达式，从该表达式返回最左端的字符。 
Length: Integer 表达式。指示要返回的字符数的数值表达式。如果为 0，则返回零长度字符串 ("")。如果大于或等于 Str 的字符数，则返回整个字符串。