用VB 设 计VCD 播 放 器

2008-04-09 04:39:44来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

 本人在电脑报上发现一个非常实用的VB小程序经过一定的修改后,不敢独享,奉献给诸位。

  该程序通过VB的多媒体控件MCI32.OCX可以打开MPEG 压缩文件(如VCD2.0版的.DAT文件)来实现一个VCD播放器的设计

  首先必须确保在你的Windows系统中SYSTEM.INI 文件关于[MCI]中需有MPEGVideo项(一般Windows95和Windows98中均有此项)。

  其次在VB中建立一个新窗口,加入多媒体部件Microsoft MultimediaControl5.0(位于C:\Windows\System\MCI32.OCX),以及对话框部件Microsoft CommonDialogControl5.0(位于C:\Windows\System\COMMONDLG32.OCX),将MCI控件拖放至窗体Form上,调整其大小,并将窗体的大小也调整为与其同样大小;将其九个按钮(从左至右为:Prev、Next、Play、Pause、Back、Step、Stop、Record和Eject)中的Record按钮的Visible 属性设为False,其余按钮中的Visible属性和Enabled属性设为True,以上按钮的设置可通过MMControl的属性栏内"自定义"项来设置。对话框控件的DefaultExt属性设为.DAT,DialogTitle属性设为"打开多媒体文件",Filter属性设为"*.DAT, *.WAV",InitDir属性设为"G:\MPEGAV"(假设光驱盘符为G)。

  源代码如下:

OptionExplicit

PrivateSubForm_Load()
DimResponseAsInteger
MMControl1.DeviceType="MPEGVideo"
CommonDialog1.ShowOpen
通过对话框选择不同的VCD文件
MMControl1.filename=CommonDialog1.filename
选定要播放的文件
MMControl1.Command="Open"
MMControl1.Command="Play"

EndSub

PrivateSubForm_Unload(CancelAsInteger)
MMControl1.Command="close"
EndSub

PrivateSubMMControl1_BackClick(CancelAsInteger)
对Back按钮的功能改进
DimiAsInteger
i=MMControl1.Position-100
数值100为后退量,可适当调整
Ifi$#@60;0Then
MMControl1.From=0
Else
MMControl1.From=i
EndIf
MMControl1.Command="Play"

EndSub

PrivateSubMMControl1_StepClick(CancelAsInteger)
对Step按钮的功能改进
DimjAsInteger
j=MMControl1.Position 100
数值100为前进量,可适当调整
Ifj$#@62;MMControl1.LengthThen
MMControl1.From=MMControl1.Length
Else
MMControl1.From=j
EndIf
MMControl1.Command="Play"
EndSub

  MCI控件 泻芏嗍粜?,如画面播放位置hWndDisplay 属性等等,大家可参阅相关资料自行摸索。

  调整好窗体的标题、图标、颜色等,然后编译成.EXE 文件,你就可以在Windows下拥有自己的VCD播放器了。

标签:

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

上一篇:如何通过VB获取网卡地址

下一篇:VB编程开发常见技巧