拖动无边框的窗体 下载 xuliangdu 32 0 RAR 2020-07-20 18:07:42 拖动无边框的窗体 If Me.bFormDragging Then Dim oMoveToPoint As Point '' 以当前鼠标位置为基础,找出目标位置 oMoveToPoint = Me.PointToScreen(New Point(e.X, e.Y)) '' 根据开始位置作出调整 oMoveToPoint.Offset(Me.oPointClicked.X * -1, _ (Me.oPointClicked.Y + _ 立即下载 微信扫一扫:分享 微信里点“发现”,扫一下 二维码便可将本文分享至朋友圈。