如何零基础学习VBA—HwndWrapper对象

在Excel VBA中，HwndWrapper对象是表示包装一个句柄（hwnd）的对象。句柄是与窗口或控件相关联的唯一标识符，可以用来访问和操作该窗口或控件。HwndWrapper对象允许VBA代码与具有句柄的窗口或控件进行交互，例如发送消息、操纵窗口大小和位置等操作。

当操作和与句柄相关的窗口或控件时，以下是5个示例说明HwndWrapper对象的使用：

1、获取窗口句柄：

Dim hwnd As Variant
hwnd = Application.Hwnd

此代码将获取当前Excel应用程序的窗口句柄。

2、查找特定窗口句柄：

Dim targetHwnd As Long
targetHwnd = FindWindow(vbNullString, "窗口标题")

此代码将查找具有指定窗口标题的窗口，并返回其句柄。

3、向窗口发送消息：

Dim hwndWrapper As HwndWrapper
Set hwndWrapper = New HwndWrapper(targetHwnd)
hwndWrapper.SendMessage WM_CLOSE, 0, 0

此代码创建一个新的HwndWrapper对象，使用目标窗口句柄，并向该窗口发送WM_CLOSE消息关闭该窗口。

4、获取窗口尺寸和位置：

Dim hwndWrapper As HwndWrapper
Set hwndWrapper = New HwndWrapper(targetHwnd)
Dim rect As RECT
GetWindowRect hwndWrapper.Hwnd, rect
Debug.Print "窗口左上角坐标：(" & rect.Left & ", " & rect.Top & ")"
Debug.Print "窗口宽度：" & rect.Width
Debug.Print "窗口高度：" & rect.Height

此代码获取指定窗口的尺寸和位置，并在VBA的立即窗口中打印输出。

5、设置窗口大小和位置：

Dim hwndWrapper As HwndWrapper
Set hwndWrapper = New HwndWrapper(targetHwnd)
SetWindowPos hwndWrapper.Hwnd, 0, LeftPosition, TopPosition, Width, Height, SWP_SHOWWINDOW

此代码将指定窗口的大小和位置设置为新的值（LeftPosition， TopPosition， Width， Height），并显示该窗口。

需要注意的是，示例中的函数FindWindow、SendMessage、GetWindowRect和SetWindowPos是Windows API函数，需要在模块中进行声明才能使用，并引用相应的DLL文件。

在使用HwndWrapper对象时，需要注意以下几点：

1、引用必要的库：使用HwndWrapper对象需要引用VBA编辑器中的"Microsoft Forms 2.0 Object Library"。请确保已经正确引用了该库，否则代码将无法编译。

2、确认句柄有效性：在创建HwndWrapper对象之前，需要确保句柄的有效性。句柄可以是由FindWindow等函数返回的窗口句柄。

3、生命周期管理：HwndWrapper对象是COM对象，因此需要负责它的生命周期管理。通常情况下，应该在不再需要该对象时显式释放它，可使用Set hwndWrapper = Nothing来释放对象。

4、错误处理：在使用HwndWrapper对象时，应该考虑错误处理。例如，如果指定的句柄无效，可能会引发异常。对于可能的异常情况，应该使用适当的错误处理机制来捕获并处理异常。

5、对象方法和属性：HwndWrapper对象具有一些有用的方法和属性，可以执行与窗口相关的操作。在使用HwndWrapper对象时，应该熟悉这些方法和属性，并根据需要进行调用和使用。

需要特别注意的是，HwndWrapper对象主要是用于与Windows API交互，它提供了一种在VBA中操作窗口句柄的方式。但使用HwndWrapper对象需要格外小心，因为操作窗口或控件可能会导致意外的结果或错误，所以一定要谨慎使用，并确保对操作的影响和结果有清楚的了解。