在一个Form中,怎样用鼠标移动一个按钮?
在一个Form中,只有一个按钮控件cmdMove。
想用鼠标拖着这个按钮移动,但是效果很不好。发现.Left 和 X 的单位不一致。
代码如下:
Dim MouseDown As Boolean
Private Sub cmdMove_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then MouseDown = True
End Sub
Private Sub cmdMove_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If MouseDown Then
If X > 0 And X < Me.ScaleWidth Then
cmdMove.Left = X
End If
End If
End Sub
Private Sub cmdMove_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
MouseDown = False
End Sub