'隔行变色函数
Public Function FlexRedraw(F As MSHFlexGrid) As String
With F
Dim i As Integer '定义行数
.Redraw = False '禁止重画,防止闪动
.BackColorFixed = RGB(190, 218, 178) '标题行背景色
.Row = 0 '设置标题行文字的对其方式
.Col = 0
.ColSel = .Cols - 1
.CellForeColor = vbBlack '标题行文字颜色
.CellAlignment = 4 '对其方式为中间中间
.ScrollTrack = True '移动滚动条的同时数据也滚动
For i = .FixedRows To .Rows - 1 '单双行表格条纹背景色显示
.Row = i '选择第I行
.Col = .FixedCols
.ColSel = .Cols - 1
If i / 2 = Int(i / 2) Then '判断是单是双
.CellBackColor = RGB(224, 248, 224) '双行的底色
Else
.CellBackColor = RGB(240, 248, 224) '单行的底色
End If
Next i
.Row = 1
.Col = 1
' .ColSel = .Cols - 1
.Redraw = True '允许重画,显示表格
End With
End Function
MSHFlexGrid控件隔行变色效果
最新推荐文章于 2021-12-15 17:16:08 发布