根据文本框内数据更改显示颜色
60分以下的语句用红色显示,60分以上用蓝色显示,怎么办?
在主体的格式化事件中输入以下代码:
Private Sub Detail_Format(取消为整数,格式化计数为整数)
Textboxnumber,则“Textboxnumber”是一个分数控件。
文本框编号。“ForeColor = lngRed”更改为红色。
ElseIf TextBoxNumber > 60且TextBoxNumber < 80,则
“textbox number . forecolor = LNG blue”更改为蓝色。
其他
“textbox number . forecolor = lngblack”更改为黑色。
如果…就会结束
End Sub
0条评论