怎样拖动一个控件时窗体随着拖动？

Question

用API函数ReleaseCapture和SendMessage，处理image1的mouse_down事件

Answer 1

在窗体上放一个picturebox叫picpaper
定义两个窗体级变量Option Explicit
Private Dx As Long
Private Dy As LongPrivate Sub imgPaper_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dx = X
    Dy = Y
End SubPrivate Sub imgPaper_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   On Error Resume Next
   Dim n As Integer
    'move form
    Dim mx As Integer
    Dim my As Integer
    
    If Button = 1 Then
        mx = X - Dx
        my = Y - Dy
        Me.Left = Me.Left + mx
        Me.Top = Me.Top + my
    End If
End Sub