该程序通过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播放器了。 [VB.NET程序]如 何 用 API 播 放 CD [VB.NET程序]调 用API 函 数 设 计ABOUT 窗 口[Delphi程序]一 个 实 用 的Delphi 屏 幕 拷 贝 程 序 的 设 [Delphi程序]用DELPHI 设 计 屏 幕 保 护 程 序[Delphi程序]用Delphi 4.0 设 计 新 型 界 面 [VB.NET程序]用VB 5.0实现多画面播放功能[VB.NET程序]用VB 5.0设计屏幕保护程序
首先必须确保在你的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播放器了。 [VB.NET程序]如 何 用 API 播 放 CD [VB.NET程序]调 用API 函 数 设 计ABOUT 窗 口[Delphi程序]一 个 实 用 的Delphi 屏 幕 拷 贝 程 序 的 设 [Delphi程序]用DELPHI 设 计 屏 幕 保 护 程 序[Delphi程序]用Delphi 4.0 设 计 新 型 界 面 [VB.NET程序]用VB 5.0实现多画面播放功能[VB.NET程序]用VB 5.0设计屏幕保护程序
其次在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播放器了。 [VB.NET程序]如 何 用 API 播 放 CD [VB.NET程序]调 用API 函 数 设 计ABOUT 窗 口[Delphi程序]一 个 实 用 的Delphi 屏 幕 拷 贝 程 序 的 设 [Delphi程序]用DELPHI 设 计 屏 幕 保 护 程 序[Delphi程序]用Delphi 4.0 设 计 新 型 界 面 [VB.NET程序]用VB 5.0实现多画面播放功能[VB.NET程序]用VB 5.0设计屏幕保护程序
源代码如下: 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播放器了。 [VB.NET程序]如 何 用 API 播 放 CD [VB.NET程序]调 用API 函 数 设 计ABOUT 窗 口[Delphi程序]一 个 实 用 的Delphi 屏 幕 拷 贝 程 序 的 设 [Delphi程序]用DELPHI 设 计 屏 幕 保 护 程 序[Delphi程序]用Delphi 4.0 设 计 新 型 界 面 [VB.NET程序]用VB 5.0实现多画面播放功能[VB.NET程序]用VB 5.0设计屏幕保护程序
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播放器了。
调整好窗体的标题、图标、颜色等,然后编译成.EXE 文件,你就可以在Windows下拥有自己的VCD播放器了。
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18