刚刚看到有发表再创提上移动控件的贴子，看了看，就是觉得代码长。不过功能到挺全面，支持键盘移动！

本人收藏了一个范例，虽然只支持鼠标拖动，但是代码少少，有兴趣不妨看看

示例源码：

Private Sub 图像1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        If 图像1.Left - cX + X > 0 Then
            图像1.Left = 图像1.Left - cX + X
        End If
        If 图像1.Top - cY + Y > 0 And 图像1.Top - cY + Y + 图像1.Height < 主体.Height Then
            图像1.Top = 图像1.Top - cY + Y
        End If
       
   End If
   标签2.Caption = "Left：" & 图像1.Left - cX + X
   标签3.Caption = "Top：" & 图像1.Top - cY + Y
End Sub

• 下载地址1

☉推荐使用第三方专业下载工具下载本站软件，使用 WinRAR v3.10 以上版本解压本站软件。
☉如果这个软件总是不能下载的请点击报告错误,谢谢合作!!
☉下载本站资源，如果服务器暂不能下载请过一段时间重试！
☉如果遇到什么问题，请到本站论坛去咨寻，我们将在那里提供更多 、更好的资源！
☉本站提供的一些商业软件是供学习研究之用，如用于商业用途，请购买正版。