VB獲取鼠標在當前窗體的坐標

采用窗體的MouseMove事件來獲取鼠標坐標是可以的。如下我在文本框中顯示當前鼠標的坐標程序，鼠標移動，坐標自動更新，只需要一個文本框控件，代碼如下：Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

10年積累的網站設計、做網站經驗，可以快速應對客戶對網站的新想法和需求。提供各種問題對應的解決方案。讓選擇我們的客戶得到更好、更有力的網絡服務。我雖然不認識你，你也不認識我。但先網站制作后付款的網站建設流程，更有金華免費網站建設讓你可以放心的選擇與我們合作。

Text1.Text = "當前鼠標坐標為，X：" X "Y:" Y

End Sub

在VB.net中怎么獲取 鼠標在屏幕中的坐標

Private Declare Function GetCursorPos Lib "user32" (ByRef lpPoint As POINTAPI) As Long '全屏坐標聲明

Private Declare Function ScreenToClient Lib "user32.dll" (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 System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick '用時鐘控件來取坐標,窗口上放個Timer組件,Enabled為允許,周期為10到100毫秒均可

Dim P As POINTAPI '聲明坐標變量

Dim xx, yy '聲明轉換要用到的變量

GetCursorPos(P) '獲取鼠標在屏幕中的位置

ScreenToClient(Me.Handle.ToInt32, P) '轉換為本窗體的坐標

xx = P.x.ToString '把X轉換成能顯示到文本框的字符串格式

yy = P.y.ToString '把Y轉換成能顯示到文本框的字符串格式

TextBox1.Text = xx + "和" + yy '文本框的內容為X坐標和Y坐標

End Sub

用VB.NET寫一個獲取鼠標當前屏幕的坐標.

你好 那因為你放在了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

上面代碼我是做過測試才發(fā)的，完全能實現你的要求?。。。。。?/p>
當前標題：vb.net鼠標坐標 vbs獲取鼠標坐標
標題URL：http://weahome.cn/article/hjoddc.html