获取文本框当前光标所在的行和列

最新推荐文章于 2022-03-14 11:01:16 发布

weixin_30907523

最新推荐文章于 2022-03-14 11:01:16 发布

阅读量384

点赞数

CC 4.0 BY-SA版权

文章标签： java python runtime

原文链接：http://www.cnblogs.com/zqonline/archive/2009/12/22/1629568.html

<System.Runtime.InteropServices.StructLayoutAttribute(System.Runtime.InteropServices.LayoutKind.Sequential)> _
Public Structure HWND__

'''int
Public unused As Integer
End Structure

Partial Public Class TextBoxHelper

Const EM_LINEFROMCHAR As Integer = &HC9
Const EM_LINEINDEX As Integer = &HBB
Const EM_GETLINE As Integer = &HC4
Const EM_GETSEL As Integer = &HB0

<DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Ansi, EntryPoint:="SendMessageW")> _
Public Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
End Function

''' <summary>
''' 获取指定文本框当前光标所在的行和列
''' </summary>
''' <param name="texthwnd"></param>
''' <param name="iLineX">列</param>
''' <param name="iLineY">行</param>
''' <remarks></remarks>
Public Sub GetCaretPos(ByVal texthwnd As System.IntPtr, ByRef iLineX As Long, ByRef iLineY As Long)

Dim l, l1, l2 As Integer
l = SendMessage(texthwnd, EM_LINEINDEX, -1, 0)

iLineY = SendMessage(texthwnd, EM_LINEFROMCHAR, l, 0)
iLineY += 1

iLineX = SendMessage(texthwnd, EM_GETSEL, 0, 0)
iLineX = CInt(iLineX / 2 ^ 16) - l + 1

End Sub

End Class

测试调用：

Private Sub RichTextBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles RichTextBox1.MouseDown
Dim h As New TextBoxHelper
Dim l, c As Long
h.GetCaretPos(Me.RichTextBox1.Handle, c, l)
Me.Label1.Text = String.Format("L:{0};C{1}", l, c)
End Sub

转载于:https://www.cnblogs.com/zqonline/archive/2009/12/22/1629568.html