| 投稿日 | ： 2004/04/23(Fri) 16:55 |
| 投稿者 | ： GOD |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^2: テキストボックスのスクロールバーを連動させる方法を教えてください． |
> > 2つのテキストボックスを設置して，一方のテキストボックスに表示されている文章を，
> > もう一方のテキストボックスに入力していく作業を行うためのプログラムを作成しています．
> >
> > どちらか一方のスクロールバーが動いたら，もう一方のスクロールバーも同じ量
> > （例えば，全角1文字分とか）だけ動くようにすることは可能でしょうか？
> >
> テキストボックスをサブクラス化してWM_VSCROLL, WM_HSCROLLの処理時にもう片方のほうに
> SendMessageしてあげればできそうです。無限ループに陥らないように注意してくださいね。
>
マウスでスクロールさせるだけなら良いけど入力とかされるのであればWM_VSCROLL, WM_HSCROLL
だけではだめそうだ。(TT
キー関係の処理もしないと。
Private Sub Text1_Change(KeyCode As Integer, Shift As Integer)
Text2 = Text1
Text2.SelStart = Text1.SelStart
End Sub
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Text2 = Text1
Text2.SelStart = Text1.SelStart
End Sub
ChangeだけだとHOME, ENDキーの対応ができない。
KeyUpだけだとキーリピート中にイベントが発生しないので見てるとかっこ悪い。
#本気でデバックすると抜けがあるかも＾＾