vb.net光标的坐标 vb鼠标坐标

提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

VB.NET中如何获取TextBox的光标屏幕坐标？

TextBoxBase.GetPositionFromCharIndex 方法

检索控件内指定字符索引处的位置。

此方法使您得以确定特定字符索引在控件中的位置。此方法可用于诸如显示快捷菜单项或控件中某个单词的帮助信息等任务。例如，如果希望当用户在控件中的单词上右击时向用户显示选项菜单，则可以使用此方法确定单词的位置以正确显示 ContextMenu 控件。

Control.PointToScreen 方法

将指定工作区点的位置计算成屏幕坐标。

相关问答

Q1: VB.NET坐标变换

Dim g As Graphics = PictureBox1.CreateGraphics

g.TranslateTransform(2, 2) ‘定义原点坐标

g.ScaleTransform(1, -1) ’X轴不变，反转Y轴

以PictureBox1中（2,2）点为新的原点（0,0）

向右为X轴正方向向上为Y轴正方向

Q2: 在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

Q3: 如何获得vb中鼠标在窗口的坐标

函数功能：该函数检取光标的位置，以屏幕坐标表示。函数原型：BOOL GetCursorPos（LPPOINT lpPoint）；参数：IpPoint：POINT结构指针，该结构接收光标的屏幕坐标。Visual Basic 6.0 函数声明：[Public/Private] Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long使用时要先定义一个数据结构：Public Type POINTAPIx As Longy As LongEnd Type例如：Dim biao as POINTAPIGetCursorPos biao那么biao.x用来存放当前光标的x轴坐标,biao.y用来存放当前y轴的坐标。返回值：如果成功，返回值非零；如果失败，返回值为零。若想获得更多错误信息，请调用GetLastError函数。

Q4: 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