vb MSFlexGrid问题

来源：百度知道 编辑：UC知道 时间：2024/07/04 14:56:13
Private Sub MSFlexGrid1_Click()
F = MSFlexGrid1.ColSel
d = MSFlexGrid1.RowSel
MSFlexGrid1.CellBackColor = vbBlue
End Sub
当我点击这个单元格时变蓝，如果我再点击这个单元格，单元格变白，再点击变蓝，就这么一白一蓝的交替该怎么写

加一布尔变量 IsBlue ,好像不难吧
Private Sub MSFlexGrid1_Click()
if IsBlue=True then
F = MSFlexGrid1.ColSel
d = MSFlexGrid1.RowSel
MSFlexGrid1.CellBackColor = vbBlue
IsBlue=False
else
F = MSFlexGrid1.ColSel
d = MSFlexGrid1.RowSel
MSFlexGrid1.CellBackColor = vbWhite
IsBlue=True
end if
End Sub