捕获窗体移动并处理

最新推荐文章于 2020-07-27 10:52:22 发布

原创最新推荐文章于 2020-07-27 10:52:22 发布 · 1.5k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#function #integer #user

VisualBasic 专栏收录该内容

19 篇文章

订阅专栏

博客给出了窗体移动相关代码。包含form1代码，在窗体加载和卸载时调用相应函数；还有Moudle1代码，声明了Windows API函数，定义了常量和变量，实现了窗体移动中及移动完成时标题的变化，通过HookForm和UnHookForm函数进行处理。

form1代码:

Private Sub Form_Load()
HookForm Me.hWnd
End Sub

Private Sub Form_Unload(Cancel As Integer)
UnHookForm Me.hWnd
End Sub

Moudle1代码:

Private 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
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const WM_FormMoving = 561
Private Const WM_FormFinishMove = 562
Private Const GWL_WNDPROC = (-4)
Dim PrevProc As Long

Public Function WindowProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
   WindowProc = CallWindowProc(PrevProc, hWnd, uMsg, wParam, lParam)
   Select Case uMsg
   Case WM_FormMoving
      Form1.Caption = "窗体移动中"
   Case WM_FormFinishMove
      Form1.Caption = "移动完成"
   End Select
End Function

Public Sub HookForm(ByVal hWnd As Long)
PrevProc = SetWindowLong(hWnd, GWL_WNDPROC, AddressOf WindowProc)
End Sub

Public Sub UnHookForm(ByVal hWnd As Long)
SetWindowLong hWnd, GWL_WNDPROC, PrevProc
End Sub