miaozk2006

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)

'È¡µÃÖ¸¶¨ÐеÚÒ»¸ö×Ö·ûµÄλÖÃ
LineIndex = SendMessage(TextControl.hWnd, EM_LINEINDEX, CurRow, 0)

If SelRange.cpMin = LineIndex Then
GetCurPos.x = 1
Else

TempStr = String$(SelRange.cpMin - LineIndex, 13)

'¸´ÖƵ±Ç°ÐпªÊ¼µ½Ñ¡ÔñÎı¾¿ªÊ¼µÄÎı¾
CopyMemory ByVal StrPtr(TempStr), ByVal StrPtr(TempArray) + LineIndex, SelRange.cpMin - LineIndex
TempArray = TempStr

'ɾ³ýÎÞÓõÄÐÅÏ¢
ReDim Preserve TempArray(SelRange.cpMin - LineIndex - 1)

'ת»»Îª Unicode
TempStr = StrConv(TempArray, vbUnicode)

GetCurPos.x = Len(TempStr) + 1
End If
GetCurPos.y = CurRow + 1
End Function