教师活动 一、 引入新课 学生活动 打开课前制作好的程序再打开有关的菜单，选学生练习：仿照老师做的，测试并择相关的命令，就可以以指定方式显示文本框保存程序 中的文字 教 学 过 程 二、授新课 1．认识菜单术语 菜单栏 菜单命令列表 菜单 菜单选项 在“菜单编辑器”中降级 2．添加文本框并设置对象的属性绘制“文本 编辑器”程序界面并设置属性，让学生观察文按照老师给的表，修改名称，便于本框不设任何属性与我课前作好的对比，有何下节课的编写代码 区别？ 设置文本框的属性 讲Multiline属性为Ture是可换行Scrollbars属 性设为2-Vertical有垂直滚动条，0-None时， 无滚动条1-Horizontal，加水平滚动条，3-Both时，同时加水平和垂直滚动条 3．创建程序菜单 工具→菜单编辑器 在标题框中输入第一个菜单选项的标题文件，在名称框中输入这个菜单选项名称mnuFile单击下一个按钮“清空” mnucls剩下的大家仿照老师的，自己动手做一做 文件 mnufile 颜色 清空 mnucls 红色 退出 mnuexit 绿色 mnugreen 黄色 mnuyellow mnucolor mnured 字体 mnufont 黑体 mnuht 宋体 mnust 华文行楷 mnuhwxk 本节课我们学习了如何制作菜单，在我们利用“菜单编辑器”进行编制菜单 小 今后的学习中编制菜单很重要，因此大家要记结 清楚在VB中如何进行菜单设置 十一、板书设计 1．认识菜单术语
菜单栏 菜单命令列表
菜单 菜单选项 2、创建程序菜单
第10课 制作菜单（二）
一、教材分析
在windows系统中运行的程序，往往都有一个菜单栏，其中有一些菜单选项。单击某个菜单选项，可以打开菜单 并方便地执行其中的命令，这种结构使程序界面更简洁，便于使用。 二、学情分析
在前面课程中同学们已经学习了命令按钮、文本框、标签、选项按钮等这几个控件的使用，包括属性的修改，命令代码的添加、调试程序、保存程序这些内容，在操作过程中，学生通过自己不断的学习与实践，学生对这些控件的使用已经开始逐步熟悉。在本节课中，主要介绍的是如何制作菜单，学生通过自己的动手操作练习，结合前面按钮的操作使用，学生在学习过程中就会不断的发现，自己也能够制作菜单，以前都是自己在使用，只是一个使用者，而通过自己的制作，成为一个制作者，可以完成自己想要完成的功能。 三、教学目标：
知识与技能：
1、学会制作菜单的基本方法 2、了解用菜单命令控制程序的过程 过程与方法：
学生通过本节课的学习，主要掌握如何使用菜单控件，在学习过程中，了解菜单所能够实现的功能，并且也会发现菜单中有很多的功能，通过自己的编写代码，有很多的效果可以呈现，激发学生不断探索的能力。 情感态度与价值观：
1、培养学生发现问题解决问题的能力； 2、培养学生良好的上机习惯； 3、培养学生在学习过程中不断创新； 四、教学难点：
1、学会制作菜单的基本方法 五、教学重点：
1、了解用菜单命令控制程序的过程 六、课时：2课时（第二课时） 七、课型：新授课
八、教法：引导法、演示法 九：学法：小组合作，自主探究 十、教学过程
教 学 过 程 教师活动 二、 引入新课 打开课前制作好的程序再打开有关的菜单，选择相关的命令，就可以以指定方式显示文本框中的文字 那么我们今天就来学习这些相关命令，是什么命令让文本框内容“听话”呢？ 二、授新课 打开上节课编写好的程序，加上相关代码： Private Sub mnucls_Click() wz.Text = \End Sub Private Sub mnuexit_Click() End End Sub Private Sub mnured_Click() wz.ForeColor = vbRed End Sub Private Sub mnublue_Click() wz.ForeColor = vbBlue End Sub Private Sub mnugreen_Click() wz.ForeColor = vbGreen End Sub Private Sub mnuht_Click() wz.Font = \黑体\End Sub Private Sub mnust_Click() wz.Font = \宋体\End Sub Private Sub mnuyy_Click() wz.Font = \幼圆\End Sub 编写好代码后，文本框内的内容就会随菜单上的字体、颜色变化而变化，重在理解代码，不要为了记住代码而记代码 学生活动 学生练习：仿照老师做的，编写代码，测试并保存程序 打开上节课做好的程序，加上如下代码： Private Sub mnucls_Click() wz.Text = \End Sub Private Sub mnuexit_Click() End End Sub Private Sub mnured_Click() wz.ForeColor = vbRed End Sub Private Sub mnublue_Click() wz.ForeColor = vbyellow End Sub Private Sub mnuht_Click() wz.Font = \黑体\End Sub Private Sub mnust_Click() wz.Font = \宋体\End Sub 拓展练习： 本节课我们学习了如何为做好的菜单加利用“菜单编辑器”进行编制菜单，小 上代码，在我们今后的学习中编制菜单很重再根据自己的需要加上相应的代结 要，因此大家要记清楚在VB中如何进行菜单码 设置 十一、板书设计 1．认识菜单术语
菜单栏 菜单命令列表
菜单 菜单选项 2、创建程序菜单