用VB.NET写一个获取鼠标当前屏幕的坐标.

来源：百度知道 编辑：UC知道 时间：2024/05/16 22:37:03
Public Sub Label1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseMove
Dim ScreenStr, X, Y
X = MousePosition.X()
Y = MousePosition.Y()
Label1.Text = "X=" + CStr(X) + "Y=" + CStr(Y)
End Sub

我这样写的,但是他只能当鼠经过Label1这个控件时,才能获取坐标,而鼠标在其他位置则不能.我想让他可以获取整个屏幕的坐标,谁知道该怎样写?

你好 那因为你放在了Label1控件的移动事件了 。
说明：
当前你的代码是在当鼠标经过Label1的MouseMove事件才被激活，其他事件不备激活的。
建议应用函数调用具体方法网上应该有
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
TextBox1.Text = System.Windows.Forms.Cursor.Position.X.ToString & "," & System.Windows.Forms.Cursor.Position.Y.ToString
End Sub
上面代码我是做过测试才发的，完全能实现你的要求！！！！！！