用Windows API取得窗体句柄二例

用Windows API取得窗体句柄二例

文/胡克

Windows通过句柄(Handle)识别每个窗体、控件、菜单和菜单项，当程序运行时,它所包含的每个部件都有一个惟一确定的句柄同其他的部件相区别句柄在Windows API中具有举足轻重的作用，现举三例，有兴趣的读者不妨一试。

获取窗体和控件的句柄

步骤如下：

1、为了看到显示于屏幕上所有的窗体和控件的句柄，用SetWindowPos函数设置窗口始终在最上面，其他窗口不能覆盖它，并使其只以标题显示于屏幕左上角。

(1)新建一工程，打开API Viwer：Add-ins→API Viewer→File→Load text file→Win32api.txt。

(2)将SetWindowPos函数的声明粘贴到窗体的声明部分：Private Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long。

(3)程序启动时调用SetWindowPos函数，窗体Load事件代码如下：

Private Sub Form_Load()

SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, conSwpNoActivate Or conSwpShowWindow'使窗体一直置于最顶层

End Sub

卧龙传说提醒：当第二个参数hWndInsertAfter的值为-1时置于顶层；值为-2时不置于顶层。

2、为了找到鼠标指针的X和Y坐标，用上面同样的方法，通过API Viewer工具把获取的鼠标指针位置的API函数GetCursorPos的声明和结构类型声明粘贴到窗体的声明部分：

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Type POINTAPI

x As Long

y As Long