日本国产亚洲-日本国产一区-日本国产一区二区三区-日本韩国欧美一区-日本韩国欧美在线-日本韩国欧美在线观看

當前位置:雨林木風下載站 > 技術開發教程 > 詳細頁面

用Windows API取得窗體句柄二例

用Windows API取得窗體句柄二例

更新時間:2022-05-05 文章作者:未知 信息來源:網絡 閱讀次數:

文/胡克

  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

溫馨提示:喜歡本站的話,請收藏一下本站!

本類教程下載

系統下載排行

主站蜘蛛池模板: 午夜视频网 | 久久久高清日本道免费观看 | 色偷偷伊人 | 婷婷色伊人 | 日日夜夜狠狠干 | 国产粉嫩00福利福利福利 | 久久精品国产亚洲网址 | 国产一区欧美 | 波多野结衣在线不卡 | 日韩精品永久免费播放平台 | www四虎在线高清 | 在线日韩欧美一区二区三区 | 日本a在线看 | 国产精品视频播放 | 国产成人高清精品免费软件 | a在线播放 | 国产欧美日韩中文字幕 | 久久久久久久国产精品 | 国产精品福利久久久久久小说 | 日本不卡视频在线播放 | 日韩成人免费 | 久久蜜桃| 久久成人毛片 | 亚洲欧美日韩中文综合在线不卡 | 台湾三级视频 | 日日摸日日碰夜夜爽视频网站 | 日韩一级精品久久久久 | 国产日| 国产三级在线观看视频 | 九九热线有精品视频99 | 色热热| 91欧美精品综合在线观看 | 国产精品边做边接电话在线观看 | 亚洲天堂高清 | 日韩精品视频美在线精品视频 | 久久精品欧美一区二区 | 999热在线精品观看全部 | 中文字幕国产在线观看 | 日本欧美一区二区三区在线观看 | 国产欧美在线一区二区三区 | 日韩免费在线视频 |