| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 803 人关注过本帖
标题:如何取得指针位置
只看楼主 加入收藏
ybfq65
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2017-1-23
收藏
 问题点数:0 回复次数:1 
如何取得指针位置
老师们邦我看看这个:
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
        x As Long
        y As Long
End Type

Private Sub Form_Load()

End Sub

Private Sub Timer1_Timer()
Dim lpPonit As POINTAPI
GetCursorPos lpPonit
Me.Caption = "X = " & lpPoint.x & " Y = " & lpPoint.y
End Sub
运行后说缺少对象?实时错误424?谢谢!!
搜索更多相关主题的帖子: 如何 
2017-01-24 16:35
xzlxzlxzl
Rank: 15Rank: 15Rank: 15Rank: 15Rank: 15
来 自:湖北
等 级:贵宾
威 望:125
帖 子:1091
专家分:5825
注 册:2014-5-3
收藏
得分:0 
lpPonit<>lpPoint
2017-01-24 16:45
快速回复:如何取得指针位置
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.068098 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved