模板
教程
环境
性能
功能
管理
拖动没有标题栏的窗体
程序说明: 这种方法是一种高手方法,同样是讲传递给Windows一个鼠标的当前位置是在标题区内,但和(一).(二)不同的地方是前两个方法是通过SendMessage函数来传消息给Windows,而这个方法是在Windows的到消息前,通过对WM_NCHITTSET消息的栏截.来判断当前的鼠标位置,然后作出相应的处理 程序代码: Module1 Public Const WM_NCHITTEST = &H84 Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Public prevWndProc As Long Function WndProc(ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long 程序首先调用CallWindowProc,这样就可以从还回值的知当前的鼠标位置位于那一个区域,接着判断返回值是否等于HTCLENT(工作区)内,如果是,则将返回值设置成TICAPTION(标题区),这样就可以瞒过Windows,让Windows以为鼠标位于标题区内 Form1 Option Explicit Private Sub Command1_Click() Private Sub Form_Load() Private Sub Form_Unload(Cancel As Integer)
Option Explicit
Public Const GWL_WNDPROC = (-4)
Public Const HTCLIENT = 1
Public Const HTCAPTION = 2
Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
WndProc = CallWindowProc(prevWndProc, hWnd, Msg, wParam, lParam)
If Msg = WM_NCHITTEST And WndProc = HTCLIENT Then
WndProc = HTCAPTION
End If
End Function
Unload Me
End Sub
prevWndProc = GetWindowLong(Me.hWnd, GWL_WNDPROC)
SetWindowLong Me.hWnd, GWL_WNDPROC, AddressOf WndProc
End Sub
SetWindowLong Me.hWnd, GWL_WNDPROC, prevWndProc
End Sub
