VB6实现用鼠标左键拖动控件移动2021-05-31

                    VB6实现用鼠标左键拖动控件移动

1.添加一个Frame控件，名称改为FamWork，设置成控件数组。（设置成控件数组才能和代码匹配）

下面代码实现了用鼠标左键按住Frame控件然后移动Frame的效果。

Dim FamOldX As Single: Dim FamOldY As Single

Private Sub FamWork_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
    FamOldX = X
    FamOldY = Y
End If
End Sub

Private Sub FamWork_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
    FamWork(Index).Top = FamWork(Index).Top + Y - FamOldX
    FamWork(Index).Left = FamWork(Index).Left + X - FamOldY
End If
End Sub