用VB进行多媒体程序设计初步

VB(Visual Basic)具有很强的多媒体处理控制功能，VB的多媒体控制MCI(Media control interface)包括一套控制音频和视频设备但具有与设备无关的命令，用它来进行多媒体设计是很方便的。比如：你也许想拥有一个自己编写的CD播放器，那么利用VB的MCI只需写几行代码就可生成一个功能比较齐全的CD播放器。下面简单谈谈用VB的MCI进行多媒体设计的初步知识并给出一个非常简单的CD播放器的例子。

在使用MCI之前必须安装好多媒体设备如声卡、CD—ROM等以及这些设备的驱动程序，否则MCI将不听指挥。

一、MCI控制的安装

MCI控制在VB不同版本中的安装方法是不一样的。在VB 3.0专业版中，MCI控制文件为MCI.VBX，在VB 4.0中MCI控制文件为MCI16.OCX(16位)、MCI32.OCX(32位)。一般情况下MCI控制在启动VB之后并没有加入到工具箱中(TOOLBOX)，需要自己动手安装它。

1.VB 3.0中MCI的安装。

打开VB的FILE菜单，选择Add File项，从Windows\system目录下找到MCI.VBX，选择OK即可，这时你将发现TOOLBOX最后又多了一个工具，这就是MCI。如果你经常要用它，建议在VB目录下找到Autoload.mak文件，用字处理软件打开它，把MCI.VBX添加在其中，这样每次启动VB时就将其自动调入。

2.VB 4.0中MCI的安装。

VB 4.0支持16位和32位两种系统，在WINDOWS 3.1下只能使用16位系统。MCI不能和VB 3.0中一样用Add File调入，如果你这样做将会发现系统提示错误，需在Autoload.mak文件中调入。笔者打开Autoload.mak文件后发现调用格式为：OBJECT={序列号}＃1.0＃0;文件名，不知道MCI16.OCX的序列号是无法安装的。幸好在VB目录下的子目录SAMPLE下有一个MCI的子目录，进入它可以看到有一个MCITEST.MAK文件，打开它可以看到有：Object={C1A8AF28－1257－101B－8FB0－0020AF039CA3}＃1.0＃0;MCI32.OCX一行（也许您的序列号不一定和这相同），将这一行复制到Autoload.mak文件中即可。由于本人使用的是WINDOWS 3.1，在安装VB 4.0时32位系统无法装入，硬盘中根本没有MCI32.OCX文件，VB何以将MCI32.OCX调入呢？经试验发现VB以序列号选择文件，可能上述序列号是MCI16.OCX文件的序列号，进一步试验发现即使将序列号后面的MCI32.OCX去掉也可调入，这进一步说明了VB 4.0中一个OCX文件有一个对应的序列号，因此绝对不能改变序列号，否则将无法正确调入所需的文件。MCI安装完毕，用鼠标双击工具箱的MCI图标，如果在Form中出现9个熟悉的按扭，那么安装就成功了。

二、MCI的属性和事件

MCI提供许多关于MCI控制方面的属性和事件。比较常用的属性有：

• Button visible 决定该按钮在MCI控制中是否可见。
• Command 要执行的MCI命令，如Open Close Play Stop Eject等。
• Device Type 要打开的MCI设备类型，如动画播放设备、MIDI序列发生器、激光视盘机、WAV文件播放器、录相机等。
• Filename 使用Open命令打开或Save命令保存的文件名。
• Length 确定一个文件或CD唱片的长度。
• Track 指定特定的轨道，供Tracklength和Trackposition使用。
• Tracks 当前MCI设备的轨道数。
• Tracklength 在当前时间格式下，传回Track所指轨道的时间长度。
• Trackposition 在当前时间格式下，传回Track所指轨道的起始位置。
• Visible 决定在运行时刻多媒体MCI控制是否可见。

比较常用的事件有：

• Buttonclick 当用户在多媒体MCI控制的按钮上按下或释放鼠标时产生该事件，每一个Buttonclick事件缺省执行一个MCI命令。
• Buttoncompleted 当多媒体MCI控制按钮激活的MCI命令完成后发送。
• Statusupdate 这个事件可监测目前多媒体设备的状态信息，比如用滚动条来表示当前轨道的位置。
  详细的属性和事件的用法请参看控制帮助文件。

三、CD播放器的例子

对初学者来说，能利用入门知识编写一个的成功小程序是很鼓舞人心的，下面我们来编写一个非常简单的例子：迷你CD播放器。
在MCI调入Toolbox之后，双击MCI工具，将会在Form中出现9个按钮，用鼠标移动这些按钮至合适的位置，然后双击Form窗体，把下面的代码加入到事件中：
Sub Form_Load()
MMControl1.DeviceType = “CDaudio" 'MCI设备类型为CD唱片
MMControl1.Command = “open" '打开设备
End Sub
Sub Form_Unload(Cancel As Integer)
MMControl1.Command = “close" '退出时关闭MCI设备
End Sub

保存文件，在CD驱动器中放入一张CD唱片，然后运行，你将发现九个按钮中Prev、Next、Play、Eject四个按钮变黑（有效状态），点一下Play按钮，音乐出来了！若驱动器中无CD盘则所有按钮都处于无效状态。这样一个简易CD播放器就完成了，它具有四种功能，但自己动手写的代码只有上面加注释的三行。这个CD播放器有点太简单了，下面就看你的了，你可以加入一些文字信息如开发时间、作者、版权等，再进一步学习MCI可加入其他功能如显示播放时间、曲目等。

巧用VB设计图像切换效果

PaintPicture是自VB4以后新提供的图形图像处理方法，它的基本功能是图像块传输，在以前的VB版本中要产生块传输效果，需采用WindowsGDI中的块传输函数BitBltAPI调用。PaintPicture正是VB中用来代替BitBltAPI调用的简单而方便的方法。它能快速地将两幅位图进行合并；能将位图的全部或某一部分快速剪切并粘贴到其它地方；并能将位图自动延伸或压缩以适应新的环境；能在屏幕上不同位置之间、屏幕与内存之间传递位图；它采用32位三元光栅操作代码（ROP），在源位图、选定的刷子位图和目标位图之间进行颜色组合，生成目标位图中的最终颜色，它将13个常用的ROPR操作以内部常量形式给出，不需任何声明，不用理会其32位参数值。

基本格式：

• Object．PaintPicturepicture，x1，y1，width1，height1，x2，y2，Width2，height2，opcode
  其中Object可以为窗体或PictureBox控件Picture可以为BMP、Dib、Ico、Wmf、Emf等格式的图片
• X1、Y1、Width1、height1为目标位图的参数
• X2、Y2、Width2、height2为源位图的参数
• opcode表示源图与目标位图（或刷子位图）的组合关系，该参数与BitBlt中dwRop参数含义相同。
• VB4为opcode定义了13个内部常量：
• vbDstInvert：目标位图取反
• vbSrcCopy：源位图直接覆盖目标位图
• vbSrcAnd：源位图与目标位图进行“与”操作
• bSrcInvert：源位图与目标位图进行“异或”操作
• vbSrcPaint：源位图与目标位图进行“或”操作
• vbNotSrcCopy：源位图取反
• vbSrcErase：目标位图取反，再与源位图进行“与”操作
• vbNotSrcErase：源位图与目标位图进行“或非”操作

vbMergePaint：源位图取反，再与目标位图进行“或”操作

此外，与刷子位图有关的常量是vbMergeCopy、vbPatCopy、vbPatInvert和vbPatPaint，这13个内部常量可以在菜单View／ObjectBrowser／VB－VisualBasicobjectsandprocedures／RasterOpConstants中列出。

巧用PainPicture方法，结合控件属性，可以方便地产生许多常见的图像切换效果，如我们在多媒体作品及电视中常见的图像旋转引入、翻转、飞入、滑入、弹出、淡入淡出、隐现等动画效果。

举例：图像滑入（Wipe）效果的实现

在滑入效果中，新图像慢慢逐渐覆盖旧图像，就象在墙上展于一幅卷成筒状的画。

1．缺省窗体Form1
2．Form1上置PictureBox1、PictureBox2两大小相同的图片控件及Timer时钟控件PictureBox1中安装源图，在PictureBox2中展开PictureBox1中的图像
3．编程
Private Sub FormμLoad（）
Picture1．ScaleModeΚPixel
Picture2．ScaleModeΚPixe1
hΚ0
tΚ2
EndSUb
PrivateSubTimerμTimer（）
IfhΙΚPicture1．ScaleHeightThen
Picture2．PaintPicturePicture1．Picture，0，h，Picture2．ScaleWidth，t，0，h，Picture1．ScaleWid th，t，vbSrcCopy
hΚh＋t
EndIf
EndSub

Web动画图像分解在VB动画设计中的应用

VB动画设计

动画的制作原理很简单：首先绘制几幅相近但又有细微变化的图片，然后每隔一段很短的时间就依次显示其中一幅，由于人眼视觉暂留，就能看到连贯的动画效果。 使用VB进行动画设计非常方便，因为其工具箱中有图像、图片、时钟控件。只要获得了一幅幅动画单幅图像文件，把它们放入图像控制数组中去，便可用时钟控件的控制属性Interval来控制每幅图片的显示间隔，把最终动画显示的位置确定好后，按时间间隔依次从图像控制数组中取出一幅图显示。如此交替反复显示，即可产生动画效果，编程实现比较简单。

VB动画设计所能接收的单幅图片文件的格式有四种，即*.Bmp、*.Ico、*.Wmf和*.Dib。其中*.Bmp文件的来源最广，不但可以使用Windows环境下的各种绘图软件来绘制(但费时费力，且不是每个人都有绘画的天才)，也可以使用Windows所提供的现成的位图文件，或者用彩色扫描仪扫入等等。在此，笔者所感兴趣的则是从Internet上Web站点网页上下载自己喜爱的动画图像文件，再经过图形软件分解、处理成一幅幅*.Bmp图片文件，它们会给软件的人机界面带来全新的感受。

Web动画图像分解方法

从Web网页上下载静态图像文件比较简单，下载后需要进行分解。 动画图像文件的分解是动画设计的逆过程，即把一个动画效果的图像文件分解形成它的多幅图片文件。可使用GIF Construction Set软件打开(此软件可在许多服务器上下载)要分解的图像文件，该软件即可将动画自动分解为多幅组成动画的单幅图画。 使用上述软件分解后，首先看看是由几幅图画组成的动画，如果有N幅图画，就把动画文件拷贝N份。 然后，逐个打开拷贝文件对每个文件进行处理，处理过程中只需在第一个文件中保留静止的图像，在其它文件中只保留动画图像。 最后，使用具有图形转换功能的图形处理软件如Phtoshop，就可把得到的N个*.Gif图像文件都转换成*.Bmp文件的格式。Web动画分解过程概括描述如下： Web动画下载→Web动画分解(GIF Construction Set)→Web动画格式转换(Phtoshop等)。

一个实例

这是一个在数据库查询窗体上设计的眼睛转动查看的动画，此动画的每个单幅图画就是从Web网页上下载分解得到的。 动画设计实现步骤如下： 首先，用上述方法把Web网页上转眼睛动画下载保存、分解、格式转换成二幅画Eyesl.Bmp和Eyes2.Bmp(此动画简单，只由二幅画组成)。 其次，将Eyes1.Bmp和Eyes2.Bmp放入图像控制数组中。　窗体构造简单表示如下：

窗体属性表如下：
程序代码如下：
在窗体的General中声明：
Dim Rotateflag as Integer '交替显示标志
Dim Currenteyes as Integer '当前显示第几幅画

窗体装载初始化：
Sub Form_Load() Rotateflag=1 '进入显示(时钟计数开始)
Currenteyes=0 '第一幅画定位
End Sub
交替显示子程序(时钟控制显示间隔，本例为250ms)：
Sub Tmrtimer_Timer()
If Rotateflag=1 Then '交替显示开始　
SImgeyes.Picture=Imgeyes(Currenteyes).Picture '开始显示第一幅画
Currenteyes=Currenteyes＋1 '250ms后显示下一幅
If Currenteyes=2 Then Currenteyes=0 '如果已显示了两幅，则再从第一幅显示
End If
End If
End Sub '结束

利用Web网页动画图像分解成的多个单幅图画，不但可以为VB动画设计提供方便，也可用于VC等动画编程。目前，Internet的范围日益扩大，使Web与软件编程联系起来，无疑提高了应用软件的制作效率和质量。