Color選定的顏色。為使用此屬性,必須先將Flags屬性設(shè)置為cdlCFEffects。
創(chuàng)新互聯(lián)專業(yè)為企業(yè)提供溪湖網(wǎng)站建設(shè)、溪湖做網(wǎng)站、溪湖網(wǎng)站設(shè)計(jì)、溪湖網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計(jì)與制作、溪湖企業(yè)網(wǎng)站模板建站服務(wù),十載溪湖做網(wǎng)站經(jīng)驗(yàn),不只是建網(wǎng)站,更提供有價(jià)值的思路和整體網(wǎng)絡(luò)服務(wù)。
FontBold
是否選定“粗體”。
FontItalic
是否選定“斜體”。
FontStrikethru
是否選定刪除線。
FontUnderline
是否選定下劃線。
FontName
選定的字體名稱。
FontSize
選定的字體大小。
直接采用語句:Text.Font=CommonDialog.FontnNameTop
你沒有寫刷新功能嘛,如LblResult.BackColor = Color.LightCoral后面再加一句LblResult.refresh()就實(shí)現(xiàn)了背景色變換!
樓上回到是VB里的
不是.NET的
但.NET和上面類似
me.Text1.BackColor = 這里VB.NET里會(huì)自己跳出來可以選的顏色的額
在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ù)追問。
想辦法設(shè)置Text1(你的文本框名稱).BackColor
屬性的值,如果想把他設(shè)成紅色那么就是Text1.BackColor
=
vbRed,如果想設(shè)成任意顏色,可以使用RGB(r,g,b)函數(shù),甚至可以使用始終或者循環(huán)來使文本框的顏色漸變。
循環(huán)語句會(huì)吧,我不多說了。
有一個(gè)通用對話框。方法如下:
1、執(zhí)行“工程”菜單的“部件”命令,打開“部件”對話框。
2、在部件對話框,選擇“控件”選項(xiàng)卡,在列表中找到“microsoft
common
dialog
control
6.0”
3、單擊確定。通用對話框就會(huì)被加到工具箱中。
然后,添加通用對話框,將它的action屬性設(shè)為4,就是這個(gè)字體選擇對話框了。
然后,你可以用下面的代碼測試:
private
sub
command1_click()
commondialog1.flags
=
1
or
6
commondialog1.action
=
4
form1.font
=
commondialog1.fontname
"字體!"
end
sub
關(guān)于通用對話框的更多用法,建議你百度一下