比较简单的个问题，鼠标位置的问题，欢迎大家来顶

[cumtbwxj]

扑捉鼠标坐标的函数是哪个？


还有大家看一下这三个帖，解决的话将三个帖的分全送给你
http://community.csdn.net/Expert/topic/4210/4210887.xml?temp=.2760736
http://community.csdn.net/Expert/topic/4211/4211790.xml?temp=.8137934
http://community.csdn.net/Expert/topic/4209/4209745.xml?temp=.163891


谢谢各位了

[3q2008Com]

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long '获取指针位置
Private Type POINTAPI
X As Long
Y As Long
End Type
Private Sub Timer1_Timer() '捕捉
GetCursorPos p
print p.x
print p.y
end sub

[3q2008Com]

少定义变量

Dim p As POINTAPI

放在


Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long '获取指针位置


Private Type POINTAPI
X As Long
Y As Long
End Type


Dim p As POINTAPI

Private Sub Timer1_Timer() '捕捉
GetCursorPos p
print p.x
print p.y
end sub

[sdrcxzy]

楼上抢疯了，呜呜呜……

[cumtbwxj]

但是有点问题

我定义了一个image.width=8

但是鼠标放在他的右下角显示P.x=11


是怎么回事

[cumtbwxj]

请大家看看那三个连接里的问题啊

谢谢

[wangdeshui]

许仙的完全正确