用VB设计VCD播放器

1 2 下一页

　　当你在用老牌的XingPlay或是华丽的《超级解霸5.0》的时候,你有没有想过拥有一个你自己编写的软解压播放器呢?其实你只要掌握一点VB的技巧,那么要实现这个愿望就变得很简单了。

　　笔者在初步研究了Windows的SYSTEM.INI后发现，通过VB的多媒体控件MCI.VBX可以打开MPEG压缩文件(如VCD2.0版的.DAT文件)。
　　首先你的Windows系统中SYSTEM.INI文件关于[MCI]中需有MPEGVideo项(一般Windows95和Windows98中都已有此项,通过安装XingPlay或CCDVP95等软件也可增加此项)。
　　其次在VB中建立一个新窗口,将MCI.VBX加入ToolBox中,将MCI控件拖放至窗体Form上,调整其大小,将九个按钮(从左至右为:Prev、Next、Play、Pause、Back、Step、Stop、Record和Eject)中Record按钮Visible属性设为False,其余按钮的Visible属性和Enabled属性设置为True,以上按钮的设置可通过MMControl的属性栏内“自定义”项来设置。
　　假设光驱为E:,VCD碟片文件为E:\MPEGAV\MUSIC01.DAT。
　　源代码如下：
　　Private Sub Form_ Load()
　　MMControl.DeviceType=″MPEGVideo″
　　MMControl.Name=″E:\MPEGAV\MUSIC01.DAT″
　　MMControl.Command=″OPEN″
　　MMControl.Command=″PLAY″
　　End Sub
　　Sub Form_Unload(Cancel As Integer)
　　MMControl.Command=″close″
　　End Sub
　　笔者通过实践发现Step和Back按钮功能不明显,所以对以上两个按钮进行了一些改进。
　　Sub MMControl_ StepClick(Cancel As Integer)
　　j=MMControl.Position＋100　′数值100为前进量,可适当调整
　　If j>MMControl.Length Then
　　MMControl.From=MMControl.Length

上一篇： 在VB中调用CHM帮助的几种方法
下一篇： VB实现抽象类

1 2 下一页

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有