打印本文 打印本文  关闭窗口 关闭窗口  
根据文本框内数据更改显示颜色
作者:佚名  文章来源:不详  点击数  更新时间:2008/7/28 12:15:52  文章录入:杜斌  责任编辑:杜斌

  报表中60分以下用红字60分以上用兰字显示怎么做?

  在主体的格式化事件里输入如下代码:

  Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

  If TextBoxNumber < 60 Then 'TextBoxNumber为分数控件

  TextBoxNumber.ForeColor = lngRed '改为红色

  ElseIf TextBoxNumber > 60 and TextBoxNumber < 80 Then

  TextBoxNumber.ForeColor = lngBlue '改为兰色

  else

  TextBoxNumber.ForeColor = lngBlack '改为黑色

  End If

  End Sub

  相关链接:

  2008年下半年全国计算机等级考试报名信息汇总

  更多信息请访问:计算机等级考试站 计算机等级考试在线题库 计算机等级考试论坛

打印本文 打印本文  关闭窗口 关闭窗口