(哭求)如何改变TEXTBOX中字体的颜色与文本框的底色?

[olderboy]

各位路过的高手们,前段时间小弟为了做一个图象识别的程序曾多次在论坛上求救,承蒙各位大虾关照.让小弟我基本完成了问题.在此先谢过诸位帮助过我的人..谢谢你们.... 小弟我才疏学浅,在这里还有最后的一个问题要向前辈们请教:

就是在VB中如何改变动态文本框的字体颜色及文本框背景色? 比如 text.text 中显示的内容为 OK 时,文本框底色为绿色..当 内容为 NG 时,文本框底色为

红色.. 当然如果能改变显示字体的颜色就更好了.. 不知哪为路过的高手能指点一二,小弟在此先谢过你们啦```

[icebai]

If Text1.Text = "OK" Then
Text1.ForeColor = vbGreen
End If

[olderboy]

谢谢各位,我的问题又解决了..我以后一定也会多多帮助小虾们的...以此来回报论坛对我的帮助.再次表示感谢````

[cso]

Private Sub Text1_Change()
If "OK" = Text1.Text Then
    Text1.BackColor = &HFF00&
    Text1.ForeColor = &HFFFFFF
ElseIf "NG" = Text1.Text Then
    Text1.BackColor = &HFF&
    Text1.ForeColor = &HFFFFFF
Else
    Text1.BackColor = &H8000000F
    Text1.ForeColor = &H80000008
End If
End Sub

[forbearORfolie]

这帖子要顶一把

[cbm6666]

Private Sub Text1_Change()
Text1.ForeColor = IIf(Text1.Text = "OK", vbBlue, vbWhite)
Text1.BackColor = IIf(Text1.Text = "OK", vbGreen, vbRed)
End Sub