189 8069 5689
Color选定的颜色。为使用此属性，必须先将Flags属性设置为cdlCFEffects。
创新互联专业为企业提供溪湖网站建设、溪湖做网站、溪湖网站设计、溪湖网站制作等企业网站建设、网页设计与制作、溪湖企业网站模板建站服务，十载溪湖做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。
FontBold
是否选定“粗体”。
FontItalic
是否选定“斜体”。
FontStrikethru
是否选定删除线。
FontUnderline
是否选定下划线。
FontName
选定的字体名称。
FontSize
选定的字体大小。
直接采用语句：Text.Font=CommonDialog.FontnNameTop
你没有写刷新功能嘛，如LblResult.BackColor = Color.LightCoral后面再加一句LblResult.refresh()就实现了背景色变换！
楼上回到是VB里的
不是.NET的
但.NET和上面类似
me.Text1.BackColor = 这里VB.NET里会自己跳出来可以选的颜色的额
在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
Next
richTextBox1.SelectionLength=0
richTextBox1.SelectionStart=richTextBox1.TextLength
EndSub这里写错的是红色，多写出来的是蓝色，具体你自己可以调整。
顺便鄙视一下那个把我代码直接转VB贴上来的，我直接用工具转成VB了，方便楼主参考。
有问题可以继续追问。
想办法设置Text1（你的文本框名称）.BackColor
属性的值，如果想把他设成红色那么就是Text1.BackColor
=
vbRed，如果想设成任意颜色，可以使用RGB(r，g，b)函数，甚至可以使用始终或者循环来使文本框的颜色渐变。
循环语句会吧，我不多说了。
有一个通用对话框。方法如下：
1、执行“工程”菜单的“部件”命令，打开“部件”对话框。
2、在部件对话框，选择“控件”选项卡，在列表中找到“microsoft
common
dialog
control
6.0”
3、单击确定。通用对话框就会被加到工具箱中。
然后，添加通用对话框，将它的action属性设为4，就是这个字体选择对话框了。
然后，你可以用下面的代码测试：
private
sub
command1_click()
commondialog1.flags
=
1
or
6
commondialog1.action
=
4
form1.font
=
commondialog1.fontname
"字体！"
end
sub
关于通用对话框的更多用法，建议你百度一下