2011年度計(jì)算機(jī)等級(jí)考試二級(jí)VB復(fù)習(xí)指導(dǎo)(38)

　　Text1.FontName=“宋體”

　　End If

　　End Sub

　　單選項(xiàng)控件的Value屬性有兩個(gè)值：Trye和False,分別對(duì)應(yīng)單選項(xiàng)被選中與末選中。復(fù)選框的Value屬性也是用來(lái)設(shè)置與返回復(fù)選框的當(dāng)前狀態(tài)，不過它有三個(gè)值，值為0是表示復(fù)選框未選中，值為1表示選中，值為2時(shí)表示"不可用",若復(fù)選框呈淺灰色，且始終為選中狀態(tài)，則在程序運(yùn)行時(shí)用戶不能對(duì)其進(jìn)行操作。

　　在上述代碼中，使用一個(gè)If語(yǔ)句來(lái)判斷復(fù)選框的Value值是否為1,如果是(即復(fù)選框被選中),則使文本框的FontName屬性值為"隸書",如果不是(即復(fù)選框未被選中),則使文本框的PontName屬性值為"宋體".由于代碼處于復(fù)選框的Click事件中，因此，每次單擊復(fù)選框，程序都將判斷復(fù)選框當(dāng)前的狀態(tài)，文本框中文本的字體也將隨著在隸書與宋體之間切換。

　　其他三個(gè)復(fù)選框的Click事件過程與此類似，只是功能不同罷了。下面是它們的事件過程。

　　將下列代碼添加到Chlinees_Click事樣過程中：

　　Private Sub chine_Click()

　　If Chline.Value=1 Then

　　Text1.FontUnderline=Ture

　　Else

　　Text1.FontUnderline=False

　　End If

　　End Sub

　　將下列代碼添加到ChSize_Click事件過程中：

　　Private Sub ChSize_ Click()

　　If ChSiaeValue=l Then

　　Text1.FontSize=18

　　E1Se

　　Text1.FontSize=10

　　End If

　　End Sub

　　將下列代碼添加到ChItalic_Click事件過程中：

　　Private Sub ChItalic_Clisk()

　　If Chltalic.Value=1 Then

　　Text1.FontItalic=True

　　Else

　　Text1.FontItalic=False

　　End It

　　End Sub

　　Private Sub ChItalic_Clisk()

　　If Chltalic.Value=1 Then

　　Text1.FontItalic=True

　　Else

　　Text1.FontItalic=False

　　End It

　　End Sub

　　運(yùn)行該程序，在文本框中輸入一段文字，選中各復(fù)選框，可以發(fā)現(xiàn)，每單擊一個(gè)復(fù)選框，文本的外觀就隨之改變。如選中【下劃線】復(fù)選框，則文本框中的文本就出現(xiàn)了下劃線，再次單擊，則下劃線消失。圖5.41所示的是沒有選中任何復(fù)選框情況下文本的外觀，圖5.42所示的選中所有復(fù)選框后文本的外觀。

　　2010年9月計(jì)算機(jī)等級(jí)考試成績(jī)查詢時(shí)間匯總

　　2011計(jì)算機(jī)等級(jí)考試二級(jí)VB考點(diǎn)及習(xí)題匯總

　　2011年計(jì)算機(jī)等級(jí)考試二級(jí)VB復(fù)習(xí)指導(dǎo)匯總

　　2011年上半年計(jì)算機(jī)等級(jí)考試報(bào)名時(shí)間匯總