Как получить текущую позицию курсора в TextBox?

Как получить текущую позицию курсора в TextBox?

0

Определение позиции курсора(каретки) в TextBox
'=========================
'Вставьте этот код в форму

Option Explicit

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

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

Private Sub CheckPosition()
Dim char_pos As Long
Dim row As Long
Dim col As Long

char_pos = SendMessage(Text1.hwnd, _
EM_GETSEL, 0, 0)
char_pos = char_pos &H10000

row = SendMessage(Text1.hwnd, _
EM_LINEFROMCHAR, char_pos, 0) + 1

col = char_pos - SendMessage(Text1.hwnd, _
EM_LINEINDEX, -1, 0) + 1

lblPosition.Caption = '(' & Format$(row) & _
', ' & Format$(col) & ')'
End Sub

Private Sub Form_Load()
CheckPosition
End Sub

Private Sub Form_Resize()
Dim hgt As Single

hgt = ScaleHeight - lblPosition.Height
If hgt < 120 Then hgt = 120
Text1.Move 0, 0, ScaleWidth, hgt
lblPosition.Move 0, hgt, ScaleWidth
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, _
Shift As Integer)
CheckPosition
End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, _
Shift As Integer)
CheckPosition
End Sub

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

Private Sub Text1_MouseUp(Button As Integer, _
Shift As Integer, _
X As Single, _
Y As Single)
CheckPosition
End Sub

0

У TextBox'а есть свойство SelStart, через него-то и можно получитьустановить позицию курсора

0