复选框和选项按钮

《复选框和选项按钮》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

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和20：表示Unchecked，即复选

2、框处于未被选中的状态（默认）1：表示Checked，即复选框处于被选中状态2：表示Unavailable，即复选框处于禁止状态，不可用，以灰色显示9.5.1复选框（CheckBox）b)Alignment属性语法：CheckBox1.Alignment[=number]功能：返回或设置复选框与Caption属性所设置的标题的相对位置Number的合法取值：0和10：表示LeftJustify,即复选框位于标题的左边1：表示RightJustify，即复选框位于标题的右边9.5.1复选框（CheckBox）（3）常用事件Click事件是复选框控件最基本的事件。触发条件：a)用鼠标单击复选

3、框控件时触发该事件；b)在键盘上按Tab键，焦点移到复选框控件上时，按空格键也会触发该事件；c)在Caption属性中加一个连字符（&），创建一个访问键，运行时按住Alt+“访问键”，也可以触发该事件；d)在程序代码中将复选框的Value属性值设置为True，也可以触发该事件9.5.1复选框（CheckBox）9.5.1复选框（CheckBox）代码：PrivateSubCheck1_Click()IfCheck1.Value=1ThenText1.FontBold=TrueElseText1.FontBold=FalseEndIfEndSub9.5.1复选框（CheckBox）Pri

4、vateSubCheck2_Click()IfCheck2.Value=1ThenText1.FontItalic=TrueElseText1.FontItalic=FalseEndIfEndSub9.5.2选项按钮OptionButton（1）基本功能选项按钮：每一个代表一个选项，而且在同一个容器中的单选按钮是互斥的9.5.2选项按钮OptionButton（2）常用属性a)Value属性语法：OptionButton.Value[=Boolean]功能：返回或设置选项按钮的状态True——表示选项按钮处于被选中状态False——表示选项按钮处于未被选中的状态（默认设置）9.5.2选

5、项按钮OptionButton（2）常用属性b）Enabled属性返回或设置选项按钮是否可用True——表示选项按钮处于有效状态False——表示选项按钮处于禁止状态，并将以灰色显示9.5.2选项按钮OptionButton（2）常用属性c)Alignment属性语法：CheckBox1.Alignment[=number]功能：返回或设置选项按钮与Caption属性所设置的标题的相对位置Number的合法取值：0和10：表示LeftJustify,即复选框位于标题的左边1：表示RightJustify，即复选框位于标题的右边9.5.2选项按钮OptionButton（3）常用事件选项

6、按钮最常用的事件就是Click事件，与复选框触发的条件相同a)单击b)Tab键移动到该选项按钮，然后按空格c)创建访问键，按Alt+“访问键”d)在代码中把Value的属性值改为True9.5.2选项按钮OptionButton代码：PrivateSubOption1_Click()Text1.FontName=“宋体“EndSubPrivateSubOption2_Click()Text1.FontName=“黑体“EndSubPrivateSubOption3_Click()Text1.FontName=“楷体_GB2312“EndSub作业用文本框，选项按钮和复选框制作如图所示，

7、要求文字跟着选项的改变而改变代码：PrivateSubOption1_Click()Text1.FontName=“楷体_GB2312“EndSubPrivateSubOption2_Click()Text1.FontName=“隶属“EndSubPrivateSubOption3_Click()Text1.FontSize=12EndSubPrivateSubOption4_Click()Text1.FontSize=24EndSubPriv