首先你的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.FileName=″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)
i=MMControl.Position－100 ′数值100为后退量,可适当调整
If i＜0 Then
MMControl.From=0
Else
MMControl.From=i
End If
MMControl.Command=″Play″
End Sub
MCI控件还有很多属性,如画面播放位置hWndDisplay属性等,读者可参阅相关资料自行摸索,这里不再介绍。读者还可以通过建立通用对话框来打开文件,以解决VCD文件名不统一或多文件的问题。
调整好窗体Form的标题、图标、颜色等,然后编译成 EXE文件,你就可以在Windows下拥有自己的VCD播放器了。
另外,因电脑性能差异及VCD解码质量的不同,播放画面质量和音质将有所差异。
上一篇： VB的“提问”与“回答”
下一篇： 使用VB建立Web Server一例
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
