windows – 在窗口调整大小事件

调整主Excel窗口大小时调用过程.

第一次尝试：

Sub Workbook_WindowResize(ByVal Wn As Window)
    Debug.Print Wn.Width & "x" & Wn.Height
End Sub

结果：

每当“内部”工作簿窗口调整大小时调用子例程,而不是在调整应用程序窗口大小时调用子例程.

第二次尝试

Dim WithEvents App As Application
Private Sub App_WindowResize(ByVal Wb As Workbook,ByVal Wn As Window)
    Debug.Print Wn.Width & "x" & Wn.Height
End Sub

结果：

奇怪的是,同样的事情发生在之前,这肯定让我感到惊讶.仅在调整工作簿窗口而不是应用程序窗口时才会发生该事件.

出于这个原因,我开始考虑使用Windows API.

有许多使用Windows API设置SystemWide键盘和鼠标挂钩的示例.这是一致的：

Public Enum enHookTypes
    WH_CALLWNDPROC = 4
    WH_CALLWNDPROCRET = 12
    WH_CBT = 5
    WH_DEBUG = 9
    WH_FOREGROUNDIDLE = 11
    WH_GETMESSAGE = 3
    WH_HARDWARE = 8
    WH_JOURNALPLAYBACK = 1
    WH_JOURNALRECORD = 0
    WH_MOUSE = 7
    WH_MSGFILTER = (-1)
    WH_SHELL = 10
    WH_SYSMSGFILTER = 6
    WH_KEYBOARD_LL = 13
    WH_MOUSE_LL = 14
    WH_KEYBOARD = 2
 End Enum

Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As LongPtr,ByVal lpfn As Long,ByVal hMod As Long,ByVal dwThreadId As Long) As LongPtr
Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long

Private Declare Function GetLastError Lib "kernel32" () As Long

'Ensure that your hook procedure does not interfere with the normal operation of other hook procedures
Private Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long,ByVal ncode As Long,ByVal wParam As Long,lParam As Any) As Long

Public hndl As Long

Sub HookWindow()
    hndl = SetWindowsHookEx(WH_CALLWNDPROC,AddressOf measureWindow,Application.Hinstance,0&)
    Debug.Print hndl & "~~" & GetLastError()
End Sub

Sub unhookWindow()
    ret = UnhookWindowsHookEx(hndl)
    Debug.Print ret
End Sub

Public Sub measureWindow(code As Long,wParam As Long,lParam As Long)
    If code > 0 Then
        Debug.Print ThisWorkbook.Windows(1).Width & "x" & ThisWorkbook.Windows(1).Height
    Else
        ret = CallNextHookEx(measureWindow,code,wParam,lParam)
    End If
End Sub

结果：

如果我替换WH_CALLWNDPROC：

hndl = SetWindowsHookEx(WH_CALLWNDPROC,0&)

使用WH_KEYBOARD_LL,只要按下某个键,就会调用子程序.同样,如果我用WH_MOUSE_LL替换它,只要移动鼠标或按下鼠标按钮,就会调用子程序.

问题是当我尝试将子程序挂钩到WH_CALLWNDPROC时没有任何反应？

为什么？

我仍然不确定,但除了WH_MOUSE_LL和WH_KEYBOARD_LL之外,enHookTypes中的所有ENUMS都是如此.通过WinAPI文档,我看到你可以使用来自Kernel32.dll的GetLastError来确定操作失败的原因.

到目前为止我得到的错误号是(十进制)错误5(对于JOURNAL钩子)和其余的错误1428.

最终这也失败了.