如何获得vb中鼠标在窗口的坐标

方法一: 直接用 MouseDown事件

举例：（这种方法获取的是点的位置在窗体中，却该对象有MouseDown事件才行，其坐标值为所在容器的相对坐标值）

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 1 Then

Cls

Print "X:"; X, "Y:"; Y

End If

End Sub

方法二：用API函数GetCursorPos来获取位置，用GetAsyncKeyState来获取是否按下左键

这种方法在任何时候都可以获取，哪怕鼠标不在应用程序内也行

在窗体上添加一个计时器，设置Interval属性为10

获取的位置的数字，是屏幕中的位置（不是相对窗体的）

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

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()

Dim P As POINTAPI

X = GetAsyncKeyState(1)

If X = -32767 Then 'x返回的是16位整数，最高位为1，表明按下

Cls

Print "左键按下",

GetCursorPos P

Print " 鼠标x位置：" & PX & " 鼠标y位置：" & PY

End If

X = GetAsyncKeyState(2)

If X = -32767 Then

Cls

Print "右键按下",

GetCursorPos P

Print " 鼠标x位置：" & PX & " 鼠标y位置：" & PY

End If

End Sub

子程序

__启动窗口_创建完毕

输出调试文本

(取鼠标水平位置()

-

_启动窗口左边

,取鼠标垂直位置()

-

_启动窗口顶边)

是这句吗

在窗体的mousemove事件中就可以取得鼠标的位置,在窗体放四个文本框，输入以下代码

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

text1=x

text2=y

text3=button

text4=shift

End Sub

该事件有三个参数，其中button表示鼠标移动过程中哪个键在按下状态，shift表示鼠标在移动过程中shift,alt,ctrf哪个键被按下，x表示鼠标的水平位置，y表示鼠标的垂直位置。你可以自己测试各值表示什么键被按下。

以上就是关于如何获得vb中鼠标在窗口的坐标全部的内容，包括:如何获得vb中鼠标在窗口的坐标、易语言如何获取鼠标在窗口中的位置、VB怎样能获取鼠标在目标窗口中的坐标等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！