文/胡克

　　Windows通過句柄(Handle)識別每個窗體、控件、菜單和菜單項，當程序運行時,它所包含的每個部件都有一個惟一確定的句柄同其他的部件相區(qū)別句柄在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