vb MSFlexGri单元格的问题

vb MSFlexGri单元格的问题

在窗体上添加一个MSFlexGrid1,把下面代码复制到代码区,运行即可

Private Sub Form_Load()
MSFlexGrid1.FixedCols = 0
MSFlexGrid1.Rows = 1
MSFlexGrid1.FormatString = "第0列|第1列|第2列|第3列|第4列"
MSFlexGrid1.AddItem "1" & Chr(9) & "2" & Chr(9) & "3" & Chr(9) & "4" & Chr(9) & "5"
MSFlexGrid1.AddItem "6" & Chr(9) & "7" & Chr(9) & "8" & Chr(9) & "9" & Chr(9) & "10"
MSFlexGrid1.AddItem "11" & Chr(9) & "12" & Chr(9) & "13" & Chr(9) & "14" & Chr(9) & "15"
For r = 1 To MSFlexGrid1.Rows - 1
For c = 0 To MSFlexGrid1.Cols - 1
MSFlexGrid1.Row = r
MSFlexGrid1.Col = c
If Val(MSFlexGrid1.Text) >= 0 And Val(MSFlexGrid1.Text) < 10 Then
MSFlexGrid1.CellBackColor = vbRed
End If
Next c
Next r
End Sub

if val(MSFlexGri1.text)>=0 and val(MSFlexGri1.text)<10 then
MSFlexGri1.CellForeColor=vbRed
Endif