网格单元格的默认背景

Question

使用flexgrid

我想检查flex网格单元格的默认颜色...

如果背景颜色是青色那么下面的代码就可以工作，如果背景颜色是白色那么下面的代码就不起作用。

代码（方法1）

Private Sub flex1_LeaveCell()
    With flex1
        If .CellBackColor = vbCyan Then
            .TextMatrix(.row, 34) = Val(.TextMatrix(.row, .Col)) 
        ElseIf .CellBackColor = vbWhite Then
            .TextMatrix(.row, 33) = Val(.TextMatrix(.row, .Col)) 
        End If
    End With
End Sub

代码（方法2）

Private Sub flex1_LeaveCell()
    With flex1
        If .CellBackColor = vbCyan Then
            .TextMatrix(.row, 34) = Val(.TextMatrix(.row, .Col)) 
        Else
            .TextMatrix(.row, 33) = Val(.TextMatrix(.row, .Col)) 
        End If
    End With
End Sub

以上代码仅适用于青色，以上代码不能识别白色。

那么Flex网格的默认背景单元格颜色是什么呢？

需要帮助

Answer 1

这对我来说效果很好。这不适合你吗？

Private Sub flex1_LeaveCell()
    With flex1
        If .CellBackColor = vbCyan Then
            MsgBox "cyan"
        ElseIf .CellBackColor = vbWhite Or .CellBackColor = 0 Then
            MsgBox "white"
        End If
    End With
End Sub