Question

使用flexgrid

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

如果背景颜色为青色，则以下代码正常工作，如果背景颜色为白色，则以下代码无效。

代码（方法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

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

那么弹性网格的默认bacground单元格颜色是什么。

需要帮助

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

网格单元格的默认背景

1 个答案: