【开源项目】花密(Flower Password)VB版之移动无标题窗体模块

'*****************************************************************
' Copyright (c) 2011-2012 FlowerPassword.com All rights reserved.
'      Author : xLsDg @ Xiao Lu Software Development Group
'        Blog : http://hi.baidu.com/xlsdg
'          QQ : 4 4 7 4 0 5 7 4 0
'     Version : 1 . 0 . 0 . 0
'        Date : 2 0 1 2 / 0 4 / 0 7
' Description :
'     History :
'*****************************************************************
Option Explicit

Private Declare Function ReleaseCapture Lib "user32.dll" () As Long

Private Declare Function SendMessage _
                Lib "user32.dll" _
                Alias "SendMessageA" (ByVal hwnd As Long, _
                                      ByVal wMsg As Long, _
                                      ByVal wParam As Long, _
                                      lParam As Any) As Long

Private Const WM_SYSCOMMAND = &H112

Private Const SC_MOVE = &HF010&

Private Const WM_NCLBUTTONDOWN = &HA1

Private Const HTCAPTION = 2

Public Function SetWinMove(ByVal WinHwnd As Long) As Long
    ReleaseCapture
    SetWinMove = SendMessage(WinHwnd, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0&)

    'SendMessage WinHwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End Function


阅读更多
想对作者说点什么?

博主推荐

换一批

没有更多推荐了,返回首页