[推荐]用Visual Basic 6.0进行多媒体编程
用Visual Basic 6.0进行多媒体编程用VB6可以进行多媒体编程吗？当然可以。VB的运行效率虽然低于VC、Delphi，但是
用于多媒体编程仍然是胜任的，尤其VB从5.0开始提供了本地代码编译器，其运行效率已
经突飞猛进，今非昔比。
其实所谓多媒体，其“多”不过是声音、图像、触摸屏等等技术的有机组合而已。
以下简单讲解如何显示图像、播放AVI视频动画等的方法：
1.显示图像
您看到了VB6工具箱上的 PictureBox 和 Image 控件图标了吗？它们都可以用于显
示图像，包括JPEG、BMP、GIF、WMF等多种流行的图像文件格式。
请建立一个窗体，建立一个 PictureBox 控件，将其 Picture 属性设置为预显示的
文件的全称路径名。图像就显示出来了。
为了控制其在运行时刻的变化，一般可以采用如下办法：
(1)改变其 Left、Top 值来移动其位置，达到动画的效果；
(2)通过创建两个 PictureBox 控件，一个可见，一个不可见，并调用其PaintPict
ure 方法来将不可见控件上的图像逐步复制到可见的控件上。采用这种方法可以做到图
片的擦入擦出、百叶窗式的画面切换等效果；
(3)通过对PictureBox 的 DC 值操纵，可以动画调色板，达到淡入淡出的效果。现
在的程序一般不再如此处理，而是将 PictureBox 分割成很小的块块，然后随机将其擦
除或显现来达到淡入淡出的效果；
在实践中，大家一定会发现实现各种漂亮效果的方法。请到时一定要给我来信啦(B
lueSkit@)。
2.播放AVI视频
播放AVI视频可以采用Windows 9x提供的MCI 控件。媒体控制接口 (MCI) 可以用于
播放或录制音频、视频、波形文件等多种媒体信息。从概念上说，这种控件就是一组按
钮，它被用来向诸如声卡、MIDI 序列发生器、CD-ROM 驱动器、视频 CD 播放器和视频
磁带记录器及播放器等设备发出 MCI 命令。
使用 MCI 控件记录音频信号之前，应打开一个新的文件。这样就可以保证记录声音
的数据文件格式与系统记录格式完全兼容。在关闭 MCI 设备之前，还应该发出 MCI Sa
ve 命令，把记录的数据保存到文件中去。MCI 控件允许通过多种方法编程： 在运行时
，控件是否可见；可以增加或完全重新定义控件中按钮的功能等；也可通过MCI的方法或
属性来控制媒体的播放。
下面的代码演示了播放一个AVI文件的过程。将这些代码放到 Form_Load 过程，应
用程序就可以使用 MCI 控件来对文件 Test.AVI 进行播放。在试运行这个示例之前，首
先应创建一个包含 MCI 控件的窗体。
Private Sub Form_Load ()
Set properties needed by MCI to open.
MMControl1.Notify = FALSE
MMControl1.Wait = TRUE
MMControl1.Shareable = FALSE
MMControl1.DeviceType = “ MMMovie”
MMControl1.FileName = “ C:＼Test.AVI”
'打开 MCI MMMovie 设备。
= “Open”
End Sub
为了正确管理多媒体资源，在退出应用程序之前，必须关闭已经打开的 MCI 设备。
将下面的语句放到 Form_Unload 过程：
Private Sub Form_Unload (Cancel As Integer)
= “Close”
End Sub
通过MCI还可以完成很多很多事情，只要有相应的VCD/DVD驱动程序，您甚至可以在
自己的程序里播放VCD/DVD。
3.字符动画
WinAmp 的版权画面是不是很“眩”？用VB实现非常简单。
首先建立一个窗体，在此窗体上建立一个 Frame 容器控件，根据需要，在此控件上
建立若干个 TextBox或 Label或 Image 控件，输入您的版权信息或其它想表现的文字、
图案。
然后再建立一个 Timer 控件，将Interval 设置为 10，然后在其 Timer 事件中操
纵 Frame 的位置就可以有动画效果了：
Private Sub Timer1_Timer()
Frame1.Top = Frame1.Top - 20
DoEvents
End Sub
不过，你应该加入适当的判断和错误处理语句以免程序表现出火。
