拖动无边框的窗体
拖动无边框的窗体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 + _ SystemInformation.CaptionHeight + _ SystemInformation.BorderSize.Height) * -1) ''移动窗体Me.Location = oMoveToPoint
VBnet003-拖动无边框的窗体.rar
预估大小:39个文件
VBnet003-拖动无边框的窗体
文件夹
.vs
文件夹
拖动无边框的窗体
文件夹
v15
文件夹
.suo
42KB
Server
文件夹
sqlite3
文件夹
storage.ide
4KB
storage.ide-shm
32KB
db.lock
文件夹
193.5KB
文件大小:
评论区