[vb6.0] 运行后使控件可拖动

最新推荐文章于 2021-06-12 20:43:43 发布

boys1999

最新推荐文章于 2021-06-12 20:43:43 发布

阅读量1.1k

点赞数

分类专栏： VB6.0

VB6.0 专栏收录该内容

30 篇文章 5 订阅

订阅专栏

Option Explicit
Dim cX As Long
Dim cY As Long
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
    Source.Move X - cX, Y - cY
End Sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Picture1.Drag 1
    cX = X: cY = Y
End Sub
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Picture1.Drag 2
End Sub