1、,9.5 选择类控件,教学目标：1、掌握选项按钮和复选框的创建方法2、掌握选项按钮和复选框属性、方法和事件及代码的编写教学难点：控件的属性、方法和事件的代码,9.5.1复选框（ CheckBox）,（1）基本功能复选框控件通常是表示Yes/No或True/False等状态，用鼠标单击时，可在不同状态间进行切换，且被单击的复选框将显示选定状态。多个复选框之间互不影响,9.5.1复选框（ CheckBox）,（2）常用属性a)Value属性 语法：CheckBox1.Value=number 返回或设置复选框所处的状态 Number 表示一个整数值， 其合法取值有三个：0,1和2 0：表示Unch
2、ecked，即复选 框处于未被选中的状态（默认） 1：表示Checked，即复选框 处于被选中状态 2：表示Unavailable，即复选框 处于禁止状态，不可用，以灰色显示,9.5.1复选框（ CheckBox）,b) Alignment 属性 语法：CheckBox1.Alignment=number 功能：返回或设置复选框与Caption属性所设置的标题的相对位置 Number的合法取值：0和1 0：表示Left Justify,即复选框位于标题的左边 1：表示Right Justify，即复选框位于标题的右边,9.5.1复选框（ CheckBox）,（3）常用事件Click事件是复选框
3、控件最基本的事件。触发条件：a)用鼠标单击复选框控件时触发该事件；b)在键盘上按Tab键，焦点移到复选框控件上时，按空格键也会触发该事件；c) 在Caption属性中加一个连字符（&），创建一个访问键，运行时按住Alt+“访问键”，也可以触发该事件；d)在程序代码中将复选框的Value属性值设置为True，也可以触发该事件,9.5.1复选框（ CheckBox）,9.5.1复选框（ CheckBox）,代码： Private Sub Check1_Click() If Check1.Value=1 ThenText1.FontBold=True Else Text1.FontBold=Fals
4、e End If End Sub,9.5.1复选框（ CheckBox）,Private Sub Check2_Click() If Check2.Value=1 ThenText1.FontItalic=True Else Text1.FontItalic=False End If End Sub,9.5.2选项按钮 OptionButton （1）基本功能 选项按钮：每一个代表一个选项，而且在同一个容器 中的单选按钮是互斥的,9.5.2选项按钮 OptionButton,（2）常用属性a)Value属性语法：OptionButton.Value=Boolean功能：返回或设置选项按钮的状态
5、True表示选项按钮处于被选中状态False表示选项按钮处于未被选中的状态（默认设置）,9.5.2选项按钮 OptionButton,（2）常用属性 b）Enabled属性 返回或设置选项按钮是否可用 True表示选项按钮处于 有效状态 False表示选项按钮处于 禁止状态，并将以灰色显示,9.5.2选项按钮 OptionButton,（2）常用属性c) Alignment 属性语法：CheckBox1.Alignment=number功能：返回或设置选项按钮与Caption属性所设置的标题的相对位置Number的合法取值：0和10：表示Left Justify,即复选框位于标题的左边1：表示
6、Right Justify，即复选框位于标题的右边,9.5.2选项按钮 OptionButton,（3）常用事件选项按钮最常用的事件就是Click事件，与复选框触发的条件相同a)单击b) Tab键移动到该选项按钮，然后按空格c) 创建访问键，按Alt+“访问键”d)在代码中把Value的属性值改为True,9.5.2选项按钮 OptionButton,代码： Private Sub Option1_Click() Text1.FontName=“宋体“ End Sub Private Sub Option2_Click() Text1.FontName=“黑体“ End Sub Private
7、 Sub Option3_Click() Text1.FontName=“楷体_GB2312“ End Sub,作业,用文本框，选项按钮和复选框制作如图所示，要求文字跟着选项的改变而改变,代码： Private Sub Option1_Click() Text1.FontName=“楷体_GB2312“ End Sub Private Sub Option2_Click() Text1.FontName=“隶属“ End Sub Private Sub Option3_Click() Text1.FontSize=12 End Sub Private Sub Option4_Click() Text1.FontSize=24 End Sub,Private Sub Check1_Click() If Check1.Value=1 ThenText1.FontBold=True Else Text1.FontBold=False End If End SubPrivate Sub Check2_Click() If Check2.Value=1 ThenText1.FontItalic=True Else Text1.FontItalic=False End If End Sub,
