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

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

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

红色.. 当然如果能改变显示字体的颜色就更好了.. 不知哪为路过的高手能指点一二,小弟在此先谢过你们啦```
...全文
261 点赞 收藏 5
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
cbm6666 2008-03-18
Private Sub Text1_Change()
Text1.ForeColor = IIf(Text1.Text = "OK", vbBlue, vbWhite)
Text1.BackColor = IIf(Text1.Text = "OK", vbGreen, vbRed)
End Sub

回复
forbearORfolie 2008-03-18
这帖子要顶一把
回复
cso 2008-03-18
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
回复
olderboy 2008-03-18
谢谢各位,我的问题又解决了..我以后一定也会多多帮助小虾们的...以此来回报论坛对我的帮助.再次表示感谢````
回复
icebai 2008-03-17
If Text1.Text = "OK" Then
Text1.ForeColor = vbGreen
End If
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7491

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2008-03-17 09:34
社区公告
暂无公告