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

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

用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

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

本類教程下載

系統下載排行

主站蜘蛛池模板: 成人小视频在线观看 | 国产精选一区二区 | 国产午夜精品不卡观看 | 亚洲免费在线看 | 韩国一区在线 | 色老头一区二区三区在线观看 | 色福利在线| 日本www高清免费视频观看 | 日韩一区二区三区在线视频 | 中国免费xxxx免费视频 | 精品老司机在线观看视频 | 久久狠狠色狠狠色综合 | 三级专区 | chinese老太交视频在线观看 | 久久精品亚洲欧美日韩久久 | 国产精品七七在线播放 | 欧美另类高清zo欧美 | 牛牛视频在线 | 日本免费一区二区三区看片 | 日本不卡一区二区三区 | 中文字幕三级理论影院 | 中文字幕视频不卡 | jizzjizz日本护士出水视频 | 午夜影院操 | 亚洲视频在线网站 | 好吊妞视频988在线播放 | 天天色天天干天天 | 亚洲一二三区视频 | 91国内| 99精品福利视频在线一区 | 久青草国产观看在线视频 | 老妇毛片久久久久久久久 | 日日噜噜噜夜夜爽爽狠狠视频 | 免费超级碰碰视频网站在线观看 | 一区二区在线观看视频在线 | 精品视频在线看 | 在线视频 一区二区 | 国产免费资源 | 人人艹在线| 在线观看日本免费 | 在线观看国产一区亚洲bd |