用VB设计VCD播放器的方法与技巧

考试编辑:经过对Windows系统的初步学习。INI，发现MPEG压缩文件(如VCD 2.0版。DAT文件)可以通过多媒体控件MCI打开。VB的VBX。

首先，制度。您的Windows系统中的INI文件需要有[MCI]中的MPEGVideo项(一般Windows95和Windows98中已经有此项，安装XingPlay或CCDVP95等软件即可添加)。

其次，在VB中创建新窗口，添加MCI。VBX到工具箱，将MCI控件拖放到窗体上，调整其大小，并将九个按钮(从左到右:上一个、下一个、播放、暂停、后退、前进、停止、录制和弹出)中的录制按钮的Visible属性设置为False。其他按钮的Visible属性和Enabled属性设置为True，以上按钮的设置可以通过MMControl的属性列中的“自定义”项进行设置。

假设光驱为E:，VCD光盘文件为E: \ mpegav \ music01.dat。

源代码如下:

私有子窗体_ Load()

MMControl。device type = " mpeg video "

MMControl。FileName = " E:\ MPE gav \ music 01。DAT "

MMControl。命令=“打开”

MMControl。命令=″播放″

末端接头

子窗体_卸载(取消为整数)

MMControl。命令=“关闭”

末端接头

笔者通过实践发现，前进和后退按钮的作用并不明显，于是对上述两个按钮进行了一些改进。

Sub MMControl_ StepClick(取消为整数)

J = mmcontrol。头寸+100’值100为远期金额，可适当调整。

如果j>MMControl。那么长度

MMControl。From=MMControl。长度

其他

MMControl。From=j

如果…就会结束

MMControl。命令=“播放”

末端接头

Sub MMControl_ BackClick(取消为整数)

I = mmcontrol。位置-100英尺。值100是后退量，可以适当调整。

如果i<0，则

MMControl。From=0

其他

MMControl。From=i

如果…就会结束

MMControl。命令=“播放”

末端接头

MCI控件也有很多属性，比如图片播放位置的hWndDisplay属性等。读者可以参考相关资料自行探索，这里就不介绍了。读者还可以通过建立通用对话框打开文件，解决VCD中文件名不一致或多个文件的问题。

调整标题、图标、颜色等。窗体，然后将其编译成一个EXE文件。你可以在Windows下拥有自己的VCD播放器。

另外，由于电脑性能和VCD解码质量的不同，播放画面质量和音质也会有所不同。