大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
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
关于通用对话框的更多用法,建议你百度一下