vb第16单选按钮、复选框控件(4)

简要介绍资料的主要内容,以获得更多的关注

Text1.FontUnderline = True Else

Text1.FontUnderline = False End If End Sub

Private Sub Check2_Click() If Check2.Value = 1 Then Text1.FontItalic = True Else

Text1.FontItalic = False End If End Sub

Private Sub Check3_Click() If Check3.Value = 1 Then Text1.FontBold = True Else

Text1.FontBold = False End If

练习1：使用复选框列出休闲项目，运行时把选择的项目用msgbox显示出来。 Public txt1 As String Public txt2 As String Public txt3 As String Public txt4 As String Private Sub Check1_Click() If Check1.Value = 1 Then txt1 = Check1.Caption

End If