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

 

< 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


'''

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

'''
''' 列
''' 行
'''
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