| 投稿日 | ： 2004/01/31(Sat) 20:45 |
| 投稿者 | ： 花ちゃん |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^7: ２つのテキストボックス、行の同期（ScrollBar） |
> すみません、Top位置の取得方法なのですが、
> いろいろやってみたのですが、うまく取得できません。
Private Sub Timer1_Timer()
Dim udtPoint As tagPOINT, Ret As Long
Ret = SendMessage(RichTextBox1.hwnd, EM_GETSCROLLPOS, 0&, udtPoint)
Ret = SendMessage(RichTextBox2.hwnd, EM_SETSCROLLPOS, 0&, udtPoint)
End Sub
RichTextBox1 のTop位置を取得して、そののTop位置を RichTextBox2 に設定しています。
Ret = SendMessage(RichTextBox1.hwnd, EM_GETSCROLLPOS, 0&, udtPoint1)
Ret = SendMessage(RichTextBox2.hwnd, EM_GETSCROLLPOS, 0&, udtPoint2)
これで前回調べた時の位置と同じか調べて違っていたら、違っていない方にその位置を
設定すればいいのでは