VB6.0 控件自由拖动

VB6.0 控件自由拖动

有时，在编写代码的时候，可能需要一个浮动的界面(根据用户需求，实时拖动)，下面将介绍如何实现
1.首先要修改控件的DragMode模式为0.如下图所示：

'注意，以下代码可以直接复制到VB代码最前面，然后，替换Frm_SM为对应的控件名即可
'2.整体添加全局变量，即程序写在最前面
Dim xPos As Long
Dim yPos As Long
'3.为对象的MouseDown添加代码，如下图所示
Private Sub Frm_SM_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
xPos = X
yPos = Y
End If
End Sub
'4.添加对象的鼠标移动代码，如下：
Private Sub Frm_SM_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Frm_SM.Move Frm_SM.Left + (X - xPos), Frm_SM.Top + (Y - yPos)
End If
End Sub

最终的效果如下图所示