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

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

用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

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

本類教程下載

系統下載排行

主站蜘蛛池模板: 久久久久久久久久免观看 | 日韩中文字幕在线看 | 在线播放wwww | 久久精品国产99久久99久久久 | 色老头一区二区三区在线观看 | 中文字幕不卡在线 | 特黄三级视频 | 国产三级播放 | 久久99毛片免费观看不卡 | 狠狠色综合色综合网络 | 中文字幕乱码二三区免费 | 国产精品卡哇伊小可爱在线观看 | 韩国日本一级毛片免费视频 | 国产午夜亚洲精品第一区 | 天天操夜夜爱 | 狠狠操天天干 | 一级毛片中国 | 欧美综合图片一区二区三区 | 国产成人高清精品免费5388 | 在线色综合| 成人αv在线视频高清 | 激情综合婷婷亚洲图片 | 精品在线一区二区三区 | 亚洲精品久久久中文字 | 91看片网站| 国产成人一区二区三区高清 | 日本不卡毛片一二三四 | 欧美综合区自拍亚洲综合 | 人人澡人人模人人添 | 亚洲一区欧美 | 国产欧美日韩一区二区三区在线 | 久久69精品久久久久久hb | 黄色福利在线 | 免费观看91视频 | 久久久高清国产999尤物 | 久久综合热88 | 欧美视频一区二区三区四区 | 高清欧美色欧美综合网站 | 久久福利青草精品资源站免费 | 毛片特级 | 老司机成人午夜精品福利视频 |