如何显示msflexgrid里数字的不同颜色

Question

各位高手请帮忙
我用的是msflexgrid控件,数据库是access
当点击按钮的时候,会在控件里显示出数据
我想要实现的功能是
比如小明的成绩是60分,我想让这个60的颜色是红色的,小李的成绩是61分,我想让这个61的颜色是青色的,怎么实现?

Answer 1

Private Sub Command1_Click()
    MSFlexGrid1.Row = 3
    MSFlexGrid1.Col = 4
    MSFlexGrid1.CellForeColor = RGB(255, 0, 0)  '红
    MSFlexGrid1.CellForeColor = RGB(0, 255, 0)  '绿
    MSFlexGrid1.CellForeColor = RGB(0, 0, 255)  '蓝
End Sub

Answer 2

MSFlexGrid1.Row = 3
MSFlexGrid1.Col = 4
select case val(MSFlexGrid1.text)
    case 60
         MSFlexGrid1.CellForeColor = RGB(255, 0, 0)  '红
    case 61
          MSFlexGrid1.CellForeColor = RGB(0, 255, 0)  '绿
    case else
end select

Answer 3

各位高手帮帮忙,新问题又出现了,有两个班,一个班有60人,另外一个班59人,但我在源代码里设到
MSFlexGrid1.Row = 60
MSFlexGrid1.Col = 4
在下拉菜单中选60人的那个班后点按钮,下面的msflexgrid可以正常显示,但选59个班的那个后点击按钮就弹出
row 数值无效 点击调试后回到
MSFlexGrid1.Row = 60
请问如何解决这个问题
(焦急等待中)