Form中加入MSFlexGrid控件
Private Sub Form_Load()
Dim i, j As Integer
Dim strTemp as String
With MSFlexGrid1
.Rows = 709
.Cols = 238
.FixedCols = 0: .FixedRows = 0
For i = 0 To 708
For j = 0 To 237
.TextMatrix(i, j) = i * j
strTemp = strTemp & .TextMatrix(i, j)
Next
Next
End With
End Sub运行后进入循环,速度奇慢,将strTemp = strTemp & .TextMatrix(i, j)注释掉后速度很快,请教大家是由于什么原因?是控件的还是String的?非常感谢
Private Sub Form_Load()
Dim i, j As Integer
Dim strTemp as String
With MSFlexGrid1
.Rows = 709
.Cols = 238
.FixedCols = 0: .FixedRows = 0
For i = 0 To 708
For j = 0 To 237
.TextMatrix(i, j) = i * j
strTemp = strTemp & .TextMatrix(i, j)
Next
Next
End With
End Sub运行后进入循环,速度奇慢,将strTemp = strTemp & .TextMatrix(i, j)注释掉后速度很快,请教大家是由于什么原因?是控件的还是String的?非常感谢
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货