Как определить полную позицию курсора в TextBox

Ответы на вопросы, чаще всего задаваемые в форумах VBStreets. Для тех, кому лень искать.
RayShade
Scarmarked
Scarmarked
Аватара пользователя
 
Сообщения: 5511
Зарегистрирован: 02.12.2002 (Пн) 17:11
Откуда: Russia, Saint-Petersburg

Как определить полную позицию курсора в TextBox

Сообщение RayShade » 25.05.2004 (Вт) 11:01

Private Function CursorPosition(Text As TextBox, Param As Byte)



'********************************************************

'Если param=0 - функция возвращает позицию курсора в строке

'Если param=1 - функция возвращает номер строки, в которой находится курсор

'********************************************************



Dim i As Integer 'переменная для цикла

Dim j As Integer 'счётчик строк

Dim Cursor As Integer 'относительная позиция курсора



Cursor = Text.SelStart + Text1.SelLength



For i = 1 To Cursor

If Mid(Text, i, 1) = Chr(13) Then j = j + 1

Next i



If Param = 0 Then

CursorPosition = Cursor - InStrRev(Mid(Text, 1, Cursor), Chr(13))

If j = 0 Then CursorPosition = CursorPosition + 1

Else

CursorPosition = j + 1

End If



End Function

Вернуться в Популярные вопросы

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 4

    TopList