十年網(wǎng)站開發(fā)經(jīng)驗(yàn) + 多家企業(yè)客戶 + 靠譜的建站團(tuán)隊(duì)
量身定制 + 運(yùn)營維護(hù)+專業(yè)推廣+無憂售后,網(wǎng)站問題一站解決
繪制線條采用Draw開頭的方法,顏色參數(shù)用Pen類;
站在用戶的角度思考問題,與客戶深入溝通,找到秭歸網(wǎng)站設(shè)計(jì)與秭歸網(wǎng)站推廣的解決方案,憑借多年的經(jīng)驗(yàn),讓設(shè)計(jì)與互聯(lián)網(wǎng)技術(shù)結(jié)合,創(chuàng)造個(gè)性化、用戶體驗(yàn)好的作品,建站類型包括:成都網(wǎng)站制作、成都網(wǎng)站設(shè)計(jì)、外貿(mào)營銷網(wǎng)站建設(shè)、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣、主機(jī)域名、雅安服務(wù)器托管、企業(yè)郵箱。業(yè)務(wù)覆蓋秭歸地區(qū)。
繪制有填充色的封閉圖形采用Fill開頭的方法,顏色參數(shù)用Brush類;
例如:
'繪制一個(gè)實(shí)心圓,該圓在:直線x=200,y=200,x=200+100,y=200+100所劃矩形區(qū)域內(nèi)
Me.CreateGraphics.FillEllipse(New SolidBrush(Color.Orange), 200, 200, 100, 100)
'繪制一個(gè)空心圓,該圓在:直線x=200,y=200,x=200+100,y=200+100所劃矩形區(qū)域內(nèi)
Me.CreateGraphics.DrawEllipse(New Pen(Color.Black), 200, 200, 100, 100)
你好,我不知道你是用什么方法保存的,不過.net里的color有一個(gè)方法是Color.FromArgb 你可以這么做,dim
c
as
color=richtextbox1.ForeColor dim
colorstring
as
string=c.ToArgb().ToString
colorstring就是顏色的值(字符串)再把colorstring保存到ini文件加載顏色的時(shí)候,從ini里讀取colorstring 具體是:dim
RtextColor
as
color=Color.FromArgb(cint(colorstring))richtextbox1.ForeColor
=RtextColor
在TextChanged事件中:privatevoidrichTextBox1_TextChanged(objectsender,EventArgse)
{
if(label1.Text==richTextBox1.Text)
richTextBox1.ForeColor=Color.Black;
else
richTextBox1.ForeColor=Color.Red;
}-------------------繼續(xù)答復(fù):
首先,還是建議你使用TextChange方法。KeyPress方法只有在松開鍵后才觸發(fā),如果一直按著鍵比如寫a,那這串a(chǎn)顏色不會(huì)變的,直到你松手。
然后上代碼,測試可用的,你直接放到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這里寫錯(cuò)的是紅色,多寫出來的是藍(lán)色,具體你自己可以調(diào)整。
順便鄙視一下那個(gè)把我代碼直接轉(zhuǎn)VB貼上來的,我直接用工具轉(zhuǎn)成VB了,方便樓主參考。
有問題可以繼續(xù)追問。
記得VB6當(dāng)中有Shape控件,但是VB.net里這個(gè)控件不存在了。
提個(gè)思路:使用Picture控件或Label控件,通過代碼在控件里繪圖想要的圖形,可以試試。