如何滚动字幕

首先，我们来看下效果

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

 

我们来看下代码

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

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 的字符数，则返回整个字符串。

转载于:https://www.cnblogs.com/zbqy/archive/2007/02/03/638861.html