VB 中text的 forecolor没显现

PrivateSubOption1_Click(IndexAsInteger)SelectCaseIndexCase0Text1.ForeColor=vbBlueText... Private Sub Option1_Click(Index As Integer)
Select Case Index
Case 0
Text1.ForeColor = vbBlue
Text1.BackColor = vbRed
Case 1
Text1.ForeColor = vbWhite
Text1.BackColor = vbRed
Case 2
Text1.ForeColor = vbBlack
Text1.BackColor = vbYellow
Case 3
Text1.ForeColor = vbYellow
Text1.BackColor = vbGreen
Case 4
Text1.ForeColor = vbGreen
Text1.BackColor = vbCyan
End Select
End Sub
backcolor正常显现，可是forecolor没显现，为什么展开

 我来答

4个回答

#热议# 普通体检能查出癌症吗？

tianqing20wen

2012-01-25 · TA获得超过2.4万个赞

知道大有可为答主

回答量：8226

采纳率：88%

帮助的人：5156万

我也去答题访问个人页

关注

展开全部

代码是没有问题颜色都有变化测试正常
你可以检查下 option1数组控件的index属性是否对应得上0-4

已赞过 已踩过<

评论收起

九天狼
2012-01-25 · TA获得超过526个赞

知道小有建树答主

回答量：468

采纳率：0%

帮助的人：181万

我也去答题访问个人页

关注

展开全部

如果你的文本框中没有文字，肯定是没有颜色的，代码没有问题。

已赞过 已踩过<

评论收起

SIANGKEE
2012-01-25 · TA获得超过1552个赞

知道小有建树答主

回答量：1033

采纳率：50%

帮助的人：830万

我也去答题访问个人页

关注

展开全部

你是不是没有输入文字在textbox...

追问

有

追答

Case 0
   MSGBOX("BLUE")      '放一个提示框来确定你要的case是有运行的。。。
   Text1.ForeColor = vbBlue
   Text1.BackColor = vbRed
  Case 1
   MSGBOX("WHITE")
   Text1.ForeColor = vbWhite
   Text1.BackColor = vbRed

已赞过 已踩过<

评论收起

Saroman0de9
2012-01-25 · TA获得超过748个赞

知道小有建树答主

回答量：855

采纳率：0%

帮助的人：834万

我也去答题访问个人页

关注

展开全部

forecolor没显现?是什么意思?
文字的颜色没有变化?

更多追问追答

追问

是

追答

你的WinXP系统有没有用什么第三方主题?比如仿Win7的皮肤一类的东西?或者你的程序用了UI类的插件

本回答被提问者采纳

已赞过 已踩过<

评论收起

1条折叠回答

更多回答（2）

推荐律师服务：若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询

VB 中text的 forecolor没显现

其他类似问题

为你推荐：