該參數(shù)枚舉值,采用位運(yùn)算,那么可以用Or把兩者連接起來即可;
為齊齊哈爾等地區(qū)用戶提供了全套網(wǎng)頁設(shè)計制作服務(wù),及齊齊哈爾網(wǎng)站建設(shè)行業(yè)解決方案。主營業(yè)務(wù)為網(wǎng)站建設(shè)、成都網(wǎng)站設(shè)計、齊齊哈爾網(wǎng)站設(shè)計,以傳統(tǒng)方式定制建設(shè)網(wǎng)站,并提供域名空間備案等一條龍服務(wù),秉承以專業(yè)、用心的態(tài)度為用戶提供真誠的服務(wù)。我們深信只要達(dá)到每一位用戶的要求,就會得到認(rèn)可,從而選擇與我們長期合作。這樣,我們也可以走得更遠(yuǎn)!
New Font(CurrentFont.FontFamily, CurrentFont.Size, FontStyle.Bold Or FontStyle.Italic)
VB6.0可設(shè)置FontBold屬性 = True,使顯示字體變粗。
FontBold、FontItalic、FontStrikethru、FontUnderline
屬性
按下述格式返回或設(shè)置字體樣式:Bold、Italic、Strikethru 和 Underline。
下面例子中,每單擊一次鼠標(biāo),就將窗體中的文本置成兩種樣式組合之一。
Private?Sub?Form_Click()
FontBold?=?Not?FontBold???'轉(zhuǎn)換字體粗細(xì)
FontItalic?=?Not?FontItalic???'?轉(zhuǎn)換字體樣式。
Print?"Now?is?the?time!"???'?輸出文本。
End?Sub
Private?Sub?Form_Load()
FontSize?=?24
End?Sub
1、打開VB軟件,在窗體上面,添加兩個文本框,如下圖所示。
2、單擊文本框,在屬性窗口分別設(shè)置文本框的屬性,清空文本的內(nèi)容,如下圖所示。
3、在窗體上面,添加一個命令按鈕,如下圖所示。
4、單擊命令按鈕,在屬性窗口中,設(shè)置命令按鈕的屬性,如下圖所示。
5、雙擊命令按鈕,編寫其代碼,如下圖所示。
6、運(yùn)行程序,在第一個文本框中,輸入“baidu”,點(diǎn)擊“轉(zhuǎn)換”命令按鈕,第二個文本框出現(xiàn)“BAIDU”,如下圖所示。
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged Dim b As FontStyle
If CheckBox1.Checked Then b = FontStyle.Bold Else b = FontStyle.Regular End If TextBox1.Font = New Font(TextBox1.Font.Name, TextBox1.Font.Size, t) End Sub