向右移动可以，向左移动怎么不行啊。

赤热的心发布于 2013-12-26 21:51， 484 次点击

向右移动可以，我就把left改成right然后就不行了，求解。

Private Sub timer1_timer()

If Label1.Right > Width + Right - 150 Then
   Label1.Move Label1.Right + 150

Else
    Label1.Right = Label1.Right - Width

    End If

End Sub

4 回复

seafish0112013-12-27 09:06

控件有left这个属性而没有right这个属性，所以不行；
如果你想反方向运动，那就用 “-”。

seafish0112013-12-27 09:12

例如下面代码：

程序代码：

Private Sub timer1_timer()

If Label1.Left < 0 Then
Label1.Move 150
Else
Label1.Move -150
End If
End Sub

赤热的心2013-12-27 23:42

回复 3楼 seafish011

谢了哈。

赤热的心2013-12-27 23:43

回复 2楼 seafish011

谢了哈，难怪不行，长知识了。