Как определить положение курсора в RichTextBox

Очень известный пример - в VB редакторе при нажатии '.' или Ctrl+Space выпадает ЛистБокс с вариантами. Надо сделать нечто похожее. Но что-то я не нашел, коим образом определить место нахождение курсора (в пикселях или твипах), куда вставлять ЛистБокс. Можно, конечно, определить длину строки при данном шрифте, учесть положение СкроллБаров итд. Но должен же быть простой путь. Кто знает - помогите!

0

номер строки я знаю, как определить, а вот позицию курсора...
http://vbnet.ru/faq/showtopic.asp?id=317

0

Private Declare Function GetCaretPos Lib 'user32' (lpPoint As POINTAPI) As Long
Private Type POINTAPI
X As Long
Y As Long
End Type

Dim lpPoint As POINTAPI
Dim rtLeft As Long, rtTop As Long

Private Sub Form_Load()
Me.ScaleMode = 3
With Me.List1
.AddItem 'первый'
.AddItem 'второй'
.AddItem 'третий'
End With
rtLeft = Me.RichTextBox1.Left
rtTop = Me.RichTextBox1.Top
End Sub

Private Sub List1_DblClick()
With Me.RichTextBox1
.SetFocus
.SelText = Me.List1.Text
End With
End Sub

Private Sub List1_KeyDown(KeyCode As Integer, Shift As Integer)
With Me.RichTextBox1
If KeyCode = 39 Or KeyCode = 37 Then
KeyCode = 0
.SetFocus
Exit Sub
End If
If KeyCode = 13 Then
KeyCode = 0
.SetFocus
.SelText = Me.List1.Text
.SetFocus
Exit Sub
End If
End With
End Sub

Private Sub List1_LostFocus()
Me.List1.Visible = False
End Sub

Private Sub RichTextBox1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 32 And Shift = 2 Then
KeyCode = 0
GetCaretPos lpPoint
With Me.List1
.Left = rtLeft + lpPoint.X + 5
.Top = rtTop + lpPoint.Y + Me.RichTextBox1.SelFontSize + 5
.Visible = True
.SetFocus
End With
End If
End Sub

1

а что richtextbox.selstart не то?

0

Да вроде бы selstart определяет начало выделенного текста (позиция символа (1-2-3...), ну или положение курсора, но только в номерах символов

0

Так а тебе что тогда надо позиция в строке?

0

Спасибо nikola, точто надо

0