vb6.0如何移动控件

来源：百度知道 编辑：UC知道 时间：2024/05/21 07:12:58
如何做到单击按钮时,窗体中的控件能以动画的形式移动到指定的坐标
说明一下!我希望能和QQ的窗口一样,以慢动作(动画)的形式移动,而不是一闪就到位了!

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
x = (Command1.Left - 1000) / 20
y = (Command1.Top - 2000) / 20
Do
Command1.Move Command1.Left - x, Command1.Top - y
Sleep 50
Loop Until Command1.Left < 1000
End Sub

'移到(1000,2000)

move方法

object.Move left, top, width, height

Move 方法的语法包含下列部分：

部分 描述
object 可选的。一个对象表达式，其值为“应用于”列表中的一个对象。如果省略 object，带有焦点的窗体缺省为 object。
left 必需的。单精度值，指示 object 左边的水平坐标 (x-轴)。
top 可选的。单精度值，指示 object 顶边的垂直坐标 (y-轴)。
width 可选的。单精度值，指示 object 新的宽度。
height 可选的。单精度值，指示 object 新的高度。

嗯，看梦想种子的吧~

也可以重新定好控件的LEFT,TOP值.