在VB.net中怎么获取 鼠标在屏幕中的坐标

Private Declare Function GetCursorPos Lib "user32" (ByRef lpPoint As POINTAPI) As Long '全屏坐标声明
Private Declare Function ScreenToClient Lib "user32dll" (ByVal hwnd As Int32, ByRef lpPoint As POINTAPI) As Int32 '窗口坐标声明
Private Structure POINTAPI '声明坐标变量
Public x As Int32 '声明坐标变量为32位
Public y As Int32 '声明坐标变量为32位
End Structure
'以上是声明部分
'以下是窗口部分
Private Sub Timer1_Tick(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles Timer1Tick '用时钟控件来取坐标,窗口上放个Timer组件,Enabled为允许,周期为10到100毫秒均可
Dim P As POINTAPI '声明坐标变量
Dim xx, yy '声明转换要用到的变量
GetCursorPos(P) '获取鼠标在屏幕中的位置
ScreenToClient(MeHandleToInt32, P) '转换为本窗体的坐标
xx = PxToString '把X转换成能显示到文本框的字符串格式
yy = PyToString '把Y转换成能显示到文本框的字符串格式
TextBox1Text = xx + "和" + yy '文本框的内容为X坐标和Y坐标
End Sub

以上就是关于在VB.net中怎么获取 鼠标在屏幕中的坐标全部的内容，包括:在VB.net中怎么获取 鼠标在屏幕中的坐标、、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！