VB 获取光标在TextBox、RichTextBox中所在的位置

最新推荐文章于 2022-04-23 16:04:21 发布

miaozk2006

最新推荐文章于 2022-04-23 16:04:21 发布

阅读量2.4k

点赞数 1

本文链接：https://blog.csdn.net/miaozk2006/article/details/82417031

版权

VB函数实现获取光标在TextBox和RichTextBox控件中的当前位置，包括所在的行和列，支持中文字符。

摘要由CSDN通过智能技术生成

'支持中文，一个汉字算一列
Option Explicit

Public Const WM_USER = &H400
Public Const EM_EXGETSEL = WM_USER + 52

Public Const EM_LINEFROMCHAR = &HC9
Public Const EM_LINEINDEX = &HBB
Public Const EM_GETSEL = &HB0

Public Type CHARRANGE
cpMin As Long
cpMax As Long
End Type

Public Type POINTAPI
x As Long
y As Long
End Type

Public 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 Declare Sub CopyMemory Lib "kernel32" Alias _
"RtlMoveMemory" (pDst As Any, pSrc As Any, _
ByVal ByteLen As Long)

'取得光标所在的行和列
Public Function GetCurPos(ByRef TextControl As Control) As POINTAPI
Dim LineIndex As Long
Dim SelRange As CHARRANGE
Dim TempStr As String
Dim TempArray() As Byte
Dim CurRow As Long
Dim CurPos As POINTAPI

TempArray = StrConv(TextControl.Text, vbFromUnicode)

'取得当前被选中文本的位置适用于 RichTextBox
'TextControl 用 EM_GETSEL 消息
Call SendMessage(TextControl.hWnd, EM_EXGETSEL, 0, SelRange)

'根据参数wParam指定的字符位置返回该字符所在的行号
CurRow = SendMessage(TextControl.hWnd, EM_LINEFROMCHAR, SelRange.cpMin, 0)