单选按钮、复选按钮、框架、列表框、组合框控件的用法

1、 单选按钮、复选按钮、框架、列表框、组合框控件的用法 余姚四职校黄素媛汪群妃 教学目标 1 知识目标： 掌握单选按钮、复选按钮、框架、列表框、组合等控件的常用属性和方法，并能使用这些控件进行简单编程 。 2 能力目标： 增产学生的知识理解能力、动手操作能力、团队合作精神。 3 情感目标： 加强对学生的热爱祖国、热爱科学的教育。 教学重点 1、掌握单选按钮、复选按钮、框架、列表框、组合等控件的常用属性和方法。 2、学会使用这些控件进行简单编程 教学难点 1、学会使用这些控件进行编程 教学方法 1 教法； 情境教学法、任务驱动法、比较法 2 学法： 以完成任务为动力，学生通过经验分析并结合实践操作

2、，采用小组合作进行探究学习。 教学手段 采用多媒体课件演示，机房实践操作为主，教师适时点拔的教学手段。 教具准备 教学课件多媒体机房电子教室控制系统 教学说明 本课是在教科书的第五章，学生已经初步接触了 VB，而且已经学过部分控件的用法，比如：标签、命令按钮、文本框等，对 VB代码的编写也已经接触了一段时间。本课我们总共用二课时完成 教学过程 一、复习导入 情景设置 小叮当：期中考试快要到了，每次期中考试都有5 个班级的试卷要批，累都累死了 小磨菇：你教那么多班级呀，那是挺累的，那你可以用VB 编一个考试系统，让计算机帮 你批呀，学生一考完，马上就有结果 小叮当：是呀，我怎么没有想到呢？可是我

3、刚接触VB 还不会编呀？ 小磨菇：我来教你吧，首先我们来掌握一些重要用到的重要控件的用法。先作些准备工作吧 复习 （ 1）、命令按钮、标签控件的用法 （ 2）、说出下列程序的含义 Text1.Alignment=0 设置文本左对齐 Text1.Alignment = 1 设置文本右对齐 Text1.Alignment = 2 设置文本居中齐 Text1.FontSize=10 设置文本为10 号字。 Text1.FontBold=False 设置文本为非粗体 label4.caption= “对不起，你答错了” 设置 LABEL4 的 Caption 属性为“对不起，你答错了” msgbox

4、( “对不起，你答错了” ) 产生一个提示框 二、教授新课 (一) 例题 1、演示例题 教师活动 演示例单项选择与多项选择 设问 1 ：说出 其中的新控件 教师活动 ：教师引导，学生说出新控件：单选按钮、复选按钮、框架 2、讲解例题 （通过对例题的讲解，让学生初步接触三个控件的用法） 第一步 ：界面设计 （1）、画框架 教师活动 教学生有关框架的知识点、功能：用来放其他控件的容器，把有关控件按功能分组，默认名称为 Frame1、 Frame2、 Frame3。 重要属性： Caption 属性：框架标题 Enabled 属性： True( 缺省值 )，允许对框架内的所有对象进行操作 False

5、：标题呈灰色，不允许对框架内的所有对象进行操作。 Visible 属性： True( 缺省值 )：框架及其控件可见。 Flase： 框架及其控件被隐含起来 教师活动 演示并画出两个框架，名称分别为 Frame1、 Frame1，Caption 分别 为单项选择与多项选择 学生活动 跟着老师画 （ 2）、添加一些 LABEL 控件，属性值如下： 标签名称 Caption 值 Label1 1、神话白蛇传中，“白娘子盗仙草”中仙草是指下列哪 种东西 Label2 2、下列哪种旅游胜地是中国的？ Label3 3、提示： Label4 无 设问 1 ；下面我们来为工程添加标签控件，总共要添加几个标签

6、控件， 怎么添加呢？ 学生活动 学生自行完成这一步 教师活动 教师巡视，并指导学生完成 （3）、添加单选按钮 教师活动 教学生有关单选按钮的知识点、功能：实现一种“单项选择”的功能，一组单选按钮控件提代一组 彼此相互排斥的选项，任何时刻用户只能从中选择一个选项，被选中项目左侧圆圈中会出现一黑点。 重要属性： Caption 属性：设置控件标题 Alignment 属性： 0( 缺省值 )：控件钮在左边，标题显示在右边 1：控件钮在右边，标题显示在左边 Value 属性： True ：单选钮被选定。 Flase（缺省值）：单选钮未被选定 Style 属性： 0 （缺省值）：标准方式 教师活动 1

7、 ：图形方式 演示并画出四个单选按钮，属性设置分别如下： 单选按钮名称 Caption 值 Alignment 值 Vlaue 属性 Option1 A 、人参 0 FLase Option2 B、冬虫夏早 0 Flase Option3 C、灵芝 0 Flase Option4 D、山药 0 Flase 学生活动 跟着老师操作 （4）、添加复选按钮 教师活动 教学生有关复选按钮的知识点 、功能：实现一种 “多项选择 ”的功能。一组检查框控件可以提供多个选项，它们彼此独立工作，所以用户可以同时选择任意多个选项，选择某一选项后，该控件将显示，而清除此选项后，消失。 重要属性： Caption 、

8、 Alignment 、Style 与单选按钮相同 Value 属性： Value 属性与单选按钮不同 单选按钮 复选框控件 True: False: 单选钮被选定单选钮未被选 0-Unchecked 1-Checked ：未被选定 ：选定 定（缺省值） 2-Grayed ：灰色，禁止选择 设问 1 ；单选按钮与复选按钮在功能与属性方面有什么区别？ 教师活动 演示并画出六复选按钮，属性设置分别如下： 复选按钮名称 Caption 值 Alignment 值 Vlaue 属性 Check1 黄山 0 0 Check2 故宫 0 0 Check3 富士山 0 0 Check4 爱琴海 0 0 Ch

9、eck5 长城 0 0 Check6 中山林 0 0 学生活动 跟着老师操作 （ 5）、添加命令按钮 学生活动 学生创建一个命令按钮，CAPTION 值为校对答案 第二步 ：添加代码 （ 1）、双击 Option1，添加如下代码 Private Sub Option1_Click() Label4.Caption = 对不起，答错了！ End Sub 含义：当单击 OPTION1 时， LABEL4 中就显示“对不起，答错了！” 设问 1 ；那么 Option2 、Option3 、 Option4 该如何添加代码呢？ 学生活动 学生思考，并且完成上面的问题 师生互动 在老师的提示下，不能够完

10、全的学生继续完成代码的添加 （2）、双击“校对答案”按钮，添加如下代码 Private Sub Command1_Click() If Check1.Value And Check2.Value And Check5.Value And Check6.Value And Check3.Value = FlASE And Check4.Value = False Then MsgBox ( 恭喜你，答对了) Else MsgBox ( 对不起，答错了！，正确答案是：黄山、故宫、长城和中山林) End If End Sub 教师活动 解释如上程序的含义 师生互动 在老师的提示下，完成代码的添加 3

11、、巩固练习 任务一： 例：创建一个窗体 Form1 （ Caption ：编辑字体的颜色和字形），在此窗体上创建 2 个框架控件 Frame1 （ Caption ：字体颜色）和 Frame2 （ Caption ：字体字形），再在窗体上建立一个文本框 Text1 （ Text ：心想事成）。在框架控件 Frame1 内建立由名为 “红色 ”、“绿色 ”、 “蓝色 ”组成的单选按钮数组，在框架控件Frame2 内建立由名为“宋体 ”、 “楷体 ”、“仿宋体 ”、 “黑体 ”、 “隶书 ”组成的单选按钮数组。在框架控件Frame3 内建立由名 为“粗体 ”、 “斜体 ”、 “下划线 ”组成的复选

12、框按钮数组。编程解决：点击有关单选按钮时，文本框内的文本会作出相对应的变化。 学生活动 学生思考，并且完成上面的例题，做好后，题目上交到指定的目录下 师生活动 教师在学生做题过程中进行巡视，发现学生的不足，等学生上交完后，抽 取部分学生的练习进行分析讲解，并把普遍存在的问题进行详细讲解 （二）例题 1、演示例题 教师活动 演示例列表框和组合框 设问 1 ：说出 其中的新控件 教师活动 ：教师引导，学生说出新控件：列表框、组合框2、讲解例题 （通过对例题的讲解，让学生初步接触二个控件的用法） 第一步 ：界面设计 （1）、添加标签 控件名称属性值 Caption1Caption 为字体 Capti

13、on2Caption 为字号 Caption3Caption 为颜色 设问 1 ；下面我们来为工程添加标签控件，总共要添加几个标签控件，怎么添加呢？ 学生活动 学生自行完成这一步 教师活动 教师巡视，并指导学生完成 （2）、添加列表框 教师活动 教学生有关列表框的知识点、功能：列表框控件提供一个选项列表，用户可以从中选择一项或多 项。如果列表框无法显示所有的选项，则 Viual Basic 将会自动在列表框上添加滚动条。 重要属性： Name 属性：设置在程序中调用列表框对象的名称 List 属性：设置或返回列表框控件的选项 Text 属性：存放列表框中被选定项的文本内容 ListIndex

14、属性：设置或返回列表框选项的序号。其中0 表示第 1 个选 项， 1 代表第 2 个选项 ListCount 属性：返回列表框中选项的数目 教师活动 演示并画出一个列表框，并在其List 属性中添加一些项目，内容 为八荣八耻，如上图所示 学生活动 跟着老师画 设问 1 ；列表框与组合框在功能与属性方面有什么联系和区别？ （ 3）、添加组合框 教师活动 教学生有关组合框的知识点 功能：组合框是一个文本框和一个列表框的组合。若用户在列表框中选择某项，则该项的内容会自动装入文本框中。当列表框中没有所需项时，下拉式组合框和简单组合框都允许在文本框中输入特定的信息。 重要属性： Style 属性：设置组

15、合框的样式 Text 属性：存放组合框中选定的内容 ListIndex 属性：设置或返回组合框选项的序号 List 属性：设置或返回组合框控件的选项 ListCount 属性：返回组合框中的选项数目 教师活动 演示并画出三个组合框，属性设置分别如下： 组合框名称List 值 Combo1宋体、黑体、隶书、幼圆、华文楷体 Combo210、11、 12、 13、 14、15、 16 Combo3黄色、红色、蓝色、青色、绿色、紫色、黑色 学生活动 跟着老师操作 第二步 ：添加代码 （ 1）、双击 Combo1，添加如下代码 Private Sub Combo1_Click() List1.Font

16、Name= Combo1.Text End Sub 含义：当单击Combo1 时， List1 中文字的字体就是Combo1 中选择的字体 设问 1 ；那么 Option2 、Option3 、 Option4 该如何添加代码呢？ 学生活动 学生思考，并且完成上面的问题 师生互动 在老师的提示下，不能够完全的学生继续完成代码的添加 教师活动 解释如上程序的含义 师生互动 在老师的提示下，完成代码的添加 （三）综合例题 （综合单选框、复选框、框架、列表框和组合框的用法） 1、演示例题 教师活动 演示例在线报名 2、讲解例题 （通过对例题的讲解，让学生对新学习的控件有一个综合的印象） 第一步 ：界

17、面设计 （1）、添加标签、文本框、框架、单选框、复选框、列表框和组合框任务二：学生按照上图完成和控件的添加以及属性值的设置 学生活动 学生自行完成这一步 教师活动 教师巡视，并指导学生完成 （2）添加命令按钮 Command1和 Command2两个按钮的属性设置如下： 按钮名称 Command1 Command2 （3）再添加一个窗体的基本信息，如下图 属性值 Style 属性为 1， Picture 属性中添加图片 Style 属性为 1， Picture 属性中添加图片 Form2，当单击提交按钮时，用来显示在线报名 第二步 ：添加代码 (1)、在 From1 中的代码如下： Priva

18、te Sub Command1_Click() 当单击 Command1按钮时， If List1.Text Then List2.AddItem List1.Text 那么 L ist2 增加一项 End If End Sub Private Sub Command2_Click() If List2.Text Then List2.RemoveItem List2.ListIndex End If End Sub 当单击 Command2按钮时， 那么 L ist2 中删除所选中项 Private Sub Command3_Click() Form1.Hide Form2.Show End

19、 Sub Private Sub Command4_Click() Text1.Text = Combo1.Text = 男 Option1.Value = True Check1.Value = False Check2.Value = False Check3.Value = False List2.Clear Text2.Text = End Sub 当单击 Command3按钮时， 那么 From1 隐藏，而 From2 出现 当单击 Command4按钮时， 那么，清除所设置的项 教师活动 解释如上程序的含义 师生互动 在老师的提示下，完成代码的添加 (2)、在 From2 中的代码

20、如下： Private Sub Form_Activate() Print Print Print Print Print 姓名： ; Form1.Text1.Text Print 性别 :; Form1.Combo1.Text If Form1.Option1.Value Then Print 学历： ; Form1.Option1.Caption ElseIf Form1.Option2.Value Then Print 学历： ; Form1.Option2.Caption ElseIf Form1.Option3.Value Then Print 学历： ; Form1.Option3.Caption ElseIf Form1.Option4.Value Then Print 学历： ; Form1.Option4.Caption End If b = 语言能力： If Form1.Check1.Value = 1 Then b = b + Form1.Check1.