投稿日 | : 2004/08/05(Thu) 16:17 |
投稿者 | : マスオカリュウショウ |
URL | : |
タイトル | : Re^2: MSFLEXGRID二つを同期させる方法 |
すばやいお返事ありがとうございます。
TopRowをScrollとRowColChangeのイベントで使うことでうまくできました。
ちなみに、私のプログラムでは以下のようにしてみました。
'**************************************************
'* 左右のグリッドのカレント行を同期させる
'**************************************************
Private Sub DBGrid1_RowColChange(index As Integer)
If index = 0 Then
DBGrid1(1).TopRow = DBGrid1(0).TopRow
Else
DBGrid1(0).TopRow = DBGrid1(1).TopRow
End If
End Sub
'**************************************************
'スクロールに合せてカレントセルを移動する
'**************************************************
Private Sub DBGrid1_Scroll(index As Integer)
If index = 0 Then
DBGrid1(1).TopRow = DBGrid1(0).TopRow
Else
DBGrid1(0).TopRow = DBGrid1(1).TopRow
End If
End Sub