vb中如何提示出鼠标所在点的坐标？

Question

vb中如何实现指针停放在窗口上某一位置1秒，就提示出鼠标所在点的坐标？是不是要用到API？谢谢！！！

Answer 1

'停放在窗口上某一位置1秒 你就变通一下加上Timer吧,没啥意义吧?
Private Type POINTAPI
    X As Long
    Y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Dim Point As POINTAPI
   GetCursorPos Point
   Me.Caption = Point.X & " " & Point.Y
End Sub

Answer 2

Form_MouseMove中已经传回了坐标值，再用API就多此一举了。
X / Screen.TwipsPerPixelX & "," & Y / Screen.TwipsPerPixelY

Answer 3

哈哈楼上说的是.我本来替楼主做的是使用Timer全屏幕检测鼠标位置代码的, 后来觉得楼主的要求使用Timer没啥意义,而且又只要停放在窗口上, 因此我把其它代码都干掉了, 没杀干净, 也因此成了 画蛇添足, 呵呵....楼上同志见笑啦.

Answer 4

呵呵，cbm，你是这里的热心人啊，我看你的帖子，长进良多！