VB.NET中如何獲取TextBox的光標(biāo)屏幕坐標(biāo)？

TextBoxBase.GetPositionFromCharIndex 方法

安溪網(wǎng)站制作公司哪家好，找成都創(chuàng)新互聯(lián)公司！從網(wǎng)頁設(shè)計(jì)、網(wǎng)站建設(shè)、微信開發(fā)、APP開發(fā)、成都響應(yīng)式網(wǎng)站建設(shè)等網(wǎng)站項(xiàng)目制作，到程序開發(fā)，運(yùn)營(yíng)維護(hù)。成都創(chuàng)新互聯(lián)公司成立于2013年到現(xiàn)在10年的時(shí)間，我們擁有了豐富的建站經(jīng)驗(yàn)和運(yùn)維經(jīng)驗(yàn)，來保證我們的工作的順利進(jìn)行。專注于網(wǎng)站建設(shè)就選成都創(chuàng)新互聯(lián)公司。

檢索控件內(nèi)指定字符索引處的位置。

此方法使您得以確定特定字符索引在控件中的位置。此方法可用于諸如顯示快捷菜單項(xiàng)或控件中某個(gè)單詞的幫助信息等任務(wù)。例如，如果希望當(dāng)用戶在控件中的單詞上右擊時(shí)向用戶顯示選項(xiàng)菜單，則可以使用此方法確定單詞的位置以正確顯示 ContextMenu 控件。

Control.PointToScreen 方法

將指定工作區(qū)點(diǎn)的位置計(jì)算成屏幕坐標(biāo)。

在VB點(diǎn)虐 中怎么獲取 鼠標(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í)鐘控件來取坐標(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

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

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

下面的代碼示例使用 Location 屬性跟蹤鼠標(biāo)左鍵單擊，并繪制一系列直線段作為對(duì)用戶輸入的響應(yīng)。如果隱藏窗體然后重新顯示它，此示例不保留已繪制的線段，該代碼為簡(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