国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發設計 > 正文

獲取鼠標在屏幕上的位置

2019-11-18 17:50:35
字體：大 中 小
來源：轉載
供稿：網友
在標準EXE工程添加一個Timer、兩個Label控件，各屬性取默認值。然后給工程拷貝如下代碼：

OptionExplicit

'申明API函數
aspOINTAPI)AsLong

PrivateTypePOINTAPI'聲明數據類型
xAsLong
yAsLong
EndType

DimzAsPOINTAPI'變量

PrivateSubForm_Load()
Timer1.Enabled=True
Timer1.Interval=1
EndSub

PrivateSubTimer1_Timer()
GetCursorPosz'獲取坐標
Label1="x:"&z.x'顯示x坐標
Label2="y:"&z.y'顯示y坐標
EndSub->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 乐东| 尼木县| 融水| 潞城市| 古蔺县| 凤冈县| 桃园市| 噶尔县| 柘荣县| 扎鲁特旗| 五台县| 普兰县| 黔西县| 碌曲县| 新蔡县| 湄潭县| 体育| 富源县| 两当县| 四平市| 南平市| 惠来县| 中牟县| 大兴区| 江安县| 张家口市| 台中县| 长顺县| 海伦市| 鄂尔多斯市| 江西省| 祁东县| 黎平县| 盐城市| 普宁市| 滕州市| 亚东县| 遵化市| 江达县| 新沂市| 遵义县|