用设计播放器

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

笔者在初步研究了Windows的I后发现，通过VB的多媒体控件X可以打开MPEG压缩文件(如VCD2.0版的.DAT文件)。

首先你的Windows系统中I文件关于[MCI]中需有MPEGVideo项(一般Windows95和Windows98中都已有此项,通过安装XingPlay或CCDVP95等软件也可增加此项)。

其次在VB中建立一个新窗口,将X加入ToolBox中,将MCI控件拖放至窗体Form上,调整其大小,将九个按钮(从左至右为:Prev、Next、Play、Pause、Back、Step、Stop、Record和Eject)中Record按钮Visible属性设为False,其余按钮的Visible属性和Enabled属性设置为True,以上按钮的设置可通过MMControl的属性栏内“自定义”项来设置。

假设光驱为E:,VCD碟片文件为E:\\MPEGAV\\T。

源代码如下：

Private Sub Form_ Load()

viceType=″MPEGVideo″

=″E:\\MPEGAV\\T″

mand=″OPEN″

mand=″PLAY″

End Sub

Sub Form_Unload(Cancel As Integer)

mand=″close″

End Sub

笔者通过实践发现Step和Back按钮功能不明显,所以对以上两个按钮进行了一些改进。

Sub MMControl_ StepClick(Cancel As Integer)

j=sition＋100　′数值100为前进量,可适当调整

If ngth Then

om=ngth

Else

om=j

End If

mand=″Play″

End Sub

Sub MMControl_ BackClick(Cancel As Integer)

i=sition－100　′数值100为后退量,可适当调整

If i0 Then

om=0

Else

突破常规络营销方法 om=i

End If

mand=″Play″

End Sub

MCI控件还有很多属性,如画面播放位置hWndDisplay属性等,读者可参阅相关资料自行摸索,这里不再介绍。读者还可以通过建立通用对话框来打开文件,以解决VCD文件名不统一或多文件的问题。

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

另外,因电脑性能差异及VCD解码质量的不同,播放画面质量和音质将有所差异。

早晨血压高怎么办
兰州治疗阴道炎哪家好
南京治白癜风医院