vb教程之用Windows API取得窗体句柄二例

当前位置:

首页 > 编程开发 > vb >

vb教程之用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

　　3、用API Viewer把指定点的窗口的句柄的API函数WindowFromPointXY的声明粘贴到窗体的声明部分：

　　Private Declare Function WindowFromPointXY Lib "user32" Alias

　　"WindowFromPoint" (ByVal xPoint As Long, ByVal yPoint As Long) As Long

　　4、在窗体上添加timer控件，并把Interval属性设为500(毫秒)，用如下的Timer事件完成操作：

　　Private Sub Timer1_Timer()

　　Dim xy As POINTAPI'(声明变量类型)

　　GetCursorPos xy'(取得XY的座标)

　　ahwnd = WindowFromPointXY(xy.x, xy.y) '(取得当前鼠标坐标下窗口的句柄)

　　Me.Caption = ahwnd'(在标题栏显示当前坐标下窗口的句柄)

　　End Sub

　　获取激活窗口的句柄

　　用GetFocus函数可获得激活窗口(拥有输入焦点的窗口)的句柄。

　　1、用API Viewer工具将函数GetFocus的声明粘贴到窗体的声明部分：

　　Private Declare Function GetFocus Lib "user32" Alias "GetFocus" () As Long

　　2、新建一工程，添加两个文本框text1和text2，两个文本框控件的GotFocus事件代码如下：

　　Sub Text1_GotFocus()

　　　h&& = GetFocus&&()

　　　Debug.Print h&&(在立即窗口显示当前窗口句柄)

　　End Sub

　　Private Sub Text2_GotFocus()

　　　h&& = GetFocus&&()

　　Debug.Print h&

　　End Sub

栏目列表