vb通过属性移动标签位置

2025-02-23 12:08:43

推荐回答（1个）

回答1：

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控件。