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

用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 播 放 器 了。
PhoneGap 3.5.0发布,不再支持iOS 5和ARM64 “中美青年创客大赛”之“创客&#183;教育论坛” 以创客教育支持创新人才培养 授之以渔,谷歌发布开源秘密武器Kubernetes 炫耀分数已经out!ShareSDK发布游戏内视频录制SDK Android开发者必知的5个开源库 UCloud完成B轮融资5000万美元 Git远程操作详解 《近匠》iMAG:移动应用快速跨平台开发工具 Facebook斥资30亿美元购Snapchat遭拒后,推Slingshot 全球开发者报告:程序媛崛起,企业应用更赚钱! 土豪经济 E人E本发布首款4G安全手机 内忧外患:Android版FuelBand应用来得太迟? MongoDB 2.6.2 发布,大大改进查询功能 清华毕军&amp;amp;华为马云:SDN是学术和产业都看好的领域 向三星和苹果发难:亚马逊FirePhone 3D手机强势来袭 支付宝移动端与NFC芯片商、手机商合作 推出近场支付产品 Go 1.3正式发布,改进正则表达式! API设计如龙生九子,Tunneling、Hypermedia等更受开发者青睐 NFV+SDN,博科打造开放式网络平台 亚马逊开放双SDK:摄像购物,追踪脸部玩游戏 解析淘宝Hadoop作业平台——宙斯Zeus 亚马逊的心思:要Android不要谷歌 Vuforia SDK全面更新:3.0版可实时生成虚拟场景和物体 Stream SDK:以手为“剪”,随时随地分享精彩内容 一周消息树:惠普研发基于Linux开源操作系统 打造全新计算机 我从谷歌学到的那些事:Toilet文化、代码实验室 对话大神Scott Shenker:从物理博士到SDN&amp;#039;s Uncle 巨头们的又一战:健康数据服务平台 移动应用广告新竞争,Facebook不再一家独大 为什么Fire Phone手机价格不便宜? 老牌播放器暴风影音发力线下与自制内容 关于函数 ASP.NET中操作EXCEL,为何添加操作可象操作ACCESS一样没问题,而删除和更改操作却出错?100*n分for your answer 求助:如何调出linux下kppp源代码? www.clpclub.com是不是不能上了? 如何制作登陆窗口? 关于中大型网站如何应用软件工程的问题 求救高手,如何使双硬盘同步写 请问怎样在用户点击(s)后将用户点击的软件自动安装到用户(c)的机器上 请问如何用网站提供的搜索引擎,知道查找关键字,我用的是WebBrowser1,100分呀 tomacat的配置问题?急 学过严蔚敏的〈数据结构(C语言版)〉的请进! 开发过nokia上运行程序的朋友,请进来,本人遇到一个非常麻烦的问题,欢迎各位赐教. 如何从字符串中提取单词? 谁知道那里有longhorn下载??? 100分请教实现播放列表的思路? 有关图形化公交车线路的问题!! 关于网站软件工程的问题 我的sqlserver 2000 在安装的时竟然说什么不支持??? 免费ASP空间申请 有关用Firework作网页模板的问题-急! 大虾请指点~~!!~~ 如何固定游戏中的分辨率? 今天见到了蓝心MM,估计她是CSDN有史以来最PL的MM。 也来贴一篇!!!送给大学毕业几年的哥们!(转) 急:关于weblogic的控制台 ? 请问各位:哪里有好的javascript的教程? 小问题 请问在哪里可以找到监控局域网的网络流量的工具,不够再加? 免费ASP空间申请 白羊座的进来领分,水园里白羊座好像很少。。。。 ie无法编译jsp? 300分!求《程序员增值合订本》上册中的"完全掌握TCppWebBrowser控件"内容! Google搜索从入门到精通(散分) 由于工作需要,将要转到Linux平台,请问那位知道有什么好的SQL Client在Linux下? 由于工作需要,将要转到Linux平台,请问那位知道有什么好的SQL Client在Linux下? 你是怎么过的?CSDN无高人?:( 找asp.net入门经典!一定是C#写的!!!在线等! 菜鸟的关于DataGrid的问题 资源管理器中选中的多个文件怎样传给我的程序 什么是“三层数据库”和“嵌入式软件系统”? 什么是“三层数据库”和“嵌入式软件系统”? 类似"hello world"的简单问题,求教 免费ASP空间申请,支持ACCESS 事件的终止? 数据追加求教:谢谢您!!!! 请问InputBox在framework 类库里面有没有代替的阿? 为什么我写到文件中的字符总长度比我实际应该要写的多? 如何使dbctrlgrid多选,并使鼠标右击相当于鼠标左击 关于静态IP地址,急!!! 如何将tomcat做为windows的一项服务启动? 请问英语三级没过的人考四级好吗? 有十五字的拟人句用蜜蜂 发光强度(光度)的含义是什么? 问第四第六两个小题最准确的说法(关于符号2的意义),一定要确认准确. 除去括号中的少量杂质气体可用NaOH固体的是 ( )A.co2(co) B.o2(so2) C.H2(NH3) D.co2(hci)并说明下、 市场上什么样的纯牛奶最安全 有一首歌叫walking in the air,歌名什么意思?有谁能告诉我,on the air ,in the air ,on air ,in air都是什么意思啊?最好有例句,谢谢,追加 帮忙打出几个字3QRT 请问b选项和d选项. walking in the sky是谁唱的? 用“被”字造拟人句 高二生物D选项哪里错了 CaCO3 与 NaCO3那个热稳定性更好 (釜)字怎么发音拜托各位了 3Q 高二生物37的b选项为什么是错误的!无法理解T^T 1摩尔每升氯化钡溶液中各离子的浓度怎么算 我呆的地方比较冷.你们可知道那种电器发的光度.又高.又热.光度又远.知道的说一下. 世界上亮度最低的地方观赏星星最佳的地方,不受光污染,星星亮度最高 NaCO3 为什么是碳酸钙 显示屏是飞利浦190V的,发觉显示屏亮度太亮了,很刺眼,要怎么调暗一点, tired……need a nap 外国人会这样讲么,还是说have a nap 如何计算1mol/L氯化钡溶液中各离子的浓度? 明度与亮度的区别请问明度与亮度的具体区别是什么?据我所知,明度分为9阶,那具体的数值是什么?而亮度是0~255,具体的数值单位又是什么? 氧化镁和盐酸为什么不反应? 1摩尔氯化钡含有3摩尔离子对吗? 光度,视亮度.各是什么,.它们各是什么定义.它、们之间好像可以互算的,怎么算,.越详细越好, Why don't you have a afternoon nap? 锐利什么意思? 请问一下知道了分光度之类的要怎么计算呢 He used to have a nap.一般疑问句.为什么是Did he use to ……而不是did he used to ……?used 明明是形容词啊 锋利、锐利的反义词是什么?所要的答案要在词典上查得到的双音词,请说明哪一部词典. 化学反应工程的研究内容 我理解的艺术是能给人带来美的享受的, (武器丶言语等)锋利;锐利这个是什么意思 [Co(en)2Cl2]Cl中心离子的电荷及配位数 懋字 怎么表达美的意思 锐利是什么意思急!急! 化学命名[CO(en)2cl2]cl命名,中心离子,配位体那配位数是几阿 some kids play soccer ————every weekendclean if live there open world park and turn hour come hungry选一个 色彩锐利,锐利什么含义 化学反应工程开发中需要手机哪些数据?细致一点,答得好加分... 求求你啊 35字的拟人句列:家就像根,永远是树叶的家;家就像红布条,永远系着游子的心,家就像大衣一件,不会提高温度,但却给予人们连火炉都不能替代的温暖. 初三比较重要的化学方程式 求求你,怎做 7R 是什么意思? Pt(NH3)2Cl2的同分异构体,可溶于水,可治疗癌症结构简式是什么?为什么呢? 求求你了! 锋利是什么意思? “消光度”的定义是什么? 求求你,告诉我吧 锋利的意思是什么如题 Pt(NH3)2Cl2 中心离子是Pt2+,配位体是NH3和Cl-,它有顺式和反式两种异构体.如图为什么cl-也是配位体而不提供孤电子对 告诉我吧,求求你啦 锋利无比是什么意思 “黑亮度”的定义 与电源正极相连的试管内产生的气体是氧气 这句话哪里错了? 英语三级没过的人考四级好吗? 17题.详解. 什么是烛光亮度?定义是什么? 伊朗死囚受绞刑未死 司法部长称没必要杭州十大赏秋处出榜 灵隐路杨公堤龙井英国乔治小王子受洗仪式23日举行 不日本男教师误会“性暗示” 当众露下体俄罗斯暴力恐怖事件频发 总统普京抨击日本拉平企业与政府薪资差距 全国公务日韩航线日本乘客骤减3成 创历史新低报道称泰北“孤军”后裔学中文当导游收法国媒体再曝美国监听法国驻美和联合国澳大利亚11岁男孩因纵火被关“虚拟软美国校园枪击案枪手曾遭欺凌 开枪或是澳大利亚11岁男孩因纵火被关“虚拟软以情报部长质疑伊朗谈判诚意 呼吁美国视频:10岁男孩午夜被切断右手 扔进巨型牡蛎长约35.5厘米 或为世界上俄罗斯暴力事件频发 普京抨击外国势力美国被曝监听意大利民众通讯 意政府或财经观察:供应充裕令纽约油价跌破百元美民调:58%民众支持大麻合法化 比律师:系统存信息泄露风险 酒店或应负日本156名学者成立研究会 呼吁改善第13110期分析螨虫知多少?慕思为您解答二次提取公积金凭身份证搞掂丁俊晖晋级加强政府信息公开 主动回应社会关切薄熙来受贿、贪污、滥用职权深圳现28起聚集性流感“2013湖南两岸文化创意《金刚王》演员“真打”致骨裂“十八罗汉”他乡维和 坚守一份寂寞清千万头奖花落甘肃粤LED半年产值逾1200亿元李雪芮因伤退赛羊城首条可变车道下周开通CBA新赛季新政多北方澡堂没单间 南方学生好尴尬广东国税公安联合打击骗税深圳风采奖池过千万省青少年等级赛下月开战软硬兼施 打造宜商宜居宜旅新区十大品牌商家入驻北江城
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘