说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB用 VB 设 计 VCD 播 放 器

HTML文档下载 WORD文档下载 PDF文档下载
VB用 VB 设 计 VCD 播 放 器


成 都 傅能红
   本人在电脑报上发现一个非常实用的 VB 小程序经过一定的修改后, 不敢独享, 奉献给诸位。
  该程序通过 VB 的多媒体控件 MCI32.OCX 可以打开MPEG 压缩文件( 如VCD2.0 版的.DAT 文件) 来实现一个VCD 播放器的设计
  首先必须确保在你的 Windows 系统中 SYSTEM.INI 文件关于 [MCI] 中需有 MPEGVideo 项(一般 Windows 95 和 Windows 98 中均有此项)。
  其次在 VB 中建立一个新窗口, 加入多媒体部件 Microsoft Multimedia Control 5.0(位于 C:\Windows\System\MCI32.OCX), 以及对话框部件 Microsoft Common Dialog Control 5.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)。

  源代码如下:

Option Explicit

Private Sub Form_Load()
Dim Response As Integer
MMControl1.DeviceType = "MPEGVideo"
CommonDialog1.ShowOpen 
'通过对话框选择不同的VCD文件
MMControl1.filename = CommonDialog1.filename
  '选定要播放的文件
MMControl1.Command = "Open"
MMControl1.Command = "Play"
End Sub

Private Sub Form_Unload(Cancel As Integer)
MMControl1.Command = "close"
End Sub

Private Sub MMControl1_BackClick(Cancel As Integer)
'对Back按钮的功能改进
Dim i As Integer
i = MMControl1.Position - 100
'数值100为后退量,可适当调整
If i < 0 Then
  MMControl1.From="0"
Else
  MMControl1.From="i"
End If
MMControl1.Command="Play"
End Sub

Private Sub MMControl1_StepClick(Cancel As Integer)
'对Step按钮的功能改进
Dim j As Integer
j="MMControl1.Position" + 100 '数值100为前进量,可适当调整
If j> MMControl1.Length Then
  MMControl1.From = MMControl1.Length
Else
  MMControl1.From = j
End If
MMControl1.Command = "Play"
End Sub

  MCI 控件还有很多属性, 如画面播放位置 hWndDisplay 属性等等, 大家可参阅相关资料自行摸索。
  调整好窗体的标题、图标、颜色等, 然后编译成 .EXE 文件, 你就可以在 Windows 下拥有自己的 VCD 播放器了。

怎样读出MEMO控件的当前值-Delphi资料 怎样使用Delphi 5中的TExcelApplication操纵Excel 97/2000 怎样在TDataset中汉英混用-Delphi资料 制作可移动的窗体的MovePanel控件-Delphi资料 制作可移动的分割窗体-Delphi资料 制作用于日期时间型字段的DELPHI数据感知控件 制作主窗口显示前的版权窗口-Delphi资料 状态条插入可视控件-Delphi资料 做动态显示的控件-Delphi资料 做一个OpenGL控件-Delphi资料 Api函数列表——与打印相关-Delphi资料 Delphi 5快速创建控制面板程序 Delphi 编写Windows NT服务 Delphi 的 分 发 工 具 ─ ─InstallShield Delphi 关于系统编程中的技巧 Delphi3如何调用Excel Delphi5.0中的函数调用模式 用Delphi 编 程 时 如 何 利 用 线 程 Delphi的8个技巧 delphi函数参考手册 DELPHI键盘常用快捷键汇总(DEFAULT 和CLASSIC) Delphi实现自动切换输入法 Delphi使用汇编 Delphi系 统 提 示 信 息 的 汉 化 DELPHI下的多线程程序设计 Delphi下汉字输入法的编程及使用 在Delphi与C++之间实现函数与对象共享 DELPHI中处理时间 Delphi中的INI文件编程 DELPHI中的消息处理机制 Delphi中对目录拷贝、删除和搬移的操作 高手请指教->多个Form间怎么互通消息? 菜问题....D3D的 谁知道怎么做oicq,分全部归他。 各位兄台:如何激活一个窗口! 我发送Microsoft.XMLHTTP怎样获得验证??? 高分相送:有没有能察看一个dll文件中包含哪些函数的工具??????? help!!!! 怎样发送Microsoft.XMLHTTP获得验证???????? 请问,ASP中,能使用类似VB中的“On Error GoTo XXXX”这样的语句吗? foxpro怎样倒入sql server? 我现在有foxpro的dbf文件?应该怎样做? 多谢 mediaplayer的问题。 告诉我tostring 函数什么用途我们感到阿!谢谢了一个初学者! 请问VB6如何才能认到access2000的数据库文件? 关于对象序列化问题 怎样让返回值为自定义结构? 怎么在对话框上面话线? 请解释一下跃点数 小问题一个,但是需要高手................. 我想把公司的网站改放到公司,该怎么办? ——如需要还有很多分送 请帮忙,我自己觉得问题很难(特急)!!!!!!!!!!!!!!!!!!!! 明天我哥结婚,我很开心啊!!! 我想把公司的网站改放到公司,该怎么办? ——如需要还有很多分送 关于存储过程和触发器的问题?(高分求助) WIN2000机器上ADSL,另一台linux下如何做ADSL的代理让局域网中机器上网! 为什么新生成一个session对象后,jsp page中的scope=session的bean会不正常? ★★oracle中ora-04031错误 请问:在安装MSSQL2000 时(因为公司的电脑是对等网的原因)我装完后出现以下错误: 我应该去东软吗? 请您帮我诊断一下! 如何共享已打开的设备 rs.open sql,conn,3,2参数含义? 我应该去东软吗?? 求救~~~~安装完WINXP,进入系统前会出现错误窗 怎么现在没法用search了? 一个菜鸟的问题,关于事件的加载 求救~~~安装完WINXP,进入系统前会出现错误窗 关于速度,效率,VB IIS ASP COM高手请进 我用extracticon将图标从exe文件中提取出来了,请问高手们,如何保存为ICO文件。 急急急,如何解决多窗口关联及激活问题!高分相送 请教一下,如何刷新ie浏览器,我用postmessage模拟按键F5,没成功,谢谢 怎么样把多个程序打包到一个文件中,然后怎么样释放出来!高分求答案(分两次给100分)! 为什么计算字段不能排序 我是新手,高手教教我吧!!! 如何激活oracle8.16的监听??? Domino Administrator 中的“配置”->“消息处理”->“网络域” C#究竟是什么东东?象C++还是象JAVA? 求dxdbtreeview 1.2 for d5 有人知道天津英业达吗? vb6如何结合DirectX编程? 怎樣才能把數據寫入BIOS中的DMI里去? 皇后 皇太后 太后 太皇太后区别?或者说皇帝分别给她们叫什么的? 快乐的一天(300字) 对一件小事的感受 作文“说真话,表达自己真实的感情.”写自己熟悉的生化,虽一件小事,融进自己的感情活看法,认真、具体宾有顺序的写下去,就是一篇好习作.在我的身边每天都发生着许许 皇上的母亲称“太后”,皇上的祖母称“太皇太后”,那太皇太后的母亲称什么啊? 哪个皇帝的女人最多? 一件小事体现父爱的作文今天一定要写完! 感想作文六百字以上 中国历史哪个皇帝干过的女人最多?连宫内带宫外的. ,汝为一位受宠的长公主,一日,边境某族可汗来求亲,皇上之女年幼,欲派汝去和亲,汝不愿,汝该如何说服皇上? 我要三篇(每篇至少150字)爱牙护齿日记!急(明天之前给我答复,明天之前一定要! 读后感作文? 中国历史上最迷 皇帝的女人北齐高纬宠冯小怜,北齐亡后,冯小怜嫁给了北周的一个五十多的老王爷,老王爷一生简朴,曾说,人不要贪财贪色,要修养自己.可收了冯小怜判若两人.冯小怜要算一个 古代怎么称呼日本 爱牙日的由来合爱牙日要干什么?不要太长 也别太短 读日寇侵略中国的文章有感最好是写日寇侵略沙家浜有感其他的嘛,也可以 请问日本古代怎样的女性才可以称为"姬"?是不是公主的意思?例如人称"战国三姐妹"的茶茶、阿初、阿江与,在婚前都被称作"姬样",但是她们仅仅是近江北部大名浅井长政的女儿,就算把她们看 爱牙日的起源 历史上有哪些皇帝只娶了一个女人? 日本在古代的称谓是? 皇上怎么称呼皇太后的亲姐姐 跟牙有关的作文 谁知道平安夜的英语怎么说? 想问问皇帝的奶奶是不是太皇太后啊?有几个问题:1,那皇帝怎么称呼她?皇奶奶?好像不是.2,皇帝的妃子怎么称呼她?3,她有没有权利命令皇帝做事情? 中华儿女报效祖国的文章的读后感~ 古代的时候,公主说怎么称呼自己?皇后的女儿,还有:公主说“我要去吃饭了”、“我要去睡觉了”怎么说要练成句子的. 《建设幸福的中国》读后感作文评语 关于中华儿女报效祖国的文章读后感 爱牙护齿日记 作文:《我是中国人》读后感 写中华儿女报效祖国的文章或书籍的读后感 写父爱的作文写一篇关于父爱的作文一定要是新的 中国古名著作文读后感600字以内,但不要太短.急! 求关于父爱、母爱和友爱的作文要600多字``不能太多``谢谢各位 父爱的作文怎么写 作文:写一件体现 “母爱”或“父爱” 的事这个时候我刚从医院回来,我还在伤心流眼泪,我的孩子摔了,我非常的心疼,他一周岁,才出了八颗牙,可就在刚才,一个不小心,太自从车里摔倒了地上, 作文快乐的一天600字 怎么写父爱的作文 体现父爱母爱的事的作文yao xie ju ji de shi要写具体的事情, 怎样保护牙齿我早晚都刷牙...可是现在还有5个蛀牙. 爱是什么 写父爱的作文 关于父爱或母爱的作文,专门写一件事 作文初三随想600字 电影观后感作文 关于爱的作文,通过一件事,写父爱或母爱 成长随想的作文.600字左右 电影《舟舟》观后感作文继续电影“《舟舟》观后感”的作文啊,600字左右速度 牙齿英文怎么说 中华经典诵读 读后感、体验、和感悟等……急 建国大业电影观后感作文 一段关于保护牙齿的英语作文,题目为“How to keep our teeth healthy".短文不少于50词. 以“读一本好书,谈人生感悟”为主题,写1000字读后感 男生贾里新传(电影)观后感作文要联系生活实际 作文快乐的一天300字 描写牙齿的作文不是故事,是牙齿写牙齿有什么用,不是故事啊,级也不是爱护牙齿的作文,是描述牙齿、 皇帝的妈叫皇太后,他爸叫太上皇,他奶奶叫太皇太后,那他爷爷叫什么呀? 三年级作文“快乐的一天”300字左右 作文:听《长城随想》有感 600字以上!你们自己去听,我听不懂。注意是“曲”《长城随想》听后感作文!!! 护齿作文怎么写,明天接该交了 快乐的一天作文300字 谁有关于牙齿的文章?(注:有关蛀牙和保护牙齿的都可以,不过不要太长.)
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn