VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 利用GetCursorPos 读取滑鼠的座标 
发表评论(0)作者:, 平台:, 阅读:15826, 日期:2000-03-12
利用GetCursorPos 读取滑鼠的座标 

在 VB 程式中如何读取 Mouse 游标的位置  使用 GetCursorPos Windows API 

以下是呼叫的方法

  1. API 的宣告  Private Type POINTAPI x As Long y As Long End Type

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI)

As Long 注: 如果以上的宣告放在「一般模组」底下  应将 Private 保留字去掉

 

2. 呼叫范例  Dim p As POINTAPI Call GetCursorPos( p ) ' ( p.x, p.y

) 就等於滑鼠游标的位置