兩種方法:
十年的涇川網(wǎng)站建設(shè)經(jīng)驗(yàn),針對(duì)設(shè)計(jì)、前端、開(kāi)發(fā)、售后、文案、推廣等六對(duì)一服務(wù),響應(yīng)快,48小時(shí)及時(shí)工作處理。成都全網(wǎng)營(yíng)銷的優(yōu)勢(shì)是能夠根據(jù)用戶設(shè)備顯示端的尺寸不同,自動(dòng)調(diào)整涇川建站的顯示方式,使網(wǎng)站能夠適用不同顯示終端,在瀏覽器中調(diào)整網(wǎng)站的寬度,無(wú)論在任何一種瀏覽器上瀏覽網(wǎng)站,都能展現(xiàn)優(yōu)雅布局與設(shè)計(jì),從而大程度地提升瀏覽體驗(yàn)。成都創(chuàng)新互聯(lián)從事“涇川網(wǎng)站設(shè)計(jì)”,“涇川網(wǎng)站推廣”以來(lái),每個(gè)客戶項(xiàng)目都認(rèn)真落實(shí)執(zhí)行。
鼠標(biāo)點(diǎn)擊。選中該窗體,在右邊屬性窗口的列表中有一項(xiàng)“Font”,點(diǎn)擊“宋體”邊的小按鈕,會(huì)彈出字體設(shè)置對(duì)話框,還有一項(xiàng)“ForeColor”就是設(shè)置字體顏色的。
編寫代碼:
me.ForeColor?=?vbRed?'紅色
me.FontSize?=?30?'30磅
me.FontName?=?"黑體"?'黑體
給點(diǎn)提示吧,已粗體為例(完全是我自己的方法,不知?jiǎng)e人是怎么做的):
'先獲取選擇的字體信息(字體、大小、樣式。。。)
Dim currentFont As System.Drawing.Font = RichTextBox1.SelectionFont
'在重新定義某種樣式的時(shí)候,不丟失其他信息
RichTextBox1.SelectionFont = New Font(currentFont.FontFamily, currentFont.Size, FontStyle.Bold)
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked = True Then
TextBox1.ForeColor = Color.Red
Else
TextBox1.ForeColor = Color.Black
End If
End Sub
Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
If CheckBox2.Checked = True Then
TextBox1.BackColor = Color.Yellow
Else
TextBox1.BackColor = Color.White
End If
End Sub
VB可設(shè)置文本框?qū)傩訤oreColor值來(lái)改變文本的前景顏色。
ForeColor 屬性
ForeColor-返回或設(shè)置在對(duì)象里顯示圖片和文本的前景顏色。
Private?Sub?Form_Load()
Text1.ForeColor?=?vbRed?'這是設(shè)置為紅色
End?Sub
控件名.ForeColor = vbRed
如果要改為其他顏色的話,直接把“red”改為其他顏色所對(duì)應(yīng)的英文,如要改為藍(lán)色,則為“vbBlue”