vb.net點取坐標 vbs點擊某個坐標

用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

上面代碼我是做過測試才發的，完全能實現你的要求！！！！！！

VB.NET 坐標查找問題

代碼就不寫了,給你思路,默認左上角是原點,所以x的位置=窗口高度-y.

這樣就獲得xy

復雜點的辦法是重寫繪制,繪制十字,

簡單點的辦法就是十字放到picbox或者image里,然后取中,然后隱藏,確定按鈕點擊顯示,中心位置等于坐標點,然后換算左上角控件位置,然后設置坐標.

vb.net 怎樣獲取鼠標單擊點的坐標

通過窗體的MouseDown事件的e.X和e.Y屬性獲取。通過e.Location屬性獲取Point類型的坐標。

下面的代碼示例使用 Location 屬性跟蹤鼠標左鍵單擊，并繪制一系列直線段作為對用戶輸入的響應。如果隱藏窗體然后重新顯示它，此示例不保留已繪制的線段，該代碼為簡單起見而被省略了。

Dim FirstPoint As Point

Dim HaveFirstPoint As Boolean = False

Sub Form1_MouseDownDrawing(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown

If HaveFirstPoint Then

Dim g As Graphics = Me.CreateGraphics()

g.DrawLine(Pens.Black, FirstPoint, e.Location)

HaveFirstPoint = False

Else

FirstPoint = e.Location

HaveFirstPoint = True

End If

End Sub

vb.net 鼠標點擊獲取Chart圖形上的坐標值

click事件中獲取鼠標相對于chart控件的坐標：chart.PointToClient(MousePosition)

VB.Net編程提取CAD中的點坐標,采用AcadApp.ActiveDocument.Utility.GetPoint函數老是報錯是什么原因啊???

D=AcadApp.ActiveDocument.Utility.GetPoint(,"選擇一個點：")

你的參數沒有弄對

GetPoint是個方法不是屬性必須要括號()

他的兩個參數為可選參數（startpoint，prompt）第一個參數是起始點，第二個參數是提示語

在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點取坐標 vbs點擊某個坐標
網頁鏈接：http://m.kartarina.com/article28/hgchjp.html

成都網站建設公司_創新互聯，為您提供商城網站、定制網站、小程序開發、網站設計、建站公司、虛擬主機

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯