vb 无边框窗体拖动

    REM vb 无边框窗体拖动


    Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (
        ByVal hWnd As Long,
        ByVal wMsg As Long,
        ByVal wParam As Long,
        ByVal lParam As Any) As Long
    Public Declare Function ReleaseCapture Lib "user32" () As Long
    Public Const WM_SYSCOMMAND = &H112
    Public Const SC_MOVE = &HF010&
    Public Const HTCAPTION = 2


    REM 在窗体的最上方(相当于有标题的窗体标题栏位置)，放一个Image控件，设置在最底层，然后改名为ImgDrag，加上以下代码即可
    Private Sub ImgDrag_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
        ReleaseCapture
        Call SendMessage(Me.hWnd, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, ByVal 0&)
    End Sub