VB如何实现让标签从左到右来回移动

发布网友

我来回答

共2个回答

热心网友

Option Explicit
Dim mMove As Long '定义一个标签移动步长变量Private Sub Form_Load()
mMove = 100 '设置移动步长
End SubPrivate Sub Timer1_Timer()
'判断Label是否到达左右边界，
'如果标签的Left加上移动步长小于0，则认为标签达到左边界
'如果标签的Left加上移动步长大于窗体宽度减去标签自身宽度，则认为标签到达右边界
'标签如果达到左右边界，则对其移动步长反向。
If Label1.Left + mMove <= 0 Or Label1.Left + mMove >= Me.Width - Label1.Width Then mMove = -mMove
'让标签的Left加上移动步长，达到让标签移动的目的
Label1.Left = Label1.Left + mMove
End Sub
======================================== 新建一个工程，加上一个Label和Timer控件。

热心网友

添加一个timer控件(假设：你的标签名叫Label1，Timer名叫Timer1，开始在左面向右移动步长为10)padding = 10在Timer1的Timer事件中加入[code]'具体判断边界要修改一下If padding<0 And Label1.Left + Label1.Width <= Me.Left Thenpadding = -padding
End If
If padding>0 And Label1.Left >= Me.Right Thenpadding = -padding
End If
Label1.Left += padding[/code]