vb 点击控件移动窗体

最新推荐文章于 2024-07-30 12:07:40 发布

passport_daizi

最新推荐文章于 2024-07-30 12:07:40 发布

阅读量3.8k

点赞数

分类专栏： 19 VB 文章标签： vb integer function button user

本文链接：https://blog.csdn.net/kalision/article/details/7237566

版权

19 VB 专栏收录该内容

14 篇文章 0 订阅

订阅专栏

添加模块  代码如下：
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lparam As Any) As Long

Public Declare Function ReleaseCapture Lib "user32" () As Long

Public Sub DoDrag(TheForm As Form)
    If TheForm.WindowState <> vbMaximized Then
        ReleaseCapture
        SendMessage TheForm.hwnd, &HA1, 2, 0&
        
    End If
End Sub

在该控件的方法调用：

Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
DoDrag Me
End Sub