美化 MSHFlexGrid，隔行设置颜色的通用函数

最新推荐文章于 2023-01-29 16:45:03 发布

转载最新推荐文章于 2023-01-29 16:45:03 发布 · 1.2k 阅读

文章标签：

#object

VB应用专栏收录该内容

14 篇文章

订阅专栏

博客给出了一段设置MSHFlexGrid每行颜色的代码。定义了SetRowColor子程序，先判断对象类型是否为MSHFlexGrid，接着设置填充样式，通过循环为偶数行设置背景颜色，最后恢复填充样式并定位到首行首列。

' 设置MSHFlexGrid每行的颜色
Public Sub SetRowColor(ByRef MSHFlexGrid As Object)
    Dim j, i, objName
    objName = TypeName(MSHFlexGrid)
    If StrConv(Trim(objName), vbUpperCase) <> "MSHFLEXGRID" Then
        Exit Sub
    End If
    MSHFlexGrid.FillStyle = 1
    For i = 1 To MSHFlexGrid.Rows - 1
        MSHFlexGrid.Row = i
        If i Mod 2 = 0 Then
            MSHFlexGrid.Col = 0
            MSHFlexGrid.ColSel = MSHFlexGrid.Cols - 1
            MSHFlexGrid.CellBackColor = &H80FFFF
        End If
    Next i
    MSHFlexGrid.FillStyle = 0
    MSHFlexGrid.Row = 0
    MSHFlexGrid.Col = 0
End Sub