《复选框和选项按钮.ppt》由会员分享,可在线阅读,更多相关《复选框和选项按钮.ppt(19页珍藏版)》请在三一文库上搜索。
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 Sub Private Sub Check2_Click() If Check2.Value=1 Then Text1.FontItalic=True Else Text1.FontItalic=False End If End Sub,
链接地址:https://www.31doc.com/p-2901670.html