十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
Dim r as new Random
目前创新互联已为千余家的企业提供了网站建设、域名、网页空间、网站托管、企业网站设计、黎平网站维护等服务,公司将坚持客户导向、应用为本的策略,正道将秉承"和谐、参与、激情"的文化,与客户和合作伙伴齐心协力一起成长,共同发展。
Dim m_Color As Color=Color.FromArgb(255,r.Next(0,255),r.Next(0,255),r.Next(0,255))
TextBox1.ForeColor = Color.Red
TextBox1.BackColor = Color.Yellow
TextBox1.Text = 1234
在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了,方便楼主参考。
有问题可以继续追问。
vb中的颜色
VB中 H80000000(16进制8位,8开头) 这种 方式表示的颜色代表系统默认的各项设置的颜色
比如按钮,窗体
其他的就是 RGB颜色值
RGB 颜色值的范围就是 H0-HFFFFFF
HBBGGRR BB 是蓝色,GG是绿色,RR是红色 范围都是 0-255
从颜色中分离 红绿蓝
r = (color And HFF)
g = (color And HFF00) \ 256
b = (color And HFF0000) \ 65536
将红绿蓝合为一种颜色
color = b * H10000 + g * H100 + r