VB滚动动画

  • A+
所属分类:编程茶楼

效果图

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)。

  • 我的微信
  • 这是我的微信扫一扫
  • weinxin
  • 我的微信公众号
  • 我的微信公众号扫一扫
  • weinxin

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: