怎样获得鼠标的位置呀？

Question

我用vb回了一个波形，希望双击鼠标建就能确定其此时的坐标，怎么弄呢？
还希望画完后，就把它锁住，别人改不了？

Answer 1

鼠标位置应该在mousedown/mouseup中获取

Answer 2

１．获得鼠标当前位置：
'首先声明
Public Type POINTAPI
        X As Long
        Y As Long
End TypePublic Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
'然后直接获取
dim curP as POINTAPI
curP=GetCursorPos
'（curP.x  就是鼠标所在的X轴位置，curP.y 就是y罗)２．锁鼠标（最笨的办法，让它不能动）
先声明：
Public Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
　'添加一个timer控件，设为Interval为100，里面的代码是：dim a as long 
a=SetCursorPos(curP.x,curP.y)
doevents
'下面这句是通过一个全局变量结束锁定：
if YNval=True then timer1.Enabled=False

Answer 3

获取鼠标位置的地方勿忙写错了，　应该是：'然后直接获取
dim curP as POINTAPI
GetCursorPos curP
'（curP.x  就是鼠标所在的X轴位置，curP.y 就是y罗)

Answer 4

控件里的？　　那你就从下面的事件里获得相对的x.y吧。Private Sub 控件_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)同时也获取屏幕的x.y,用来做　锁鼠标用吧。

Answer 5

GetCursorPos,获取鼠标位置，SetCursorPos，设置鼠标位置。