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

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 播放器了。

一周消息树:1月23日全国顶级域名根服务器疑遭黑客攻击 影响巨大 下一代互联网搭建技术:高空气球,无人机,又或是卫星? 红帽认证总监:10个架构师里有4个在中国 数据中心优化的5个途径:软件定义、云计算等 收购诺基亚,微软能否再度崛起? 一周热点:阿里专家深度解析分布式系统,美团数据挖掘工程师分析企业大数据 独立游戏节:学生展示优胜者奖项得主揭晓 专访Meetup Andres Glusman:解析UX、精益创业方法论背后的强大力量 开发者不容错过的12款开源JavaScript库 搭载FusionCube,HANA内存计算助力实时运营 叫板Google,VMware15亿美元收购AirWatch强势布局物联网 2014年IT企业招聘调查报告:外资企业招聘规模偏大、技术人员比重高 小机器人Ozobot:Maybe,我也有禅意 Google 4亿美元收购人工智能初创公司DeepMind 加入初创企业前,自问四个问题 King.com维权 上演“贼喊捉贼” 淘宝:HBase Bulkload bug修复及patch提交 Google的“机器人情结”:两次合计36亿美元的人工智能收购 挑战谷歌、抢占新兴市场,百度进军泰国、巴西和埃及市场 《近匠》第8期:Unity——不再仅仅是游戏引擎 Colours:移动应用的开源“美颜相机” 微信红包活动:用户疯狂中的腾讯“阴谋” 预测2014年最热门的IT职位及年薪 智能手机有隐私?Facebook可阅读Android用户的短信内容 苹果2014年Q1财报:iPhone、iPad 销量创纪录 3D打印:鞋垫也玩私人订制 与Google Glass抗衡,三星将推Galaxy Glass 进军移动?任天堂欲推iOS、Android版超级玛丽 回顾2013:云计算的夏天 微软最终加入OCP阵营,开源其云服务器设计 Docker:集装箱式“运输”在软件上的实现 ATCS10_SCO505版本,免费的类似TUXEDO消息中间件,欢迎大家使用!!! what is the MAPI? 一个关于子窗体的问题?请大家帮忙,在线等待! 如何做浮动窗体! 一个不是很难的问题。我却很难哟 请教关于访问Jbuilder7中数据库的问题(急) 突然想到的一个问题,请问大家在认真思考问题的时候都习惯做些什么动作? 在SDI程序中,如何在“框架类”中得到“文档类”的指针? 经常看到图片的上传到数据库,以及如何显示的问题,并且在另一个页面实现指定位置显示多个图片!我整理了,需要来登记! 招聘程序员!!!! 各位老大:请帮助!!!!! 请假两天要扣掉薪水的百分之几? JSP通过JDBC连接ORACLE的问题!!! 简单问题,vb得块注视是什么? 为什么mingw和DJGPP. 的主页总是上不去?? 五笔怎么装?装在什么目录下? 最远的距离 请教关于访问Jbuilder7中数据库的问题(急) JSP通过JDBC连接ORACLE的问题!!!!!!!!!!!!!!! 打印机状态,在线等待,万分火急 modelmaker6这东西是做什么的,那位前辈知道 NOTES在用久了之后,邮箱会变的巨大,几百MB,但即使我将邮件删除,其邮件文件还是那么大,怎么可以让它缩小? 我为程序中的职工设了一个序号,人数有多少序号就有多少。可以一眼就看出有多少人。可是当我在离职表中删除职工时。序号跟着被删除。删除 关于sql的难题。 请问如何用SQL语句更改一个表的字段长度,其他都不变. jsp读取oracle8.1.6数据表中的中文,读出为?,着急啊。 上个100帖子已结,现在再拿100分求从导入到数据库的代码,各位老大帮忙看看。 怎样用程序设置文件夹共享? VB中,怎样实现C中的continue? 注册表与记录登录密码 更新表中某字段的值 请问如何实现像delphi编辑器那样,当输入了关键字后会变成粗体或其它的颜色? 有人需要Delphi调用水晶报表的例子吗? 关于ADO+SQL Server2000数据库备份的问题! vb.net应用程序! SQL语句问题 有关位图的问题? 如何从扫描仪中读图,欢迎讨论 这个问题难者不会,会者不难! 如何把自制的ActiveX打包成*.cab包放在网页上 ? 关于DeleteTable方法 备份数据库时出现42000错误:"d:\backup\20021115.mdfIO"发生不要恢复错误,backup被中止,救命啊,谢谢!!! An very easy problem! vb.net简单的问题。 怎么用Linux 下的C/C++开发一个窗口,人人有分! delphi7怎么注册? 请问:VB中如何实现Crystal Report打印? VB可以使用MySQL数据库吗? libc stdio中fgets的疑问! 还是文档拷贝问题,原文档中的RTF域怎么拷贝到另一数据库中的新文档中。 请估价开发一个b/s结构的桥牌网站 都德的名言:亡了国当了奴隶的人民.的钥匙的意思亡了国当了奴隶的人民,只要牢牢记住他们的语言,就好像拿着一把大开监狱大门的钥匙”的意义. 求腾讯中那些怪异标点符号怎么弄的?如题 科幻里面激光剑的原理是什么?科幻电影里面经常出现激光剑,虽然说是意淫,但是作者意淫时的依据是什么? 一个十字路口红灯和绿灯交替各亮30秒,红绿灯之间的黄灯亮3秒,你若开汽车经过该路口,能及时通过的概率是多少?好的话再追加积分 小军用铁丝焊了一个长方体框架,高是3分米,底面是一个边长2分米的正方形.做这个长方体框架至少要用铁丝少分米?如果在框架的侧面糊上彩纸,至少要用彩纸多少平方分米? 用括号里所给的人称代词所对应的物主代词填空1、Is it____(you)eraser?No,it's not_____(I).It's____(he).2、Do you have____(you)umbrella?yes,I have_____(I).3、____(he)bag is heavier than_____(she).4、Whose bedroom is bigger,___(w 一道初中概率题将正面分别标有数字1,2,3,4,6,背面花色相同的五张卡片洗匀后,背面朝上放在桌上,从中随机抽取两张,写出所有机会均等的结果,并求出的两张卡片上的数字之和为偶数的概率.所 北京理工大学附属中学英文怎么写? 物主代词和人称代词?是什么?怎么区分?初中的时候学这些往往都有哪些这两个代词中的词会出?这两种词的出现有什么格式吗? 一道关于概率的初中题目一个可以自由转动的转盘 ,被等分为面积相等的四个扇形 颜色分别为红绿黄蓝.规定转动两次转盘,转出的结果分别为红色或黄色则获胜 问获胜的概率是多少 (转盘就 北京理工大学的英文简写是什么 对对子,三尺剑对什么? 初二语文第六单元的词类活用和通假字初二语文第六单元的词类活用和通假字初二语文第六单元的词类活用和通假字初二语文第六单元的词类活用和通假字 奇怪的近意词 三尺剑第九式叫什么 布袋中有3个白球和2个红球,求下列事件的概率:1、每次任取2个,2个都是白球2、每次任取2个,1个红另1个白我认为是30%和60%,但和答案里的不符,所以来问一下 离奇的进意词 三尺剑第十式叫什么 (上下册的都要)初二上下两册的人教版的语文书搬家卖了,现在上初三要复习文言文,没有语文书,不知道有哪些文言文, 奇怪反意词是什么 三尺剑第四式叫什么 初二语文的文言文的通假字有那些? 三角形有多少?直角三角形有多少?锐角三角形有多少?钝角三角形有多少?等腰三角形有多少?等边三角形有多少?如图 12月六级估分 了六级估分 听力选择对10个 单词3个 句子1个 快速7个 深度和仔细阅读全对 完型错3个 翻译对4个 作文写得中上 ”王府井”的用英语怎么说?是Wang fujing 还是Wangfujing? x∈(-∞,0)∪(0,+∞) 这个写法对不对,可以直接等于x∈(-∞, 12月六级估分听力选择17个 填词6 听句子几乎全对 快速阅读5 填句子阅读4 传统阅读6 完型5 作文还行 大概多少分 丹东什么地方学英语口语好? {x∈N+|x=2k,k∈N+}这种写法对不对 12月六级帮忙估分保守:听力共12阅读共25,完型6翻译2作文不错 太平洋百货、王府井百货,北京烤鸭店 这些用英语怎么说?同上 y=26000-x 这种函数写法对不对 hot是什么意思 关于地震的哲理性名言越多越好 他们想去王府井用英语怎么说不是街,是商店 want加不加S 有没有x属于【1,1】这种写法? 地震 英语名句 北京王府井百货大楼位置在哪里地铁1号线到王府井站下,进的那个东方悦来一片就是百货大楼吗?刚来北京不久,请各位大虾多多指教~ f(x hot 什么意思 王府井英语怎么说 个锐角三角形 个钝角三角形 个直角三角形 个等腰三角形 你可以做任何你想做的事 求翻译英语 在括号里填上人体部位名称,使之成为成语反( )相讥 搜索枯( ) 刎( )之交 用适当的人称代词和物主代词填空 A.从括号内选择正确的代词填空1.Your football clothes are on the desk.Please put _________(they,them,their,theirs) away.  2.(We,Us,Our,Ours)_________ English teacher is Mrs.Green. We all 帮忙改个英文名字(要谐音)我想要谐音的、方便记忆.我见到我的同学的英文名字很好啊、有好听、写起来也好好看帮我改一个.我叫陈晓君 女 14 岁 步行街用英文咋说 选择括号中正确的物主代词填空.is this skateboard ____ ( your,yours) no,____ (my,mine) is over there .tingting (人名) is ____ ( her,hers) nest firend.lucy is e classmate of ____ (my ,mine) .______(thier,thiers) watches are black.____( 如今,人们彼此之间做着相同的事-用英语如何反译 步行街英语怎么说 括号内选择正确的代词填空(I,me my mine)_____can't get my kite. 天才与奴隶的名言 英文地址怎么写 河北省安平县保衡路与银网大道南行400米路西 2010年12月六级请各位大侠帮助我估分!~本人第一次考六级,不知道分数怎么个讲究.阅读一共25分,听力一共12分左右(听力非常惨,有可能11~13),完型5分,翻译1~1.5分,作文9分以上没问题,平时在10分 有关"本质"的名人名言求有关"透过表面,看到问题本质"的名人名言 翻译英语honey成中文 射剑是什么原理 求鲁迅的一条名言 意思是奴隶变成奴隶主后更加残忍我忘记是在哪看见了的,大概意思就是说:“奴隶变成奴隶主以后,会比以前的奴隶主更残忍,因为他们受过摧残,所以当自己变成奴隶主以 奇怪的标点符号!美国著名心理学家巴尔肯,在一次宴会上,提议每人用最简短的话写一篇自传.其中一个满脸沮丧的年轻人交给巴尔肯一纸无字自传,通篇只有三个标点符号:-- .巴尔肯的 各位大侠帮忙2010年12月六级英语估分2010年12月六级英语估分作文及格左右听力 选择 13个听力 填单词 5个听力 填句子 1个快速阅读 选择 5个快速阅读 填空 2个仔细阅读 第一遍填空的 2个仔细阅
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘