投稿日 | : 2004/08/05(Thu) 15:14 |
投稿者 | : おじん |
Eメール | : |
URL | : |
タイトル | : Re: MSFLEXGRID二つを同期させる方法 |
DBのことは別にして、次の例では、縦方向には「同期」します。
これ、「同期」といいませんか?間違っていたらごめんなさい。
Msflexgridを2つ、同じの大きさ(高さ)で、縦スクロールは
2つとも必要。
Option Explicit
Private Sub Form_Load()
Dim n&
Randomize
With MSFlexGrid1 '仮に連番をセット
.Rows = 64
For n = 1 To 63
.TextMatrix(n, 0) = CStr(n)
Next n
End With
With MSFlexGrid2
.Rows = 64
For n = 1 To 63
.TextMatrix(n, 0) = CStr(Rnd * 100)
Next n
End With
End Sub
Private Sub MSFlexGrid1_Scroll()
MSFlexGrid2.TopRow = MSFlexGrid1.TopRow
End Sub
Private Sub MSFlexGrid2_Scroll()
MSFlexGrid1.TopRow = MSFlexGrid2.TopRow
End Sub