根据文本框内数据更改显示颜色?
如何根据文本框内数据更改显示颜色?
在主体的格式化事件里输入如下代码:
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