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

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

个推CTO叶新江:云推送技术如何助力产品开发 《近匠》Face++:漫谈人脸识别 无线充电技术赛高:随意走动也能电量满格 体验至上!移动Web应用JavaScript UI库App.js 专访中国国航:传统行业的“轻应用观” 开发者找众筹,哪些网站更靠谱? 48小时脑力激荡 中美青年创客大赛英特尔北京选拔赛 “微应用+大平台”推动企业软件走向碎片化 浅谈Hive vs. HBase 十款最新的JavaScript开发工具 JavaScript Promise启示录 百度携多位安全专家深入探讨安全人才快速培养机制 卡饭技术代表严佳:引入安全人才,企业应遵循S.L.E.E.P、S.T.A.R法则 百度资深研发工程师周晓波:平台+数据 百度培养安全人才的重要思路 代码审查是如何抹杀开发者积极性的? 事件分析平台EventHub开源 云计算智能交通行业论坛:李德毅院士谈智能车 多家知名企业分享应用实践 我伙呆!CRM生死对手微软及Salesforce或将联手 阿里巴巴曾鸣:数据时代来临 OpenStack企业应用之路技术培训:虚机迁移、HA、VDI、跨Hypervisor管理 云计算技术背后的那些天才程序员:KVM之父Avi Kivity 中国气象局联手阿里云:海量气象数据变“活数据” 浪潮首度公布“I2I计划” 全面接盘IBM X业务 一周消息树:Surface Pro 3想替代笔记本太难,微软正逐渐迷失方向 就是要赚钱!NativeX推自定义原生广告交易 继智能手机后的下一个战场:智能家居 鏖战云端——亚马逊的生存法则 如何保住公司的人才:创造良好的学习氛围 主宰全球的10大算法 专访Google数据科学家彭晨:大数据成为潮流走近各行各业! 强横Metal技术来袭,能否取代OpenGL? ▄▅▆▇█ 水园的大背景离不开吵架 █▇▆▅▄ 请教mm有个问题! linux下的编程问题 以Oracle为例说明如何通过ODBC将数据库中的指定表导出到MDB数据库。(原创) 关于一种特殊按钮 SQL语句小问题!!在线等待! 想学ColdFusion 请看我的转载的贴子 Troj_Hacline.A是什么病毒? 关于XML的问题,150分赠送,急 dll问题。很简单。 感慨!!!(潜水一年,吐个泡,顺便发表一点意见) 帮个忙 怎么在Installshield中创建对话框,并操作ACCESS数据库? 连续给分:邮件服务器防病毒问题! 我想编译一个像API一样的dll 启动rose就出错,高手来看,100分 关于打印的一个问题 急!!!请提供一段设置Session的全部代码,谢谢!! 请问,从第二帧开始播放的代码的什么??? 老师要求编写五子棋的程序可是我实在想不出该怎么设定估价函数啊帮帮忙啊? 感觉压力比较大,活不下去,想跳楼自杀的进来侃侃 一个关于php提交表单的问题。 各位大侠,要命问题! 怎么在Installshield中创建对话框,并操作ACCESS数据库? win2000server的管理员密码让人改了,怎么办呀! 太气愤了,帮帮我? 用BDE连接MS SQL SERVER,为什么运行后出现未知用户名或密码的错误? datagrid中能不能进行统计 如何编写“outlook”风格的界面 如何实现flash截图?我研究了好久也不明白,希高手指点!(在线等待) 程序调用的DLL 在delphi中,用ADO如何实现将SQL中多表导出到一个Access中? 无聊啊无聊 想考软工???? Socket奇怪的问题! foxpro中如何实现按一按钮启动word和excel,并且直接弹出打开文件对话框? 关于分级权限管理(300分) 紧急求救!!!!!!!! 客户端web服务是否需要别的控件支持 帮帮我,朋友们请进.... Datareport问题! [cclq]竞选斑主,附我的方针! 用VB编写自己的服务器端组件 DAO问题,CDaoRecordset::addnew()和CDaoQueryDef::Execute插入一条记录,哪个更快? 谁能解释一下这个比较模糊的问题?关于地图窗口HWND。 闲人免进!如何增加信誉分! 如何改变Mem控件中插入符的形状? 各位大虾有没有检测日期的合法性的JAVASCRIPT脚本啊 怎么在Installshield中创建对话框,并操作ACCESS数据库? 两个问题,关于struts中form的action如何传递一个变量?如何使用科学计数变成普通数值? 救落水美女注意事项 改善的英语怎么讲?要四个空 英语中如果you ,I ,he同时在一句话中出现时,顺序应该是怎样的? 七(3)班的同学去参加夏令营,在分配房间时发现:若每间住4人,则剩下19人无宿舍可住;若每间住6人,则有一间宿舍不空也不满.(1)如果有x间宿舍,那么可以列出关于x的不等式为------;(20) 如图所示,三条直线AB,CD,EF相交于点O,角AOF=3角FOB,角AOC=90°,求角DOF CAD这幅图怎么画?希望能给个详细的解题过程 “如人饮水,冷暖自知”这句话什么意思 动能和势能是怎么计算的 怎样获得绿色晶体?我找到了,可我点了很多次就是点不到,到底怎样打到啊?我点不到那绿色的晶体怎样才能点到?说清楚点!赛尔号的!赛尔号的! 求我叫MT EASY 3.6.1 谁有 怎么算电势能 英语表达中 we,I 和I,we有什么区别?一般I ,you,he/she表达时是什么顺序 质量为60kg的体操运动员做“单臂大回环”,用一只手抓住单杠,伸展身体,以单杠为轴做圆周运动,运动员到达最底点时手臂受的拉力至少是多少最高点最小速度为什么是0 不是根号gr? 两种溶液混合,体积会增大吗,一般体积增大还是减小,请举例 “机动车通过交叉路口时,相对方向行驶的右转弯的机动车让左转弯的车辆先行”为什么请解释详细 同一条直线上有A.B.C.D,四点,已知AD=5/9DB,AC=9/5CB,且CD=4厘米,求线段AB的长? 原核生物启动子的结构特点及功能 怎样用量筒测得200克的酒精? 怎么计算出2个元件的点之间的距离 as3 两种溶液混合,体积会比体积和增大吗,一般体积和增大还是减小,请举例 一名落水小孩不小心掉入水中,抱着木头在河中顺水漂流.在A处遇到逆流而上的快艇,因要全部步骤``因雾大未被发现,1小时后快艇获悉此事,随即掉头追及,求快艇从获悉到救上小孩的时间? 如何解决AS3计算误差 什么是强启动子? 一名儿童抱着木头在河中漂流,在A处遇到逆流而上的快艇,因雾大未被发现,1小时后,快艇获悉此事,随即掉头救援请问:快艇从获悉消息到追及儿童需要几小时? 铝合金压铸模斜导柱用什么材料铝合金压铸模斜导柱坏了不知用什么材料换, 怎么理解初次分配和再分配? 一名小孩抱着木头在河中漂流,在某处遇到逆水而上的轮船,因为雾太大,轮船上人没有发现小孩.一小时后该轮船上的人获悉此事,随即掉头追赶,则从获悉此事到追上小孩需要多少时间?(把符号 铝合金压铸模能不能将原材料换成尼龙材料? 我叫mt怎么装easy助手?非越狱的iphone 什么叫做初次分配与再分配 南极有风极之称 我叫mt辅助easy助手1111111111 请问什么是初次分配和再分配? 把5克的盐放到40克的水里混合成盐水,盐是盐水的几分之几,水是盐水的几分之几? 猛将气体有毒么? 如图,直线AB CD EF相较于点O,已知;∠AOF=3教FOB,∠AOC=100°,求∠EOC的度数 把5克盐放进40克水里混合成盐水,水是盐水的几分之几? 米和占这两个字,同加上一个什么字,使两个字都能组成一个新字 我叫mt辅助easy助手, 第二问的C,红鳞熄灭后立刻打开弹簧夹, 坐、对两个字分别加偏旁组成新字,每个字必须组出两个新字 华为版的我叫mt属于哪个版本,我想用easy助手,可是不知道载哪个 童非首次在单杠项目中实现了“单臂大回环”:用一只手抓住单杠,伸展身体,以单杠为轴做圆周运动.设他的质量为65kg,求他的单臂在最低点能够承受的拉力至少约为多少?(忽略阻力,g取10)325 门 小 日 口 从 生 大 十任选两个字组成新字不能重复组成四个新字 等腰梯形、长方形、平行四边形中哪个不是对称图形? 已知三角形ABC中,DF交AB于F,交AC于E,交BC延长线于D,且DE;DC=AB;BC.求证AF=EF(要有完整的全过程) 甲:我说出两个字. 乙:我就能把它组成一个新字,并且能说出新字的意思.甲:上下不正 乙:歪——不正斜甲:小土飞扬 乙:__________甲:人被拘禁 乙::__________甲:水中捕鱼 乙:__________甲:门里藏日 人类行为是宇宙的必然过程吗? △ABC中,D是BC的中点,E,F是AC上的点,CE=AB,AF=EF,DF的延长线与BA的延长线相较于G.求证:AG=AF△ABC中,D是BC的中点,E,F是AC上的点,CE=AB,AF=EF,DF的延长线与BA的延长线相较于G.求证:AG=AF 这儿是图: 把一个圆任意朝不同方向对折,每条折痕都一定通过圆心,对折后,两边完全重合吗? 有没有亲在恒善堂买过冰山雪菊?那里的冰山雪菊质量如何? 什么事战术?战略?定义各是什么?最好举例说明!有什么异同? ab平行cd,bc平行ad,de⊥be,df=ef,甲从b出发,沿着bc→ce→ef的方向运动,如果两人的速度是相同的 初次分配和再分配按什么划分的 如人饮水,冷暖自知的意思,具体一点是禅学么,谁说的?字面意思和广义是什么? 宇宙中存在比 光速 快的 质量/势能 》c ,有发现存在吗? 英语中you,he,I的次序是则样的 一切振动的物体都在发声吗 在太空中,一般选择无穷远处为零势能点所以,物体在太空中的势能为:Ep=-GMm/r这是怎么推出来的?设无穷远处为零时能点是什么意思? 英语道歉i you he怎么摆放,我是否摆放在第一位? 老师为参加夏令营的同学安排宿舍.如果增加2间宿舍,每间宿舍住6人;如果减少两间宿舍,每间宿舍住9人.问:参加夏令营的同学共有多少人? 模拟联大 :全球四百万学子峰会近日海外关键词(10月23日):老子乌兹别克斯坦艺术时尚周开幕德国现任政府正式卸任 “黑黄联盟”终韩国人战殁者遗属要求靖国神社取消合祀调查称希腊民众生活质量比经济危机前显以情报部长质疑伊朗谈判诚意 吁美制裁2047年:全球高温临界点?挪威称应联合国要求将协助销毁叙利亚化美专家:进口产品及食品易导致美国儿童俄空降兵部队摸黑赶路不慎引爆炸弹 致日本“无性症候群”涌现 恐陷“绝种”报告称美国600万年轻人无所事事 不安倍7小时长会后品尝软柿子 满足称“法国媒体再曝美国监听法国驻美和联合国安倍称日本拟限制外国人在国防设施附近伊朗死囚受绞刑后未死 司法部长称没必数据显示日韩航路日本乘客骤减 创历史美影院拟设“手机短信专用区”防手机光英14岁少年被控5次性侵 3宗案件发普京指责俄地方政府官员失职导致严重民金吉列推出国际冬令营线路广州股民起诉光大证券首例维权案裁定不全市各街乡月底前设食药监所“高考焦虑症”来得早胡同版投稿办法无业男子假扮台湾“高富帅”征婚 女高“撒野”车辆快去领罚罗德曼与金正恩会谈现\"第三只手\"广东广宁人大副主任被指贪污受贿遭网上中加投资协定即将生效 能源进口占主导南湖路湘江隧道拟通两趟公交车不针对任何特定国家和目标以次充好 “糖参”充斥市场乱象多“发现问题比解决问题更重要”客机冲出跑道 9中国乘客伤刘志军曾嘱咐丁书苗不要动大笔资金:留专家谈“政令不出中南海”:以法治方式地铁征文说说地铁与你我他的故事地铁时代城市核心由一个变为多个每天搭乘地铁让我“读懂”西安有冷门就会有黑马陕军阵中有忧愁有欢喜
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘