Question

VB程序设计，怎样让command按钮在屏幕上移动？

Answer 1

Private Sub Command1_Click()
Label1.Move Label1.Left - 100 '左移100单位
End Sub

Private Sub Command2_Click()
Label1.Move Label1.Left + 100 '右移100单位
End Sub

Private Sub Command3_Click()
Label1.Move Label1.Left, Label1.Top - 100 '上移100单位
End Sub

Private Sub Command4_Click()Label1.Move Label1.Left, Label1.Top + 100 '下移100单位
End Sub
Private Sub Command5_Click()
End
End Sub

以上是通过单击命令按钮上、下、左、右移动一个标签的代码，移动按钮控件基本也这样，稍微变通就行了

Answer 2

改变其Left、Top属性即可，或者用Move方法

追问

写一下那个代码嘛

追答

你光说移动，没说怎么移动，移动多少，怎么写代码？？？

追问

她说是在屏幕上飞来飞去

追答

鼠标捕捉不到按钮的代码：
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Move Rnd * Me.ScaleWidth, Rnd * Me.ScaleHeight
End Sub

Answer 3

.net用command的 Location属性，赋值X，Y绝对坐标，或偏移量
VB6 同样直接定义top，left的值即可