复选框和选项按钮.ppt

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

2、：表示Unchecked，即复选 框处于未被选中的状态（默认） 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）常用事件 Cli

3、ck事件是复选框控件最基本的事件。 触发条件： 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 Then Text1.FontBold=True Else Text1

4、.FontBold=False End If End Sub,9.5.1复选框（ CheckBox）,Private Sub Check2_Click() If Check2.Value=1 Then Text1.FontItalic=True Else Text1.FontItalic=False End If End Sub,9.5.2选项按钮 OptionButton （1）基本功能 选项按钮：每一个代表一个选项，而且在同一个容器 中的单选按钮是互斥的,9.5.2选项按钮 OptionButton,（2）常用属性 a)Value属性 语法：OptionButton.Value=Boole

5、an 功能：返回或设置选项按钮的状态 True表示选项按钮处于 被选中状态 False表示选项按钮处于 未被选中的状态（默认设置）,9.5.2选项按钮 OptionButton,（2）常用属性 b）Enabled属性 返回或设置选项按钮是否可用 True表示选项按钮处于 有效状态 False表示选项按钮处于 禁止状态，并将以灰色显示,9.5.2选项按钮 OptionButton,（2）常用属性 c) Alignment 属性 语法：CheckBox1.Alignment=number 功能：返回或设置选项按钮与Caption属性所设置的标题的相对位置 Number的合法取值：0和1 0：表示L

6、eft Justify, 即复选框位于标题的左边 1：表示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()

7、 Text1.FontName=“黑体“ End Sub Private 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 Then Text1.FontBold=True Else Text1.FontBold=False End If End