Question

VB中动态生成的image控件如何拖动

Answer 1

Option Explicit
Dim WithEvents img As Image
Private Sub Form_Load()
Set img = Controls.Add("vb.image", "img")
img.Picture = Me.Icon
img.Stretch = True
img.MousePointer = vbSizeAll
img.ToolTipText = "按住鼠标左键可以拖动我"
img.Visible = True
End Sub

Private Sub img_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Static mx%, my%
If Button = 1 Then
img.Move img.Left - mx + X, img.Top - my + Y
ElseIf Button = 0 Then
mx = X
my = Y
End If
End Sub