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

用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 播 放 器 了。
亚特兰大峰会精彩看点:软件吞噬世界,OpenStack是变革核心 数据中心基础设施是大数据战略成败的关键 实时大数据分析:网络分析的一种新方法 最新消息:iPhone 6将采用更大、更清晰的1704x960分辨率屏幕 吴毅挺:OpenStack是开源IaaS平台大势所趋的集大成者 做好扁平化设计-交互篇 狙击Google Glass?三星将推基于Tizen系统的Gear Glass GamePlay:跨平台开源3D游戏引擎,黑莓的努力你不懂 “少即是多” 高通QRD大会精华汇总 天云盾:构筑在云端的Web安全防护 解析大数据时代的数据库集群技术 莫里航海图,最早的大数据实践 弥补空缺!HappyFox面向iOS开发者发布开源移动HelpDesk SDK Chitika北美网络流量报告:WP KO黑莓、iOS超Android 《近匠》秦时明月:知名IP光环下的生存之道 微软研究院正式发布编程学习游戏Code Hunt 走近讲师:Memblaze刘爱贵讲述云计算中的闪存应用 【云先锋】ClouDil云方案:PB级大数据解决方案 一周消息树:这是要“发”啊?Google Brain之父正式加盟百度 最受欢迎的游戏引擎集结号:小白篇 多盟总设计师邢开捷:四两设计拨千金 Cocos2d-x游戏《Monster Strike》终结《智龙迷城》霸榜神话 高通物联网技术解决方案:从汽车到智慧城市 Arduino携手Atmel 发布Arduino Zero开发板 以色列玫瑰:细数十位科技创新领域的女性佼佼者 8款最佳的开源在线学习CMS系统 在发布站点前,Web开发者需要关注哪些技术细节? TOCC、中航信、高德、北斗平台重磅专家登场 邀您共享ITS技术盛宴 腾讯大数据之TDW计算引擎解析——Shuffle AMD APU14 BEIJING技术创新大会精彩看点 这是云整合时代开始的节奏吗?Rackspace考虑退出 软件发布:DIP2000标准版 软件发布:邮件群发机 软件发布:iFORM 软件发布:QQrobberBuild(QQ强盗生成器) 软件发布:freeRes 软件发布:公务员之路 软件发布:智能拨号系统 问个INET 控件使用时遇到的问题 软件发布:RegTool注册控件组 软件发布:Windows变脸王 软件发布:FIFA2002视频设置 软件发布:Flash播放器 我写好了一个applet画板程序,愿和大家交流,分享原码,并一同解决余下问题。 请问在BCB中怎样实现动态数组??? Window2000+Apache+Tomcat4.0下class文件放哪里呀?自己建新的目录,怎么建? 请问在win98中的sql server数据库如何导入winnt下sql server服务器中。 济南 应用程序端传递过来的参数不能在导出函数外用吗? BCB 用Install shield制作oracle数据安装程序,在客户端不装ORACLE,如何设置DBE? to:chechy 分来了! 请问哪里有 com本质论 下载啊,最好是中文版的,英文亦可 为什么我的程序在案康柏的ipad上不能使用? 如何在image里预先显示白色背景? 回复phoenix96_2000(Jack Of All Trades) 请问哪里有《Delphi5企业级解决方案及应用剖析》配套光盘源码下载? hehe...请问能不能在WIN2000P建域呢?? 在对话框中放一个静态文本,为何执行时看不到该文本? 哪里有Inside COM+的书籍下载? 请教各位:如何对zf='dd'转换成十六进制? 请教: 二级域名name.***.com是怎么实现的? vc中使用string类型的问题 肮脏的九运会,肮脏的广州!建议以后取消全运会!! 我做了一个OCX控件,里面有个属性SName,我现在想在属性窗口里改了它的值,马上可以在控件上改变,请教各位! 为什么我的USB接口键盘在用软盘启动后的DOS状态下不响应? JSP,薪水有多少? delphi中怎样调用package? ado 的问题 图片从数据能显示,图片名称不能显示? 请问unix下有没有类似于windows下的DLL的二进制代码存储文件机制?(当然不是javaBean) 关于语音控件CTTS1.0? 请教各位:问如何对变量zz='02'转换成16进制? flash 5。0哪里有下载 在vc中调用用vb写的com出错,为什么? 关于多态性的理解,对吗? 如何知道1个类是不是存在? ??请教:我的程序 help!help! 如何对程序执行动作放缓慢! 很小很小的问题!! 棘手问题??急急!!! 如何写一篇学会满足的话题作文 围绕改革开放三十年的变化写一篇作文主要写家乡在改革开放后的变化,希望有高人把结构给我列出来,不要作文,不知道写这样的征文是否要向积极的方向去写啊,请说明观点 写一作文:继承革命传统,宏扬中华文明.要700字以上,高中水平的可以 以"初一的生活"为话题的作文 急求一篇改革开放30周年写自己家乡变化的文章我是郑州市的就写郑州市的变化就行了1500个字 求继承革命传统,弘扬长征精神的作文偶们寒假的历史作业,1000字啊~求各位帅哥美女帮忙了昂! 爱,带给我的烦恼 作文 作文“成长烦恼“怎么写 有关革命传统教育的诗歌或文章 【我的烦恼】初一作文600= =最好原创.不是自己写的也找几篇作文拼起来的 怎样点评作文“成长中的烦恼”?请帮我试写一段,是点评作文的内容,不是作文 关于好人好事的作文200~300字 好滴加分分噢 初一作文我的烦恼. 体裁不限,诗歌除外,以良心为话题一小时内解决, 好人好事作文(300子左右) 我喜欢荷花的作文400字 (一)阅读下面文字,自选角度,写一篇不少于800字的作文.除诗歌外,文体不限.曾经有这(一)阅读下面文字,自选角度,写一篇不少于800字的作文.除诗歌外,文体不限.曾经有这样一个故事:有个 好人好事作文300字 400字荷花作文? 速求一篇初中生600字作文,体裁除诗歌、散文外,一律不限. 好人好事作文350字.要自己写的,还要完整. 描写荷花的400字作文荷花我喜欢浪漫的玫瑰花,喜欢富丽堂皇的牡丹,喜欢高雅的郁金香,更喜欢洁白美丽的荷花。“接天莲叶无穷碧,映日荷花别样红。”这句诗是宋朝诗人杨万里写的。 好人好事作文500字左右的我急等啊,好心人帮帮我 关于荷花的作文300字 我的烦恼作文400字的怎么写啊急!我的烦恼是胆小,说以希望大家写的烦恼是胆小.谢谢 作文题材:改革开放30年如何写类似文章? 写我们班的好人好事多作文,至少500字. 怎样写关于我的烦恼的作文我的烦恼作文有哪些知识点?写时要注意些什么? 作文“我的烦恼”怎么写500字 我身边的好人好事作文 ..500字以上 “如何才能成功”话题作文怎么写?范文 我的烦恼作文怎么写? 好人好事作文100字 求一篇以“探索与成功”的话题作文 请帮忙写篇"我的烦恼"的作文,800字左右,要有真情实感,高中生作文. 关于改革开放的作文500字左右 以成功写一篇话题作文600字 请根据材料,自选角度,自选文体(除诗歌)800字!两条小鱼一起游泳,遇到一条老鱼从另一个方向游来,老鱼向他们点点头,说:“早上好,孩子们,水怎么样?”两条小鱼一愣,接着往前游.游了一会 改革开放以来的变化的作文怎么写?1000字以上,2000字以下.各位有段落也行,(初中水平) 写一篇话题作文歌德曾说,我这一生基本上只是辛苦地工作.我可以说,我活了75岁,没有哪一个月过的是真正舒服的生活.就好像古希腊神话中的西西弗斯堆一块石头上山,石头不停地滚下来有堆 求一篇关于暑假好人好事的1000字文章是以班级的名义的那种文章.不要是第一人称 我 的那种文章.也可以是义务劳动,也可以是好人好事.要多件事情. 作文:从改革开放到现在之间650字左右条理清晰 明确中心 高中作文800字左右比较切合生活的 谁能给我一篇好人好事的作文800字左右 改革开放论文本人现在需要一篇关于改革开放30周年的论文,字数1500至1800左右, 关于革命的题材.文章或书籍最好是关于看完革命书籍后的心得体会 一千字好人好事作文写一同学的事迹,助人为乐.平常默默无闻,没有人看得见他.但他随手捡垃圾、关门关窗,帮同学盛饭……习惯铸成美.我是实在写不出来.一点感觉都没有.明天就交,1000字. 急需以”用美好的心灵看世界”为题的文章!希望看到帖子的各位朋友, 帮忙写一篇有关革命题材感人故事的作文,400-500字, 求一篇作文!《让我感动的那一刻》作文水平在初二 600字左右 写身边的事我不要网上已经有的 要新的! “用美好的心灵看世界”为题写一片作文要一记叙文 联系自己和社会生活的实际来写- 春天像刚落地的小娃娃”“春天像小姑娘”“春天像健壮的青年”,朱自清在文章结尾以人喻春,赞美春天.你能根据自己的阅读感受用另外一种表达方法为文章写一个结尾吗14课 《春》 只允 借物喻人400字的作文 写荷花最好是写荷花 以“用美好的心灵看世界”为话题不少于五百字的作文 以春天为主题的作文? 拜托帮我写一篇关于宁波30年改革开放的变化的作文吧关于宁波的30年,14号以前要,需要1500字 革命传统教育作文要500字以上,小学水平的可以 怎么写话题作文“留下”? 求描写家乡变迁,歌颂改革开放带来新变化的作文要从新颖的角度,多描写家乡的事,身边的事,我要几篇范文,参考参考. 写以《弘扬延安精继承革命传统》写1200的作文怎么写?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn