武汉职业技术学院：《Visual Basic程序设计》第四章 常用控件

清单类控件 4复选按钮举例: Forl 回回区 跟我学 Visual basic程序设计 粗体 厂斜体 厂下划线

4 复选按钮举例： 4.1 清单类控件

4↑清单类控件 武汉职业技术学晚 4复选按钮举例: 文本框(Text1)显示预设的字样; 复选按钮一( Check1)可以将文本框里面的字变 为粗体; 复选按钮二( Check2)可以将文本框里面的字变 为斜体; 复选按钮三( Check3)可以给文本框里面的文字 加上下划线

文本框（Text1）显示预设的字样； 复选按钮一（Check1)可以将文本框里面的字变 为粗体； 复选按钮二（Check2）可以将文本框里面的字变 为斜体； 复选按钮三（Check3）可以给文本框里面的文字 加上下划线。 4 复选按钮举例： 4.1 清单类控件

4↑清单类控件 武汉职业技术学晚 复选按钮一: Private Sub CheckI Click If Check value 1 Then Text1. fontBold true Else Text1. fontbold false End If End Sub

复选按钮一： Private Sub Check1_Click() If Check1.Value = 1 Then Text1.FontBold = True Else Text1.FontBold = False End If End Sub 4.1 清单类控件

4↑清单类控件 武汉职业技术学晚 复选按钮二: Private Sub Check2 click If check value=1 Then Text1. fontitalic true Else Text1. fontltalic false End If End sub

复选按钮二： Private Sub Check2_Click() If Check1.Value = 1 Then Text1.FontItalic = True Else Text1.FontItalic = False End If End Sub 4.1 清单类控件

4.1清单类控件 武汉职业技术学晚 复选按钮三: Private Sub Check click If check value= 1 Then Text1. fontUnderline= True Else Text1. fontUnderline= false End if End Sub

复选按钮三： Private Sub Check3_Click() If Check1.Value = 1 Then Text1.FontUnderline = True Else Text1.FontUnderline = False End If End Sub 4.1 清单类控件