純api和核心支援庫操作,無需模組,建立個時鐘,原始碼如下:
.版本 2
.dll指令 getparent, 整數型, "user32", "getparent", , $(b) 判斷指定視窗的父視窗 父視窗的句柄。如視窗沒有父,或遇到錯誤,則傳回零。會設定getlasterror
.參數 視窗句柄, 整數型, , 欲測試的視窗的句柄;
.dll指令 getwindowrect, 整數型, "user32", "getwindowrect"
.參數 視窗句柄, 整數型
.參數 矩形區域, 矩形_
.版本 2
.資料型態 矩形_, 公開, rect
.成員 左邊, 整數型, , , left
.成員 頂邊, 整數型, , , top
.成員 右邊, 整數型, , , right
.成員 底邊, 整數型, , , bottom
#.版本 2
.支援庫 eapi
.子程式 __啟動視窗_建立完畢
時鐘1.時脈週期 = 2000
.子程式 _時脈1_週期事件
.局部變數 hwnd, 整數型
.局部變數 hwnd_p, 整數型
.局部變數 rect, 矩形_
hwnd = 取滑鼠所在視窗句柄 ()
hwnd_p = getparent (hwnd)
getwindowrect (hwnd_p, rect)
.如果 (hwnd_p ≠ 0)
輸出偵錯文字 (“左上頂角座標:(” 到文字 (rect.左邊) “,” 到文字 (rect.頂邊) “)”)
輸出偵錯文字 (“左下頂角座標:(” 到文字 (rect.左邊) “,” 到文字 (rect.底邊) “)”)
輸出偵錯文字 (“右上頂角座標:(” 到文字 (rect.右邊) “,” 到文字 (rect.頂邊) “)”)
輸出偵錯文字 (“右下頂角座標:(” 到文字 (rect.右邊) “,” 到文字 (rect.底邊) “)”)
輸出偵錯文字 (“————————————————————”)
.否則
輸出偵錯文字 (「視窗無父視窗」)
.如果結束
以下程式碼:.版本 2
.支援庫 EdirectX.組件 視窗組件1
.程式集變數 左鍵次數, 整數型
.組件變數 右鍵次數, 整數型.子程式 __啟動視窗_建立完畢輸入裝置1.置刷新時間 (50)
輸入裝置1.選擇輸入裝置 (真, 假,假)
輸入裝置1.初始化 (0)
左鍵次數 = 0
右鍵次數 = 0.子程式 _輸入裝置1_滑鼠按鍵被改變
.參數 鍵值, 整數型
.參數 鍵狀態, 整數型。如果真 (鍵值 = 256 且鍵狀
態 = 1) ' 左鍵被按下且放開
左鍵次數 = 左鍵次數 1
標籤1.標題 = “滑鼠左鍵被點選” 到文字 (左鍵次數) “次”
.如果真結束.如果真 (鍵值 = 257 且 鍵狀態 = 1) ' 右鍵被按下且放開
#標籤2.標題 = “滑鼠左鍵被點選” 到文字 (左鍵次數) “次”
.如果真結束
以上是如何透過易語言取得指定視窗的X座標的詳細內容。更多資訊請關注PHP中文網其他相關文章!