用VB.NET寫(xiě)一個(gè)獲取鼠標(biāo)當(dāng)前屏幕的坐標(biāo).

你好 那因?yàn)槟惴旁诹薒abel1控件的移動(dòng)事件了 。

為蘭坪等地區(qū)用戶提供了全套網(wǎng)頁(yè)設(shè)計(jì)制作服務(wù)，及蘭坪網(wǎng)站建設(shè)行業(yè)解決方案。主營(yíng)業(yè)務(wù)為做網(wǎng)站、成都網(wǎng)站建設(shè)、蘭坪網(wǎng)站設(shè)計(jì)，以傳統(tǒng)方式定制建設(shè)網(wǎng)站，并提供域名空間備案等一條龍服務(wù)，秉承以專業(yè)、用心的態(tài)度為用戶提供真誠(chéng)的服務(wù)。我們深信只要達(dá)到每一位用戶的要求，就會(huì)得到認(rèn)可，從而選擇與我們長(zhǎng)期合作。這樣，我們也可以走得更遠(yuǎn)！

說(shuō)明：

當(dāng)前你的代碼是在當(dāng)鼠標(biāo)經(jīng)過(guò)Label1的MouseMove事件才被激活，其他事件不備激活的。

建議應(yīng)用函數(shù)調(diào)用具體方法網(wǎng)上應(yīng)該有

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

上面代碼我是做過(guò)測(cè)試才發(fā)的，完全能實(shí)現(xiàn)你的要求！?。。。?！

VB.NET 坐標(biāo)查找問(wèn)題

代碼就不寫(xiě)了,給你思路,默認(rèn)左上角是原點(diǎn),所以x的位置=窗口高度-y.

這樣就獲得xy

復(fù)雜點(diǎn)的辦法是重寫(xiě)繪制,繪制十字,

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

vb.net 怎樣獲取鼠標(biāo)單擊點(diǎn)的坐標(biāo)

通過(guò)窗體的MouseDown事件的e.X和e.Y屬性獲取。通過(guò)e.Location屬性獲取Point類型的坐標(biāo)。

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

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 鼠標(biāo)點(diǎn)擊獲取Chart圖形上的坐標(biāo)值

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

VB.Net編程提取CAD中的點(diǎn)坐標(biāo),采用AcadApp.ActiveDocument.Utility.GetPoint函數(shù)老是報(bào)錯(cuò)是什么原因啊???

D=AcadApp.ActiveDocument.Utility.GetPoint(,"選擇一個(gè)點(diǎn)：")

你的參數(shù)沒(méi)有弄對(duì)

GetPoint是個(gè)方法不是屬性必須要括號(hào)()

他的兩個(gè)參數(shù)為可選參數(shù)（startpoint，prompt）第一個(gè)參數(shù)是起始點(diǎn)，第二個(gè)參數(shù)是提示語(yǔ)

在VB.net中怎么獲取 鼠標(biāo)在屏幕中的坐標(biāo)

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

Private Declare Function ScreenToClient Lib "user32.dll" (ByVal hwnd As Int32, ByRef lpPoint As POINTAPI) As Int32 '窗口坐標(biāo)聲明

Private Structure POINTAPI '聲明坐標(biāo)變量

Public x As Int32 '聲明坐標(biāo)變量為32位

Public y As Int32 '聲明坐標(biāo)變量為32位

End Structure

'以上是聲明部分

'以下是窗口部分

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick '用時(shí)鐘控件來(lái)取坐標(biāo),窗口上放個(gè)Timer組件,Enabled為允許,周期為10到100毫秒均可

Dim P As POINTAPI '聲明坐標(biāo)變量

Dim xx, yy '聲明轉(zhuǎn)換要用到的變量

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

ScreenToClient(Me.Handle.ToInt32, P) '轉(zhuǎn)換為本窗體的坐標(biāo)

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

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

TextBox1.Text = xx + "和" + yy '文本框的內(nèi)容為X坐標(biāo)和Y坐標(biāo)

End Sub

當(dāng)前題目：vb.net點(diǎn)取坐標(biāo) vbs點(diǎn)擊某個(gè)坐標(biāo)
網(wǎng)頁(yè)鏈接：http://chinadenli.net/article28/hgchjp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供商城網(wǎng)站、定制網(wǎng)站、小程序開(kāi)發(fā)、網(wǎng)站設(shè)計(jì)、建站公司、虛擬主機(jī)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)