позиция курсора

[_NeoN_]

Есть текстбокс(или рич текст бокс) как кзнать на какой строке, столбце находится указатель???

[Mikle]

text1.SelStart укажет символ, а строку, видимо, нужно высчитать самому.

[_NeoN_]

хитро!!! но вот только сказал бы ты еще КАК ее вычислить)) не только строку но и столбец..

[GSerg]

Читайте факи

[Mikle]

Вот нас ткнули носом в то, что я имел ввиду...

[_NeoN_]

это я и сам сделал... но вот проблема в том что медленно все это очень=( мне бы быстрее как-нить... апи там какую-нить или еще что...

[Mikle]

А если вместе с текстбоксом вести массив с номерами первого символа каждой строки. А текстбокс с массивом запихнуть в свой юзерконтрол, чтобы при событии Change текста автоматически изменять массив.

[alibek]

Если нужно быстрее, то переделай код. Не используй переборы и вместо InStrRev используй InStr.
Примерно так (код я не проверял, это твое домашнее задание )
Этот код будет правильно работать только в случае, если ScrollBars=3. В остальных случаях текст будет переносится автоматически и для них нужно использовать не-помню-какую-API.

Код: Выделить всё

'Define row and col
Sub GetRowCol(TextCtrl As TextBox, Optional ByRef Row As Long, Optional ByRef Col As Long)
Dim P As Long, I0 As Long, I As Long, T As String
T = TextCtrl.Text
P = TextCtrl.SelStart '+ TextCtrl.SelLength
I0 = 1
Row = 1
Do
  I = InStr(I0, T, vbNewLine)
  If I = 0 Or I => P Then Exit Do
  I0 = I + Len(vbNewLine)
  Row = Row + 1
Loop
Col = P - I0 + 1
End Sub


[_NeoN_]

ну вот работает вроде быстро только я ставлю в RichTextBox scrollbars=3 both но все равно есть только 1 стролбар - вертикальный.. горизонтальный тока через sendmessage чтоли добавлять??? не напомните параметры???

[alibek]

Указывай свойство .RightMargin. По уму его надо задавать равным самой длинной строке + один пиксел, но можешь задать заведомо большое число (1e6).

[_NeoN_]

ну это опять геморрррррой с определением самой длинной строки =( опять же медленно будет работать.. может кто скажет как подключать асмовские библиотеки в вб.. что надо в них писать и что в басике..

[Mikle]

Я пишу на Delphi асмовские процедуры, компилю их в DLL и подключаю также, как подключаются API ф-ции.

[alibek]

Так не определяй. Впиши в его значение что-то вроде двух миллионов и достаточно.
Mikle, вообще-то не так Ты подключаешь ActiveX DLL, а API подключать не надо, это Native DLL.

[Mikle]

Ну не подключаю, а декларирую. Также, ка АПИ. Ведь на Delphi можно написать native DLL, это не бейсик?

[_NeoN_]

дело в том что в бакие нету встроенного ассемблера( а жаль!!!!) вот например напишу я библиотеку на masm32 то как ее подключить и что писать в ней?

[Messir]

Это легко реализуется с помощью двух-трех API-вызовов. Только вот точно не помню сейчас, каких именно. Я поищу, и скину тогда!!! Если еще не будет поздно.

[_NeoN_]

мне особо не надо торопиться но посмотри