VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日: 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


- 関連一覧ツリー (★ をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

- Web Forum -