|
（作者：占太鹏 修改时间：2006年7月23日）
一、
教学目标
1、
知识与技能
（1）认识“多媒体程序”与“多媒体播放器”的概念。
（2）认识扩展控件的主要属性和方法。
（3）认识菜单编辑器。
（4）认识利用VB设计多媒体程序的几种主要方法。
2、
过程与方法
（1）在小组实践的基础上，掌握利用扩展控件来设计多媒体程序的方法。
（2）在经历实际操作的过程中，掌握通用对话框控件，菜单编辑器等的应用。
（3）了解多媒体程序设计的主要方法。
3、
情感态度和价值观
（1）关注多媒体程序的设计与应用，产生学习多媒体程序设计的相关技术的愿望。
（2）注重根据身边的问题需求利用所学知识进行多媒体程序设计。
（3）认识多媒体程序设计方法可有很多，根据个人所长有探求相关技术的欲望。
二、
重点难点
1、
教学重点
（1）利用VB的多媒体控件设计VCD多媒体播放器
（2）通用对话框控件的常用属性和方法。
2、
教学难点
（1）通用对话框控件的属性和方法。
（2）利用VB开发多媒体程序的几种方法。
三、
教学环境
1、
教材处理
以广东教育出版社的信息技术（选修一）《算法与程序设计》第六章第一节内容为结构框架展开本节的教学过程。本节学习重点主要放在完成“多媒体播放器程序设计”部分，后半部分“利用VB设计多媒体程序的方法”只作部分演示，重点介绍控件的使用。学生掌握相关控件的应用方法后，可达举一反三、触类旁通的效果，这也是教育的意义之所在。
教学方法采用任务驱动、小组合作和自主探究相结合的方法。
2、
预备知识
学生对面向对象下的程序设计机制有了较完整的认识，对VB中的窗体、控件、属性、方法和事件驱动都感受且经历过。本节在此基础上进行能力的拨高，使学生对VB中的可视化程序设计认识更透彻。
3、
硬件要求：本节内容在多媒体电脑教室中完成。
4、
所需软件：学生机要安装VB6.0或以上版本。
5、
所需课时：2个课时。
四、
教学过程
导入：采用情景导入充分吸引学生的注意力，激发其学习积极性。通过演示用VB制作的多媒体播放器程序，让学生认识到靠独立运用自己已学得的程序设计技术也可以解决很多生活和学习中的实际问题，然后引出本节课的学习目标：综合运用VB程序设计技术和VB中的扩展控件进行多媒体应用程序设计。演示一（6-1ys1.exe）
演示二（6-1ys2.exe）
（一）多媒体播放器程序设计
简短复习《信息技术基础》中学过的多媒体基础知识，指出多媒体应用程序设计是信息技术应用的一个热门方向。
多媒体程序通常是指利用多媒体技术设计与开发的、具备一定多媒体功能的计算机程序。如Windows自带的多媒体播放器程序、多媒体制作工具等。
布置任务
设计一个“VCD播放器”程序，其运行界面如图一所示。要求：
（1）
选择“文件”→“打开”选项，打开一对话框可选择多媒体文件；
（2）
选择“文件”→“退出”选项结束程序；
（3）
选择“查看”→“加倍”选项将视窗放大两倍显示；
（4）
选择“查看”→“正常”选项可恢复视窗正常显示；
（5）
当单击窗口底部自左至右的相应按钮时，可分别实现媒体的播放、暂停、停止的功能。
 设计的程序介面不一定与图一相同，尽量发挥自己的想像力，界面设计和程序实现功能要有所创新。
1、任务分析：从本程序提供的功能和界面设计两方面进行，引导学生动手动脑。
分发已制作完成的播放器程序VCD.EXE文件到每台学生机，让同学观摩程序的运行。并思考以下问题：
（1）
观察程序介面的控件构成，有哪些控件前面还没学过？
（2）
如何设计一个通用对话框？又怎样实现对播放文件进行控制？
（3）
总结该程序提供的所有功能，并填充表一。
表一
VCD多媒体播放器程序功能模块划分表
|
序号 |
功能模块 |
子模块 |
选项 |
|
1 |
文件 |
打开 |
囗 |
|
退出 |
囗 |
|
2 |
查看 |
视窗放大1倍 |
囗 |
|
视窗正常显示 |
囗 |
|
视窗全屏显示 |
囗 |
|
视窗1/4大小显示 |
囗 |
|
3 |
帮助 |
内容 |
囗 |
|
关于VCD播放器 |
囗 |
|
4 |
媒体播放控制 |
播放 |
囗 |
|
暂停 |
囗 |
|
停止 |
囗 |
|
音量调整 |
囗 |
|
5 |
其他（请写下你的想法） |
|
|
2、简要介绍本节重点内容 = 1 \* GB3 ①多媒体控件MediaPlayer和 = 2
\* GB3 ②通用对话框控件CommonDialog的功能和添加方法及 = 3 \* GB3
③菜单编辑器的启动和添加方法。
MediaPlayer和CommonDialog都是VB提供的扩展控件。调用扩展控件的方法有两种：
1)
菜单法：在VB的主窗口中点击菜单“工程”→“部件”后出现如下的部件窗口，
再从控件选项卡中选定需要的控件，如上图示。点击“确定”,控件工具箱中会出现其对应图标，如下图：
添加完成以后就可以象使用标准控件一样使用该控件。
2)
右键菜单法：右击控件工具箱空白处，点选“部件”子菜单，然后象上面一样操作。
l
多媒体处理控件MediaPlayer支持多种媒体格式的的播放：如AVI、MPEG、MOV、DAT等。
表二
MediaPlayer控件的主要属性与方法
|
属性 |
功能 |
方法 |
功能 |
|
AutoSize |
自动视频窗口大小 |
Next |
向前 |
|
AutoStart |
确定视频是否自动播放。若为True时，则自动播放；若为False时，则禁止自动播放 |
Open |
打开 |
|
DisplaySize |
设
置
视
频
窗
口
的
缩
放
比
例 |
0 |
视窗的大小为原始大小 |
Pause |
暂停 |
|
1 |
视窗为原始大小的1/2 |
|
2 |
视窗为原始大小的2倍 |
|
3 |
全屏显示 |
|
4 |
视窗由控件的高度宽度来决定 |
|
5 |
视窗为原始大小的1/16 |
|
6 |
视窗为原始大小的1/4 |
|
7 |
视窗为原始大小的1/2 |
|
EnableFullScreenControls |
允许全屏控制 |
Play |
播放 |
|
FileName |
指定多媒体文件名 |
Previous |
后退 |
|
Volume |
音量大小设置 |
Stop |
停止 |
l
通用对话框控件CommonDialog主要用于设计图形用户对话框交互界面，包括打开、另存为、字体、颜色、打印和帮助对话框六种类型。其属性Action的值决定打开窗口的类型，如CommonDialog1.Action=1.也可调用相应的方法打开需要的窗口,如CommonDialog1.ShowOpen。
表三
CommandDialog控件能够显示的对话框
|
方法 |
所显示的对话框 |
|
ShowOpen |
显示“打开”对话框 |
|
ShowSave |
显示“另存为”对话框 |
|
ShowColor |
显示“颜色”对话框 |
|
ShowFont |
显示“字体”对话框 |
|
howPrinter |
显示“打印”或“打印选项”对话框 |
|
ShowHelp |
调用Windows帮助引擎 |
图三
CommandDialog的属性页窗口（在窗体中右击该控件点属性菜单打开）
特别提示：设置控件的属性可有三种方法：
= 1
\* GB3
①通过属性窗口
= 2 \* GB3
②通过程序代码
= 3 \* GB3
③使用控件的属性页，如图三，可设置CommandDialog的打开对话框的标题，初始文件路径和打开文件类型的选择等属性。
CommandDialog的主要属性
|
属性 |
功能 |
属性 |
功能 |
|
Action |
0 |
无对话框 |
FileName |
指定打开的文件名 |
|
1 |
显示打开对话框 |
FileTile |
设置或返回要打开的文件名（包括路径） |
|
2 |
显示另存为对话框 |
Filter |
过滤器，使用语法：“描述|通配符”，例：commondDialog1.Filter=”Office文件(*.doc)|*.doc|文本文件(*.txt)|
*.txt” |
|
3 |
显示颜色对话框 |
|
4 |
显示字体对话框 |
|
5 |
显示打印机对话框 |
FilterIndex |
过滤器索引 |
|
6 |
显示帮助对话框 |
InitDir |
指定[打开]对话框中的初始目录 |
l
启动菜单编辑器：单击需要制作菜单的窗体，点选菜单“工具→菜单编辑器”或直接单击常用工具栏上的快捷图标启动。
菜单编辑制作的要点:
= 1 \* GB3
①菜单名称和快捷键在图二菜单编辑器窗口中的“标题”项后，其中快捷键输入紧随菜单名的括号内而且以&开头，菜单编辑器窗口中的“名称”项后输入VB内部引用该项菜单的名称。
= 2 \* GB3
②利用←、→可以对菜单作升降级处理，最高级为主菜单级别，子菜单的级别比主菜单级别低。利用↑、↓可以调整菜单的先后顺序。
制作好的菜单如下图：
马上行动：试动手在新建的窗体中添加MediaPlayer和CommonDialog这两个控件，初步体验这两个控件的用法。试模仿上图所示制作菜单，初步体验菜单的制作方法。
3、设计制作。采用练（学生发现疑难问题）──精讲（有针对性帮助学生突破重难点）──练（理解要领，顺利完成）三个过程段进行。
u
先用一分钟左右简略介绍本程序的制作流程或在学生做的时候投影以下4小点内容，让学生以小组形式试动手制作本程序。时间控制在5至10分钟。
（1）
窗体介面设计，确定本程序用到的控件或对象。
（2）
菜单设计：菜单项目参见上表一。
（3）
代码编写：本程序的代码主要是各菜单单击事件的代码编写，关键是从菜单的功能去引导控件属性的设置和方法的调用。
（4）
程序的调试与运行。
u
教师讲解演示主要的制作流程。尽管在刚才较短的练习过程中会产生很多问题，但经过生生疑、积疑后再讲解、演示本程序制作的主要步骤并有针对性地解决学生刚才制作时存在的疑难，效果更深刻。
u
学生分小组继续完成制作过程，引导学生互帮互助。对于完成较快的小组，可给予拓展任务（见本节第(二)部分，用其他控件设计多媒体程序），引导其进一步思考。或把他们介绍给同学们作为助理教师，帮助有需要的同学完成本任务。
u
以下是本程序的代码。
“文件”菜单中的子菜单“打开”的代码
Private
Sub open_Click()
Dim
MFile As String '定义一个用于传递文件名的变量
CommonDialog1.ShowOpen '弹出"打开"对话框
MFile
= CommonDialog1.FileName
MediaPlayer1.FileName = MFile '将选择好的文件名传递给"MediaPlayer"控件
MediaPlayer1.AutoStart = True '使"MediaPlayer"控件处于自动播放状态
End Sub
“文件”菜单中的子菜单“退出”的代码
Private
Sub exit_Click()
Unload Me
End
End Sub
“查看”菜单中的子菜单“正常”的代码
Private
Sub normal_Click()
MediaPlayer1.DisplaySize=mpDefaultSize, ‘设置MediaPlayer1的大小为原始大小
Form1.Width=MediaPlayer1.Width+120
Form1.Height=MediaPlayer1. Height +800
End Sub
Form1窗体加载的代码
Private
Sub Form_Load()
Form1.Height = 4500
Form1.Width = 4800
MediaPlayer1.Width = Form1.ScaleWidth
MediaPlayer1.Height = Form1.ScaleHeight
CommonDialog1.Filter = "影像文件(*.Avi;*.Mpg;*.Dat)|*.Avi;*MPG;*.DAT"
End Sub
u
开展评价，师生互评作品，教师总结并进行拓展转入下面的课程内容。
（二）利用VB设计多媒体程序的方法
| 
您现在的位置： 算法与程序设计网>> 
第一章:走进编程
