用VB制作多媒体课件的几个要领

摘要：介绍了用VB制作多媒体课件的几个关键性工作，具体为如何使用MMControl控件加载背景音乐和播放视频，如何使用Shockwave Flash控件播放动画，以及如何使用OLE控件来调用各种文档。

关键词：MMControl控件；Shockwave Flash控件；OLE控件

中图分类号：TP314文献标识码：A文章编号：1009-3044(2008)09-11716-03

Several Points of Using VB to Create Multimedia Courseware

ZHANG Shan-lin1, ZHANG Yu-feng1, CHENG Hong-qun2

(1.School of Civil Engineering, Wuhan University, Wuhan 430072, China; 2.School of Economics and Management, Wuhan University, Wuhan 430072, China)

Abstract: Several key works of using VB to create multimedia courseware were introduced in this article, such as how to use MMControl tool to load backgrounds music and videos, how to use Shockwave Flash tool to play cartoons and how to use OLE tool to open various of documents.

Key words: MMControl tool; Shockwave Flash tool; OLE tool

1 引言

随着计算机技术的飞速发展，计算机的应用已经深入到人类社会的各个领域。当前在各级各类教育机构的教学中，利用计算机进行辅助教学已经成为发展的趋势，许多学校在多媒体教学的形式和方法上都有所突破。与传统的教学方法和手段相比，多媒体教学的优点是不言而喻的,但是采用什么样的计算机语言和工具来制作多媒体教学课件却是一个艰难的选择。PowerPoint或许是被用得最为广泛的，但是其形式单一，只能用于简单的教学课件制作。对于一些实践性较强的教学课件来说，如果仅采用PowerPoint来制作课件往往达不到良好的教学效果。但是，如果应用VB整合、管理和调用各种文件来制作多媒体教学课件，则可以取得良好的效果。在VB中不但可以调用PowerPoint文件，而且可以播放影视和动画文件，还可以插入各中形式的文档等。由于VB可以综合处理多种媒体信息，如文本、图形、图像、音频和视频等，使多种信息建立逻辑连接关系，集成为一个系统并具有人机交互性，再加上VB的可视性强，简单易用等特点，所以采用VB制作多媒体教学课件是个不错的选择。下面就VB制作多媒体教学课件的几个要领进行谈论。

2 加载背景音乐和播放视频

对于一个好的多媒体教学课件，背景音乐应该是必不可少的，适当的背景音乐能够给人一种爽心润肺的感觉。同样，在教学过程中适当的视频插放也是不可或缺的，因为很多教学内容单靠文本形式的平铺直叙很难使学习者深刻理解。如果用影视文件来加以演示，使学习者有着身临其境的感觉，这样将收到非常好的教学效果。那么如何在VB中实现这一功能呢？我们可以通过MMControl控件在VB中来实现。

MMControl控件管理媒体控制接口设备上的多媒体文件的录制和播放，用于向声卡、MIDI系列发生器、CD-ROM驱动器及视频CD播放器等设备发出MCI命令[1]。

下面以具体的实例来说明：

2.1 加载背景音乐

音乐文件的格式有多种，我们以mp3格式为类来说明。假设用户当前目录下有名字为yinyue.mp3的音频文件，则利用Visul Basic在窗体中插入背景音乐需要经过如下步骤：

（1）因MMControl控件不在VB的工具箱中，在使用之前要用户自己动手将它添加到VB的工具箱中。添加方法为：工程 部件 在弹出的对话框中选择“控件”选项卡选中Microsoft Multimedia Control6.0选项；

（2）再在VB窗体中添加一个MMControl控件，将其命名为MMControl1，并将MMContro11的Visible属性设置为“False”，将窗体命名为Form1；

（3）编写各触发事件源程序代码并且运行。

源程序代码为：

Private Sub Form1_Load()

MMControl1.FileName = App.Path & "\yinyue.mp3"

mand = "open"

mand = "play"

End Sub

运行后，在窗体加载后即可听到背景音乐，轻松愉悦的感觉便会由此而生。

2.2 播放视频

视频文件的格式也有多种，如avi、rm、mpg等，可以通过视频解霸等工具进行转换[2]。我们以mpg格式为例来进行说明。假设用户当前目录下有名字为shipin.mpg的视频文件，则利用Visul Basic在窗体中播放该影片需要经过如下步骤：

（1）在Visual Basic的窗体中加入一个MMControl多媒体控件、一个PictureBox图片框控件和两个ComandButton命令按钮控件；

（2）设置各个控件的属性，其中窗体命名为Form1，MMControl多媒体控件命名为MMControl1、PictureBox图片框控件命名为Picture1、两个ComandButton命令按钮控件分别命名为Play和Close；

（3）编写各触发事件源程序代码并且运行。

源程序代码为：

Private Sub Play_Click()

MMControl1.Filename = "shipin.mpg"

MMControl1.hWndDisplay = Picture1.hWnd

mand = "open"

mand = "play"

End Sub

Private Sub Close_Click()

mand = "stop"

mand = "close"

End Sub

3 播放动画

动画是用专门工具对原始材料进行修改、编辑和制作而形成的文件。从形式上讲，它是由一系列静态图像的连续播放；动画制作是多媒体课件制作的核心技术之一，在许多多媒体课件中扮演着直观演示、讲述情节等功能。目前，动画文件存在着不同类型的存储格式如GIF格式、FLI/FLC格式、SWF格式及AVI格式等，下面我们以较为常见的swf格式为例进行说明。

假设用户当前目录下有名字为donghua.swf的动画文件。

(1)添加Shockwave Flash控件。Shockwave Flash控件是由Flash开发商提供的一个ActiveX控件，如果用户的系统安装了Flash程序，系统中就会有一个flash.ocx控件文件，这样用户才有可能将添加Shockwave Flash控件添加到VB的工具箱中。添加方法为：工程部件在弹出的对话框中选择“控件”选项卡选中Shockwave Flash选项；

(2)在VB窗体中添加一个Shockwave Flash控件，和两个ComandButton命令按钮部件；

(3)设置各控件的属性，其中窗体命名为Form1，Shockwave Flash控件命名为ShockwaveFlash1，两个ComandButton命令按钮控件分别命名为Play和Stop；

(4)编写各触发事件源程序代码并且运行。

源程序代码为：

Private Sub Play_Click()

ShockwaveFlash1.Movie = App.Path & "\donghua.swf"

ShockwaveFlash1.Play

End Sub

Private Sub Stop_Click()

ShockwaveFlash1.Stop

End Sub

4 调用其它文档

在使用多媒体课件进行教学时往往需要再打开其它形式的文档，比如要查看word文档，如果在硬盘上去找，再打开未免太麻烦，而且费时。如果能在VB窗口中只要点一下某个按钮就能打开相应的文档岂不是方便省事？那么如何实现这一效果呢？我们可以配合OLE控件来实现这一效果。

事实上，无论是PowerPoint文件，还是exe形式的可执行文件，以及其它如word、excel等文件都可以通过OLE控件来实现。无论什么形式的文件，其调用的方法都基本相同，下面以调用PowerPoint文件为例来说明：

假设用户当前目录下有名字为xx.ppt的文件

（1）在窗体中添加OLE控件和一个ComandButton命令按钮；

（2）设置各控件的属性，其中窗体命名为Form1， ComandButton命令按钮命名为open，OLE控件命名为ole1，并将ole1的Visible属性设置为“False”；

（3）编写各触发事件源程序代码并且运行。源程序代码为：

Private Sub open_Click()

XXX = App.Path & "\xx.ppt"

OLE1.SourceDoc = XXX

OLE1.SourceItem = XXX

OLE1.Action = 1

OLE1.Action = 7

End Sub

Action属性设置值1是从文件的内容中创建链接[3]PowerPoint对象。Action 属性设置值7是打开该对象。

程序运行后即可全屏打开PowerPoint幻灯片，按esc键即可关闭PowerPoint文件。其它形式的文件调用方法类同。

其实，我们也可以不采用上述的编程方法，而采用一种更为简洁的方法来调用其它文档。其具体做法是：假设用户当前目录下有名字为xx.ppt的文件。

（1）在窗体中添加一个ComandButton命令按钮和一个OLE控件，在添加OLE控件时会自动弹出一个插入对象的窗口，选中“由文件创建（F）”前的单选框，然后点击弹出窗口中的“浏览（B）”按钮，找到要调用的对象，确定即可。如图1所示：

（2）设置各控件的属性，其中窗体命名为Form1， ComandButton命令按钮命名为open，OLE控件命名为ole1，并将ole1的Visible属性设置为“False”；

（3）编写各触发事件源程序代码并且运行。

源程序代码为：

Private Sub open_Click()

OLE1.Action = 7

End Sub

这样程序代码就变得更为简洁，而其运行效果与前述一样。

5 结束语

本文所阐述的几点只是VB制作多媒体教学课件的一些比较关键性的操作，而VB真正的强大功能还远不止这些。笔者仅希望借此能够起到抛砖引玉的作用，希望能够对VB爱好者以及对需要使用VB制作多媒体课件的人员起到借鉴作用。

参考文献：

[1] 黄淼云，张学忠，王福成．Visual Basic控件应用编程实例教程[M]. 北京:北京希望电子出版社，2002.356-356．

[2] 网冠科技. Visual Basic 6.0程序开发触类旁通百例[M]. 北京:机械工业出版社，2005．109-109．

[3] 傅明华，陶峰. Visual Basic多媒体演示环境中调用PowerPoint的方法[J]. 中国教育导刊,2007,13.67-67.