vb6 - 如何找到单元格背景颜色

Question

使用弹性网格

我想检查特定单元格的背景颜色...

代码

if flexgrid1.TextMatrix(1, 2).CellBackColor = vbCyan then
msgbox vbcyan
else
msgbox vbwhite
End if

上面的代码显示错误为“Invalid Qualifier”

另一种方式....

if flexgrid1.row = 1 and flexgrid1.col = 2 and  .CellBackColor = vbCyan then
    msgbox vbcyan
    else
    msgbox vbwhite
    End if

以上代码未显示消息框

如何解决问题...

我的代码有什么问题。

score 2 · Accepted Answer

.CellBackColor获取/设置当前.Row/的颜色.Col，因此在询问之前，您必须将.Row/设置.Col为您正在查看的颜色：

With flexgrid1
   .Row = 1
   .Col = 2
   If .CellBackColor = vbCyan Then
      msgbox vbCyan
   Else
      msgbox vbWhite
   End If
End With

score 0 · Accepted Answer

你的 msgbox 声明是否符合犹太教规？msgbox 接受一个字符串作为它的参数。

msgbox "colour is Cyan"

2 回答 2