VB滚动动画

效果图

代码示例

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
If Label1.Left >= Form1.Width Then 
Label1.Left = -Label1.Width 
Else
Label1.Left = Label1.Left + 100 
End If
End Sub

代码解析

1. Private Sub Command1_Click()
   • 这是 Command1 按钮的单击事件的事件处理程序。
   • 单击 Command1 按钮时，启用计时器 1。
2. Private Sub Command2_Click()
   • 这是 Command2 按钮的单击事件的事件处理程序。
   • 单击 Command2 按钮时，它将禁用计时器 1。
3. Private Sub Timer1_Timer()
   • 这是 Timer1 的计时器事件的事件处理程序。
   • 它定期触发（由计时器的“间隔”属性确定）。
4. If Label1.Left >= Form1.Width Then
   • 此条件检查 Label1 的左侧位置是否大于或等于 Form1 的宽度。
   • 如果为 true，则表示标签已超出窗体的右边缘。
5. Label1.Left = -Label1.Width
   • 如果步骤 4 中的条件为 true，则此行将 Label1 的左侧位置设置为等于其自身宽度的负值。
   • 这会有效地将标签移动到窗体的左侧，就在可见区域之外。
6. Else
   • 如果步骤 4 中的条件为 false，即标签仍在表单的可见区域内，则执行此代码块。
7. Label1.Left = Label1.Left + 100
   • 此行将 Label1 的左侧位置增加 100 缇（VB6 中的度量单位）。
   • 它将标签向窗体的右侧移动。

计时器间隔确定触发Timer1_Timer事件的频率，标签每次移动的距离取决于您设置的值（在本例中为 100 缇）。

注意： 此代码段假定您有一个窗体 （Form1），其中包含两个命令按钮（Command1 和 Command2）和一个标签 （Label1）。