VB 6获取鼠标当前位置API
2005-11-10 09:55
323 查看
存档信息。
以前写一个控制自定义窗口缩放的控件的时候用过，今天用怎么也想不起来。找出源代码，原来如此：
Private Declare Function GetCursorPos Lib "user32" (lpPoint As PointAPI) As Long
Private Type PointAPI
X As Long
Y As Long
End Type
使用：
Dim ScreenPoint As PointAPI
GetCursorPos ScreenPoint
换算为Twips：
Screen.TwipsPerPixelX * ScreenPoint.X
Screen.TwipsPerPixelY * ScreenPoint.Y
以前写一个控制自定义窗口缩放的控件的时候用过，今天用怎么也想不起来。找出源代码，原来如此：
Private Declare Function GetCursorPos Lib "user32" (lpPoint As PointAPI) As Long
Private Type PointAPI
X As Long
Y As Long
End Type
使用：
Dim ScreenPoint As PointAPI
GetCursorPos ScreenPoint
换算为Twips：
Screen.TwipsPerPixelX * ScreenPoint.X
Screen.TwipsPerPixelY * ScreenPoint.Y
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- jq和js用mousemove获取鼠标当前位置
- 根基百度api获取当前位置
- jquery获取当前鼠标所在位置的坐标
- VC 获取鼠标当前位置坐标和RGB
- jquery 如何获取鼠标当前位置？
- C# 获取当前鼠标的位置
- delphi 获取鼠标当前位置的相对坐标
- WinForm 中获取鼠标当前位置
- javascript获取鼠标当前位置坐标 详细出处参考：http://www.jb51.net/article/27204.htm
- winform获取鼠标当前位置和截取鼠标双击事件
- VB一个全局的获取当前鼠标样式的代码(特征)
- delphi 获取鼠标当前位置的相对坐标
- C#微信结合百度api获取当前用户的地理位置
- 在skyline中获取当前鼠标的位置坐标，屏蔽右键菜单
- WinForm中获取鼠标当前位置
- 获取鼠标的当前位置
- 获取鼠标点相对于各屏幕、窗体和当前控件的位置
- WinForm中获取鼠标当前位置
- js与jquery中获取当前鼠标的x、y坐标位置的代码
- WinForm中获取鼠标当前位置