Одновременное движение по тексту в двух textbox`ах

[Wasup!]

Есть два textbox`а multiline c включенными scrollbar`ами. В них помещен одинаковый по объему текст. Как сделать так, чтобы при перемещении scrollbar`а в первом textbox`е, текст двигался одновременно и в первом и во втором textbox`е?
Каким образом программно двигать текст я нашел:
SendMessage Text1.hwnd, WM_VSCROLL, SB_LINEDOWN, 0
SendMessage Text1.hwnd, WM_HSCROLL, SB_LINERIGHT, 0
, а как получать текущее положение нет. Как его можно получить?

[tyomitch]

GetScrollInfo, что ли?

[Debugger]

Свойство SelStart?

[Wasup!]

GetScrollInfo подходит, а на какое событие textbox`а его нужно вешать, чтобы оно срабатывало при прокрутке scrollbar`а?

[tyomitch]

Видимо, надо сабклассить

[Wasup!]

Как я понимаю сабклассить подразумевает, что мне нужно каким-то образом добраться до элемента scrollbar являющегося частью элемента textbox? А можно пример, как это делается?

[tyomitch]

http://bbs.vbstreets.ru/viewtopic.php?t=13761

[ACiD]

Попробуй так

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

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyLeft Or KeyCode = vbKeyRight Then Text2.SelStart = Text1.SelStart
End Sub

Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyLeft Or KeyCode = vbKeyRight Then Text1.SelStart = Text2.SelStart
End Sub

[alibek]

ACiDXX, чушь.

[Nicky]

2 ACiDXX К чему условности? Тогда уж:

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

Text2.SelStart = Text1.SelStart
Text1.SelStart = Text2.SelStart