1,216
社区成员
发帖
与我相关
我的任务
分享mshflexgrid中用显示问题。
如何在MSHFLEXGRID中 就像CSDN的 问题显示 那样用颜色隔行表色？
不要用FOR一行一行地循环的！那样好慢的。
不要用FOR一行一行地循环的！那样好慢的。
...全文
请发表友善的回复…
发表回复
ganwendong 2006-03-21
- 打赏
- 举报
那样速度很慢啊！
ZOU_SEAFARER 2006-03-21
- 打赏
- 举报
好象必须一行一行的设置颜色！
of123 2006-03-21
- 打赏
- 举报
这样：
Dim i As Integer, j As Integer
With MSHFlexGrid1
.Redraw = False '禁止重画
.BackColor = vbYellow '先设置统一底色
For i = 1 To .Rows - 1 Step 2 '仅隔行改色
.Row = i
For j = 0 To .Cols - 1
.CellBackColor = vbBlue
Next j
Next i
.Redraw = True '开放重画
.Refresh
End With
Dim i As Integer, j As Integer
With MSHFlexGrid1
.Redraw = False '禁止重画
.BackColor = vbYellow '先设置统一底色
For i = 1 To .Rows - 1 Step 2 '仅隔行改色
.Row = i
For j = 0 To .Cols - 1
.CellBackColor = vbBlue
Next j
Next i
.Redraw = True '开放重画
.Refresh
End With
fxj331072 2006-03-21
- 打赏
- 举报
只能那样循环,没办法
