vb.net捕捉光标位置,vb中光标定位

VB.NET 如何获得WebBrowser编辑模式时当前所选择的内容和当前光标所在位置

根本就不可能，webbrowser的你说的功能被封装在控件里了，而且没法调用，除非你重载（overload）不知道你要这个有什么用。如果是为了实现像safari或者火狐之类的高亮搜索或者选择一段文字然后弹出关于这段文字的搜索框的功能就不要用webbrowser，引为webbrowser实质上是IE的内核，所以这些功能基本没有希望。等等吧，等VS2010出来，其中的webbrowser版本就应该是IE8的版本了。如果想做大就全部靠自己，不要相信什么控件。相信我吧，我学.NET很多年了

10年积累的成都做网站、成都网站设计经验，可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你，你也不认识我。但先做网站设计后付款的网站建设流程，更有湘潭免费网站建设让你可以放心的选择与我们合作。

在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中如何获取TextBox的光标屏幕坐标？

TextBoxBase.GetPositionFromCharIndex 方法

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

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

Control.PointToScreen 方法

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

VB 如何获得TextBox的当前光标位置

在很多的编辑软件中有这样一个功能，即当用户在编辑区中输入字符或者按动鼠标使得光标的位置改变时，在编辑软件下方的状态栏中就能显示出光标所在位置的行和列的值。下面就介绍如何用VB编程实现在文本框中的这一功能。

首先，在Form中添加一个文本框(TextBox)，将其MultiLine属性设置为True，以便输入多行文本；再在Form中添加两个标题栏(Label)，以便显示光标位置；然后，在Form的代码窗口中添加程序中的代码。

Option Explici

Const EM_GETSEL = HB0

Const EM_LINEFROMCHAR = HC9

Const EM_LINEINDEX = HBB

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Public Sub GetCaretPos(ByVal TextHwnd As Long, LineNo As Long, ColNo As Long)

Dim I As Long, j As Long

Dim lParam As Long, wParam As Long

Dim k As Long

'首先向文本框传递EM_GETSEL消息以获取从起始位置到

'光标所在位置的字符数

I = SendMessage(TextHwnd, EM_GETSEL, wParam, lParam)

j = I / 2 ^ 16

'再向文本框传递EM_LINEFROMCHAR消息根据获得的字符

'数确定光标以获取所在行数

LineNo = SendMessage(TextHwnd, EM_LINEFROMCHAR, j, 0)

LineNo = LineNo + 1

'向文本框传递EM_LINEINDEX消息以获取所在列数

k = SendMessage(TextHwnd, EM_LINEINDEX, -1, 0)

ColNo = j - k + 1

End Sub

Private Sub Form_Load()

Dim LineNo As Long, ColNo As Long

Call GetCaretPos(Text1.hwnd, LineNo, ColNo)

Label1.Caption = LineNo

Label2.Caption = ColNo

End Sub

Private Sub Form_Resize()

Text1.Width = Me.ScaleWidth

End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)

Dim LineNo As Long, ColNo As Long

Call GetCaretPos(Text1.hwnd, LineNo, ColNo)

Label1.Caption = LineNo

Label2.Caption = ColNo

End Sub

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim LineNo As Long, ColNo As Long

Call GetCaretPos(Text1.hwnd, LineNo, ColNo)

Label1.Caption = LineNo

Label2.Caption = ColNo

End Sub

(程序)

运行上面的程序，在TextBox中输入字符或者按控制键来移动光标时，你可以看到屏幕下面的Label中就能显示出的光标所在的位置。以上程序在Win 95，VB 5.0下运行通过。