none
VB6.0下怎么在MSHFlexGrid实现条件格式 RRS feed

  • 问题

  • 条件格式:相信大家都用过这样的功能。就像Excel里面一样。
    譬如:当某个单元格的内容超出你设定的数值时就将它的背景色设置为红色。
      
        我想知道这样的功能怎么在VB6.0的MSHFlexGrid表格内实现。希望版主和各位老师能来看看。谢谢!

    时刻都在努力学习!
    2009年11月18日 4:39

答案

  • 楼主用的是MSHFlexGrid控件,那一样的哈


    If Val(MSHFlexGrid1.TextMatrix(5, 3)) < 50 Then '如果第五行第三列小于50
       '或者:If MSHFlexGrid1.TextMatrix(5, 3)="不合格" then
     '选中第五行第三列
         MSHFlexGrid1.Row = 5
        MSHFlexGrid1.Col = 3
       MSHFlexGrid1.CellBackColor = vbRed '将该单元格背景设为红色
    End If
    • 已标记为答案 张三宾 2009年11月18日 7:26
    2009年11月18日 5:41

全部回复

  • 2009年11月18日 4:58
    版主
  • 那么我如何去判断MSHFlexGrid某一列的数据是否满足改变背景色的条件呢?
    比如。MSHFlexGrid1的第10列,第10列的内容如果等于 “不合格” 或者等于 “报废”那么就将同一行的第2列的背景色设置成红色?
    可以稍微详细些么

    时刻都在努力学习!
    2009年11月18日 5:04
  • If Val(MSFlexGrid1.TextMatrix(5, 3)) < 50 Then '如果第五行第三列小于50
       '或者:If MSFlexGrid1.TextMatrix(5, 3)="不合格" then
     '选中第五行第三列
         MSFlexGrid1.Row = 5
        MSFlexGrid1.Col = 3
       MSFlexGrid1.CellBackColor = vbRed '将该单元格背景设为红色
    End If
    2009年11月18日 5:28
  • 楼主用的是MSHFlexGrid控件,那一样的哈


    If Val(MSHFlexGrid1.TextMatrix(5, 3)) < 50 Then '如果第五行第三列小于50
       '或者:If MSHFlexGrid1.TextMatrix(5, 3)="不合格" then
     '选中第五行第三列
         MSHFlexGrid1.Row = 5
        MSHFlexGrid1.Col = 3
       MSHFlexGrid1.CellBackColor = vbRed '将该单元格背景设为红色
    End If
    • 已标记为答案 张三宾 2009年11月18日 7:26
    2009年11月18日 5:41
  • 谢谢了!
    我试试看哦!

    时刻都在努力学习!
    2009年11月18日 7:27
  • 已经可以达到我要的效果了!特来谢谢你!


    时刻都在努力学习!
    2009年11月18日 8:03
  • 已经可以达到我要的效果了!特来谢谢你!


    时刻都在努力学习!

    不客气啊。互相学习。

    我也是来这学习的,看到这个问题我知道答案,就写了出来。

    这里真得不错哎。
    2009年11月18日 9:33
  • 恩。
    不过还是要谢谢你的,这个问题我也找了好多书了,今天突然想来论坛看看,高手还真是多啊
    时刻都在努力学习!
    2009年11月18日 11:24