API
求各位进来看下GetCursorPos这个函数.....十分感谢!!
墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网
我也要 关注 + 加入社区我试着做一个小程序,窗体上有一个图片框,我想通过窗体的右键单来设置图片框的位置,即在鼠标在窗上的位置.
可是听说API好像是以像素为单位的.而窗体以 缇 为单位,点击右键后图片框总是在别的地方,我把窗体的ScaluMode属性
设为像素后,图片框仍不能到鼠标的位置..我的代码如下,
请各位多多赐教,我改如何改写??十分感谢...
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
X As Long
Y As Long
End Type
Dim mypos As POINTAPI
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
GetCursorPos mypos
If Button = 2 Then
Picture1.Left = mypos.X
Picture1.Top = mypos.Y
End If
End Sub
可是听说API好像是以像素为单位的.而窗体以 缇 为单位,点击右键后图片框总是在别的地方,我把窗体的ScaluMode属性
设为像素后,图片框仍不能到鼠标的位置..我的代码如下,
请各位多多赐教,我改如何改写??十分感谢...
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
X As Long
Y As Long
End Type
Dim mypos As POINTAPI
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
GetCursorPos mypos
If Button = 2 Then
Picture1.Left = mypos.X
Picture1.Top = mypos.Y
End If
End Sub
...全文
相关推荐
精彩编程与编程技巧-利用GetCursorPos 读取滑鼠的座标 ...
### 知识点二：GetCursorPos函数的参数与返回值`GetCursorPos`函数的原型为：```vbPrivate Declare Function GetCursorPos Lib "user32
VB模拟鼠标的方法 SetWindowPos GetCursorPos SetCursorPos 源码
它的语法如下：```vbDeclare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long```这里`lpPoint`是一个结构体
Windows_API_函数详解
声明**```vbPublic Type POINTAPI x As Long y As LongEnd TypePublic Declare Function GetCursorPos Lib "user32
API硬件与系统函数(delphi)[归纳].pdf
**GetCursorPos**：这个API函数返回鼠标指针在屏幕上的当前位置。在Delphi中，可以使用`TPoint`结构来接收坐标。
VB在状态栏中显示鼠标位置.rar
要获取鼠标位置，VB提供了一个名为GetCursorPos的API函数，它返回一个Point结构，包含了鼠标在屏幕上的当前位置。
