投稿日 | : 2003/04/16(Wed) 17:49 |
投稿者 | : mitu |
Eメール | : |
URL | : |
タイトル | : MSHFlexGridとMsFlexGridの差 |
ファイル比較で質問していたmituです。
宜しくお願いします。
下記のをMSHFlexGridとMsFlexGridで試しました。
With MSHFlexGrid1
.Rows = 10000
.Cols = 35
For i = 1 To 9999
For j = 1 To 34
.TextMatrix(i, j) = i
Next j
Next i
End With
With MSHFlexGrid2
.Rows = 10000
.Cols = 35
For i = 1 To 9999
For j = 1 To 34
.TextMatrix(i, j) = i
Next j
Next i
For i = 50 To 5000
.TextMatrix(i, 4) = 0
Next i
End With
'比較
Dim Ro As Long
Dim Co As Long
MSHFlexGrid1.Visible = False
MSHFlexGrid2.Visible = False
With MSHFlexGrid1
For Ro = .FixedRows To .Rows - 1
For Co = .FixedCols To .Cols - 1
If MSHFlexGrid2.TextMatrix(Ro, Co) <> .TextMatrix(Ro, Co) Then
With MSHFlexGrid2
.Col = Co
.Row = Ro
.CellBackColor = vbRed
End With
With MSHFlexGrid1
.Col = Co
.Row = Ro
.CellBackColor = vbRed
End With
End If
Next Co
Next Ro
End With
結果は、
MsFlexGridの場合 12秒程度
MSHFlexGridの場合 43秒程度
でした。
MsFlexGridとMSHFlexGridで処理時間に違いがあると思うのですが。
よろしくお願いします。