用VB设计VCD播放器

• 　　当你在用老牌的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 
  进入讨论组讨论。

  
  　　Else 
  　　MMControl.From=j 
  　　End If 
  　　MMControl.Command=″Play″ 
  　　End Sub 
  　　Sub MMControl_ BackClick(Cancel As Integer) 
  
• [1] [2] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• 用VB设计VCD播放器 相关文章：
• ·用VB设计VCD播放器
• ·用VB设计VCD播放器的方法与技巧
• 用VB设计VCD播放器 相关软件

上一篇:让你的VB程序支持多国语言的切换

下一篇:用VB6.0设计简易赛车游戏

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐