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

用VB 设计VCD播放器

HTML文档下载 WORD文档下载 PDF文档下载
用VB 设计VCD播放器
成 都
傅 能 红

---- 该 程 序 通 过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 播 放 器 了。
c#采用递归非递归两种方式遍历目录下所有文件 使用DataContractJsonSerializer进行JSON序列化的JSONHelper类 宏病毒ToDOLE及专杀工具 如何构建和运行基于cocos2d的HelloWorld程序 C# .net 2.0 以Gmail发送Smtp邮件 ASP.NET优化性能方法之一:禁用调试模式 开源SMTP和POP3邮件服务器 三星:在专利上不会和苹果妥协 不止谷歌,微软也有自己的眼镜计划?! Windows 8商店应用总数突破20000大关 硝烟弥漫:三星起诉苹果最新iPad、iPod侵权 效仿Google Facebook欲整合Instagram用户数据 与苹果全面竞争?传微软明年推Xbox机顶盒 微软Ralph Haupter:WP8即将在中国上市 开发者黄金时代来临 Paul Graham:Y Combinator创始人成长轨迹 我们需要强密码吗? 为了改变?英特尔CEO宣布将于明年5月辞职 传苹果下一代Mac OS中将整合Siri及地图服务 TripAdvisor:使用AWS比服务器托管成本节省50% [MDCC精华]亚马逊AWS布道师Kingsley Wood:灵活IT架构之道 亚马逊诉讼彰显谷歌在公有云领域威慑力十足 AWS全球创业大赛 奖金100000美元 YY:破冰而出,成功上市 Xtreme Labs工程师:Android开发常陷入的五大深坑 Elon Musk:没了乔布斯的苹果干不过谷歌 旁门左道:第一次开发移动游戏就赚到28623美元 移动周报:小聪明赚大钱 游戏SEO如何耍鸡贼? 创翼全国 六城联动——2012移动互联网应用创新大赛开放日 全国六城联动沙龙 爱丽丝+福尔摩斯 Game Insight解谜游戏玩出新花样 Windows Phone 8 SDK大升级:部分功能兼容WP7 信息大图《愤怒的小鸟》发家史 那4M是不是让诺基亚给偷了?! 如何调用ResetPrinter函数设置默认打印机 listview使用的问题 delphi的打包问题 请大家推荐一个短信网关 调查:当你身边响起神圣的国歌时,你会不会不由自主站起来,手放到胸前,跟着节奏一起唱起来?(有感而发) 请问如何调用.chm的帮助文件? 如何调用系统默认打印机的属性! 请教新手问题~~~麻烦哪为大侠给解释解释~谢~ 如何用struts实现阴阳色列表? 怎么用vb建立一个数据库呀?注意,不是一个表,是一个数据库! 如何调用系统默认打印机的属性! 一个很老很过时的数码相机。 郁闷,超级简单题目 初学ASP,请教学习心得 我的机器怎么老死机?? 两级表单动态联接?急,急,急!!!!!????? ---见了鬼了,Jre不好用!!!--- 寻求把中文字符串转换为十六进制的串的ORACLE函数? 电力学院惊魂 一條語句 數據庫日誌就寫滿了 怎样获得系统的字体!急!谢谢了! 谁有用java做的聊天系统程序(当作业)分不够可再给 在CB中如何动态的管理窗体 如何调用系统默认打印机的属性! API动态调用问题(很奇观) 好久没有发帖子了,现在心情奇好,兄弟们来接分! 在CB中如何动态的管理窗体 求C#网络编程书籍下载~ 简单问题,在线等待。可以在加分。 请教一题目! thanks sdany java 中能不能实现一个数字键盘 关于重定位 菜菜问题:让VB画出sin(x)和log(x)的函数图象怎么做?刚学VB的,x可以取任意的值! thanks sdy 模拟鼠标键???? 弱智问题,请原谅 我需要帮助~~~~!!!!! 请教:用LoadImage()载入的光标资源,当光标尺寸大于32*32时,显示不正常? cls 怎么用??? 请问<%=type2(RS("qi_type2"))%> 是什么意思? 招ASP程序员,工作地点杭州. ORACLE9i中的storage怎么不起作用了? 评评<<离散数学及其应用>>.我有些题目不会做呀.比如和费马小定理有关的.呵呵 谁能告诉我程序员考试是每年的什么时候啊?? 声音设备问题? 关于字符串输出 利用VB写SQL语句的问题(实现删除功能) 太岁灭城 晋中鬼事之二 (书雅) 有关上传数据库的问题? 三国时期的赵子龙是怎样死的?原因是什么? Garlic 大蒜有复数吗 第四题,按有效数字运算! 一张长方形纸,宽是16厘米,长是宽的4倍,这个长方形的周长是多少厘米? garlic是什么意思 给假字换个偏旁,组成另外的字填在括号里.天空中那美丽的( )常常引得我驻足观赏 什么叫波纹玻璃 失乐园,英语怎么写 在一次“模拟微重力环境”的实验中,实验人员乘座实验飞艇到达6000m的高空,然后让其由静止下落,下落过程中飞艇所受空气阻力为其重力的0.04倍,实验人员可以在飞艇内进行微重力影响的实验 波纹可以说成是怎么样的 请问“失乐园”的英文是什么? 为了观赏美丽的苍穹,每一个人都应当选择降生 这句话怎么理解有人曾问古希腊思想家阿那克萨哥拉,一个人是否应该来到这个世界.阿那克萨哥拉抬头仰望着夜空,笑着说:“为了观赏美丽的 论证 不想当元帅的士兵不是好士兵 唐伯虎的《桃花庵歌》的全译是什么? 一倾角为30度的斜面放置在粗糙的水平面上,质量m=4kg的物体以a=3m/s^2的加速度沿斜面下滑,而斜面体M保持相对静止,求M于地面的摩擦力大小答案是6倍的根号3额! 如何理解拿破仑的不想当元帅的士兵不是好士兵? 唐寅的桃花庵歌赏析正常赏析+除了表现他超脱避世的方面,还能不能表现出他还是无法摆脱仕途的幻想之类的呢?他人笑我太疯癫,我笑他人看不穿真的是他看透了一切吗?还是他也看不穿呐?请 为什么汽车定位比手机定位快 新三国典韦哪集死的 日全食旁边光环叫什么 诺曼底号遇难记读后感j急 三国典韦怎么死的 日全食时为什么会有光环套住.就是圆的周围为什么会有亮光.圆环套住.按理说 是整个太阳被月亮遮住 应该 都没光的 怎么还有个圆环.就是被遮住的地区都没光的啊.还有太阳被遮住应该会挺 Be early to.还是 be early for 在三国演义里,典韦是第几回死的? 水处理中树脂主要去除什么东西 try to be 三国演义中典韦在第几回死的?那回叫什么? 数学的本质是什么 诺曼底号遇难记读后感五年级水平 三国里典韦怎么死的 什么是数学本质 be early和early有意思和词性上的区别吗be early是短语吗?是固定搭配吗?---------------------------------He is always early for workHe always finish homework early上面两句表述都对吗? 求2010年世界杯主题曲《飘扬的旗帜(Wavin’Flag)》歌词及翻译?1楼,应该不是这个吧,听着不像 数学的本质是自由如何理解? 如何通过实验确定各转录因子的功能? It is clear that hamburgers are the most popular fast food with the high and average income groups之类with 可以用among 代替吗,有什么区别 英语翻译(All)]We patiently waitFor some other day(Fefe Dobson and Esthero)Thats too far away so right now we say[01:53.28](All)When I get olderI will be stronger]They'll call me freedomJust like a wavin flag(And then it goes back x3)Ahhho ahhho a 数学的规律是什么?数学的本质是什么? GROUPS怎么样 求英语达人翻译K'naand的 数学本质数学的本质? 身强力壮怎么造句 wavin flag中文是什么意思 I left school early yesterday ____ the weather got worse in the afternoon【填介词、副词或连词】 与“不想当元帅的士兵不是好士兵”相似的名言 室内设计上 九厘板外凸15mm是什么意思 easier said than done中的said和done为什么要用过去分词 有关 不想当元帅的士兵不是好士兵 的名言警句 简析《西风颂》 我想要一滴水,没想到您给我整个海洋;我想要一片云,没想到您给我整个蓝天;是哪首歌的词? 700字作文从 不想当元帅的士兵不是好士兵 说起 麻烦哪位帮我分析下西风颂第一段的修辞手法呢?. 滋润脊髓神经的液体叫什么? 三国演义赵云是怎么死的? garlic(大蒜)是可数名词还是不可数名词? afternoon是什么意思 三国中赵云是怎么死的?看了“见龙卸甲”发现子龙是战死的,但和书中写的不一样.哪个才对? garlic clove是什么? 天空中那美丽的(),常常引得我驻足观赏给“假”字换个偏旁,组成另外个字····谢谢 王正伟访问巴基斯坦德国法兰克福股市DAX指数29日上涨厄瓜多尔欲向斯诺登提供政治避难粮食主产区财政紧张陷怪圈:产粮越多经英国将发行伊斯兰债券 吸引中东投资者美国1名店员遭劫匪枪击 胸前手机挡下英国将发行伊斯兰债券 吸引中东投资者“今日中国 中国电影周”于曼谷开幕法国巴黎CAC40股指29日上涨英国计划发行2亿英镑伊斯兰债券NBA新赛季大幕正式拉开 各路豪强谁NBA新赛季球星篇:科比状态成疑 魔联合国官方微博发布反战视频 吁挽救叙叙利亚副总理贾米勒被解职“丝绸之路”国际研讨会在索非亚举行联合国对黎巴嫩北部教派冲突深表不安24省区市前三季度城镇居民收入出炉 教科书免费使用作品时代终结 汇编者将美国主持人就歧视性言论道歉土耳其举行阅兵式庆祝建国90周年国际原子能机构与伊朗发表联合声明称对小偷玩命 逃跑坠亡习近平:把政法工作摆到经济社会发展全未来5年高技术服务业营业收入将破20合肥在线巴林孔子学院为政府官员培训汉语百岁抗战老兵走完传奇一生为合肥量身打造人才扎根合肥老小区盼增加居民活动用房冷空气驾到 合肥气温将下降全市幼师缺口超过8000人三里街空气昨最糟“浴场大盗”趁人熟睡下手收了维修费空调迟迟无法维修贵阳北站又增一列动车 9组动车往返贵家长盼中小学校都能开食堂从童养媳到如今五世同堂因参与或纵容“种房” 贵阳181名党艰苦执着 我都在这里 贵大一栋3层小80名首席质量官上任 享受副总待遇对晨报首届网络年货节新增十多个知名厂商兵马俑彩灯将点亮悉尼港为羊年助兴
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘