Text1.FontName=“宋體”

　　End If

　　End Sub

　　單選項控件的Value屬性有兩個值：Trye和False,分別對應單選項被選中與末選中。復選框的Value屬性也是用來設置與返回復選框的當前狀態，不過它有三個值，值為0是表示復選框未選中，值為1表示選中，值為2時表示"不可用",若復選框呈淺灰色，且始終為選中狀態，則在程序運行時用戶不能對其進行操作。

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

　　其他三個復選框的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

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

　　2010年9月計算機等級考試成績查詢時間匯總

　　2011計算機等級考試二級VB考點及習題匯總

　　2011年計算機等級考試二級VB復習指導匯總

　　2011年上半年計算機等級考試報名時間匯總