关于：怎样在窗体利用中移动鼠标事件采集屏显光标的 X、Y 坐标值？

lkkl66

关于：怎样在窗体利用中移动鼠标事件采集屏显光标的 X、Y 坐标值？

我本人想利用移动光标的事件采集屏显光标的 X、Y 坐标值－－来进行隐藏菜单的开发设计，请论坛的兄弟、姐妹们出出招数。

最好作个简单采集X、Y 坐标值的实例！         

在此lkkl66先谢谢了！！！

有知道现成的请给个连接地址：

[ 本帖最后由 lkkl66 于 2008-7-31 17:42 编辑 ]

goto2008

怪怪的问题,帮你顶一下

lkkl66

谢谢顶贴！  

建议丫头：下次顶贴要最后顶，不然在最后被你顶下来！

我找到了，是FAN0217   版主  做的：《控制和取得鼠标坐标例子》

连接地址：http://www.office-cn.net/forum.p ... p;extra=&page=1

lkkl66

Private Sub Command4_Click()

MsgBox "厉害，居然能点到我！奖励！"
End Sub

Private Sub Command4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim X1 As Long
Dim Y1 As Long
Dim point1 As POINTAPI
    X = GetSystemMetrics(SM_CXSCREEN)               '获取当前屏幕的横向大小（单位：像素）
    Y = GetSystemMetrics(SM_CYSCREEN)               '获取当前屏幕的竖向大小（单位：像素）
GetCursorPos point1   '获得光标位置
X1 = Int((LTrim(str(X)) - 0 + 1) * Rnd + 0)
Y1 = Int((LTrim(str(Y)) - 0 + 1) * Rnd + 0)
SetCursorPos X1, Y1
End Sub
Private Sub Form_Timer()
Dim point1 As POINTAPI
GetCursorPos point1   '获得光标位置
Me.Caption = "光标位置：(" & point1.X & ", " & point1.Y & ")"
End Sub



类似（红色字体）这样的VBA编程语句资料又在什么地方才能找到？

不知道有没有人知道？知道给发一个。

或者给发一个连接：

[ 本帖最后由 lkkl66 于 2008-7-31 21:24 编辑 ]