vb.net中灰色代码,vb代码黄色

vb.net复选框及字体颜色问题题目是图上的第十题，计算代码我会做，但是那个红字黄底的代码怎么写

TextBox1.ForeColor = Color.Red

创新互联专注于苏尼特右网站建设服务及定制，我们拥有丰富的企业做网站经验。热诚为您提供苏尼特右营销型网站建设，苏尼特右网站制作、苏尼特右网页设计、苏尼特右网站官网定制、小程序制作服务，打造苏尼特右网络公司原创品牌,更为您提供苏尼特右网站排名全网营销落地服务。

TextBox1.BackColor = Color.Yellow

TextBox1.Text = 1234

1、2和3：你怎么改的,就怎么恢复默认

3：textbox1.font=new font(字体名称，字体大小，字形)，字形有加粗常规倾斜下划线等几种。

Label1.BackColor = Color.Red

Label1.BackColor = Color.Blue

Label1.BackColor = Color.Yellow

在TextChanged事件中：privatevoidrichTextBox1_TextChanged(objectsender,EventArgse)

{

if(label1.Text==richTextBox1.Text)

richTextBox1.ForeColor=Color.Black;

else

richTextBox1.ForeColor=Color.Red;

}-------------------继续答复：

首先，还是建议你使用TextChange方法。KeyPress方法只有在松开键后才触发，如果一直按着键比如写a，那这串a颜色不会变的，直到你松手。

然后上代码，测试可用的，你直接放到KeyPress里也能用：

PrivateSubrichTextBox1_TextChanged(senderAsObject,eAsEventArgs)

ForiAsInteger=0TorichTextBox1.TextLength-1

richTextBox1.SelectionStart=i

richTextBox1.SelectionLength=1

Ifi=label1.Text.LengthThen

richTextBox1.SelectionColor=Color.Blue

ElseIflabel1.Text(i)richTextBox1.Text(i)Then

richTextBox1.SelectionColor=Color.Red

Else

richTextBox1.SelectionColor=Color.Black

EndIf

richTextBox1.SelectionLength=0

richTextBox1.SelectionStart=richTextBox1.TextLength

EndSub这里写错的是红色，多写出来的是蓝色，具体你自己可以调整。

顺便鄙视一下那个把我代码直接转VB贴上来的，我直接用工具转成VB了，方便楼主参考。

有问题可以继续追问。

网站名称：vb.net中灰色代码,vb代码黄色
文章位置：http://scjbc.cn/article/hsoops.html