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

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

VB使用SendMessage函数滚动文本框控件中的内容 VB使用 WIN95 的选择目录对话框 VB使用INI文件 VB使用WriteFile 块读写数据 VB使用历史文件记录 VB使用内存映射文件加快文件操作速度 VB数据报表设计器在多层结构开发的应用 VB突破 TextBox 32K 的限制 VB拖拽节点时实现目录树自动翻滚 位图文件内部初探-VB资料 VB文本的加密与解密 VB显示盘中所有的目录 VB压缩MDB文件 一个移动文件的简单方法-VB资料 VB移动文件到回收站 VB隐藏文本框控件的环境菜单(又一方法) VB隐藏文本框控件的环境菜单 VB用API复制移动文件 VB用OleDragdrop事件接受拖放文件 用VB进行文本文件的再处理 用VB开发应用程序如何使用INI文件 用VB实现文件查找功能 VB用Winsock控件实现文件的下载 VB用两分法搜索列表框或组合框中的数据 在 ListBox 之中, 如何检测鼠标所在位置的选项? -VB资料 在 Textbox 中,录入 N 个字符后移到下栏-VB资料 在 VB 中控制 Word 在GotFocus时快速选择文本 -VB资料 在VB中使用文件对象 在VB中使用艺术字 在VB中引用.dbf及索引文件 戒水快两年了,如今回来看看,物不是人非啦 新手一问 关于datagrid 修改数据的问题,帮我看看,多谢 谁有这两本书,请帮忙发到我的邮箱里,100分相送 到底应该怎么办? 大家好,如何打开DLL文件? 建议成立一个程序员协会 关于IE中图片的保存 VB 语言支持问题 高分求李维《delphi5.xDELPHI5.X ADO/MTS/COM+高级程序设计》示例源码!!!! 请yangshu进来!给妳点分!!!倒分! 请教各位如何实现dbgrid中按住shift多选的问题? 请问把sql-server7中的数据文件copy出来行吗? 找不到类,请大家帮忙解决,谢谢 异常处理问题 怎样恢复被损坏的"本地用户和组" 小弟在线等待,一小问题,,大家来帮忙?? 求jsp树的原代码 最好是jsp+js+xml 执行效率要高。(从数据库中动态生成的)在线 关于多层结构中事务处理的问题. VB6.0升级到VB.NET的问题。 在ASP中使用ActiveX Control ADOTable表名如何在运行时“递进” 这样的待遇能招到人吗? 不好意思,问个技术问题。其他版实在没人气!只好来这问! 不爽,辞职,散分! 在线等待(100)往一个表的字段赋值,怎么不行啊! 急!在线等待! 如何把一个窗体内嵌到另外一个窗体的指定位置? 电源键设置问题 假设有一个变量CString str,调用str.GetBuffer(ncount);上面函数的参数应该为多少,才能取得缓冲中的全部字串值? 如何做局域网中的机子通讯 有关Enumerations的问题 请教英文语法检查的算法. 给些提示或参考资料好吗? 简单的关于对话框关闭的问题 关于新闻联播! 哪位有USB1或2.0的开发文档或相关资料? 关于JAVA的问题!请教高手~! 在delphi中用什么样的函数可以将十六进制数转换成十进制? 在MotoSDK3.1的moto388c上模拟正常,但换成T720出现严重问题。 开发“办公小助手”,我准备用VB开发,各位给点思路! 在2000下telnet到Solaris机器,c++编译的问题 droplist 女人啊女人 无法进入系统了,请大家帮我看看怎么回事。谢谢! 如何通过串口来读写数据? 急!想要得到机器安装的物理内存数量!最好还能得到锁定的内存数量! 如何在编辑框中输入完后,按回车鍵能响应到一个确定按钮 在delphi 程序中 如何控制 sql server 服务器的启动与关闭,也就是把 sql server 的服务停止,也就是屏幕右下角的 sql server 服务器中的 [欢迎讨论]J2EE之EJB与MySQL 金山毒霸升级的注册码。。。。。。。 请PB高手来看看,因对我今后DW设计会有很大的影响,请尽量详细些。 嘉靖皇帝是如何死的? 新编初中版文言文助读的第32篇是什么?求原文! 下落不明的明是什么意思? 嘉靖是位有争议的皇帝吗?谈一谈他的功过是非.央视《大明王朝》,对他是褒还是贬? 朱厚熜是一个怎么样的皇帝,是一个好皇帝吗? 正午牡丹中何以明之?意思 在那里能看投明状朋友们告诉我一个地方,看看这个. 法华经主要讲的是什么 后见之明是什么意思? 就是说一个明星要连投, 法华经总共有几部我买了法华经7部,不知道有没有买齐, 求有妇人夜起溲溺这篇文章的翻译 臭味相投的投是什么意思 吃了一块烧焦的肉怎么办 “秦时妇人”文言文翻译及课后练习 神将世界陈宫怎么打 一道化学离子推断题在一种酸性溶液中可能存在NO-、I-、Cl-、Fe3+中的一种或几种离子.向该溶液中加入溴水,单质溴被还原.由此可以推断该溶液中:含有什么?不含什么?不能确定什么?请给出具 不堪吏人妇,岂合今郎君 求翻译古文,thx 神将世界陈宫曹仁谁厉害? 请无视我做的和划掉的什么的 明可分开的意思 透彻点的 关于文言文:唐太宗论治天下解读本文的两个关键字是:___ ___选自_____(朝代)______(人名)主编的______(书名),它是___(体史书). 新编初中文言文助读第38篇,原文,注释 化学离子推断题某无色透明溶液中,可能含有以下离子中的若干种:K+、Mg2+、Al3+、Fe2+、Ba2+、NO3-、SO42-、CO32-、I-和Cl-,取该溶液进行如下实验:①将溶液滴在pH试纸上,呈红色.② 后出师表作于蜀军第一次北伐失败后,大臣们对再次北出征伐已颇有异议,但文中却一再提及曹操之败,又言先帝之败,只是为什么 新编初中文言文助读(增订本)1 邴原泣学 我吃过烧焦肉?咋办呢?那天在奶奶家一不小心吃了烧焦的肉,我也知道烧的肉不好吃.但我已经吃了,咋办呢?有没有什么可以补救的办法.5555555我真得挺害怕的 太阳快下山天也暗猜一成语 急求《新编初中文言文助读》 第28课的译文 唐太宗纳谏唐太宗将大臣们的奏章贴在强上,原因是 目的是 用原文回答 为什么有时晚上八点太阳早已下山但天还是红的?照常理来说太阳在六点左右已经下山,天早就应该黑了,但是这时的天却很红和以往完全不同,直到晚上八点半天才变黑? 新编初中文言文助读杨振中编的,下篇37、38,只有名字也行, 谁有唐太宗纳谏的小故事?请给我一些.不需要太长,字数最好在100以内(不要文言文). 我们的太阳ds中如何变天气迷宫中如何变换天气?有一个像石像(木乃伊?)一样的人不管咋么打都没效果,跟各种心灵兽打都没有效果,难道变天气就一定要到研究所去变?还有,暗黑城一开始冰区域 嘉靖皇帝是朱元璋哪个儿子的后代? 高中班级太乱,老师管不了怎么办?我是新高一,高中不算太好,是私立,一班60人,有几个混混不管老师说什么都起哄,他们一起哄就有好多人跟着起哄,因为是私立,老师都不爱管不,但是我是因为中 Sunflower is always toward the sun.but the sunflower will be tried sometimes.Till The sky was dark,急Sunflower is always toward the sun.but the sunflower will be tried sometimes.Till The sky was dark,the world is gray,Sunflower no more see the sun.. 嘉靖多少个儿子、 有关无甲l醛胶水配方 《中国小说史略》到底是白话文还是文言文写的啊 千军易得一将难求兵和将是什么意思 室内空气 voc多少是超标 《社戏》 - 鲁迅 文言诗文点击中的一道题《社戏》 第十段的动词运用准确、生动,如:“点、磕、驾”等写出了双喜这帮少年驾船技术的高超.请用80至左右写一段有关某项活动的话,表现连贯 经师易得,人师难求.怎么理解 什么是VOC?雾霾现象是由于NOx与VOC增加了大气氧化性雾霾现象与PM2.5污染主要是由于NOx与VOC增加了大气氧化性,所以应控制NOx与VOC的排放.NOx来源主要是化石燃料燃烧,易集中控制,VOC来源主要是化 诸葛亮《后出师表》中今贼适疲于西中的贼是指什么 “千军易得,一将难求”的“军”和“将”两个字是什么意思? 灭菌纱布与灭菌脱脂纱布有什么区别? 天气为什么会变凉? 一定能在下列溶液中大量共存的离子组是A含有大量铝离子:钠离子,铵根离子,硫酸根离子,氯离子B含有大量三价铁离子的:钠离子,镁离子,硝酸根离子,SCN2- 医用脱脂纱布家庭如何杀菌?买的医用纱布说明书称为非无菌,不可直接接触创口,请问在家里如何使纱布无菌呢? 急求《治天下必先正心》的译文!...贞观初,太宗谓萧瑀曰:“朕少好弓矢,自谓能尽其妙。近得良弓十数,以示弓工。乃曰:‘皆非良材也。’朕问其故,工曰:‘木心不正,则脉理皆邪, 下列溶液中,一定能够大量共存的离子组是A、滴加石蕊试液显红色的溶液:Fe3+ .NH4+.Cl-.SCN-B、常温下,由水电离出的c(H+)=10^-14mol/L的溶液:CO32-.SO42-.Na+.K+C、与铝反应放出氢气的溶液:K+.SO42-.N 刘琨怎么读? 易制剧毒化学品可否快递 下列溶液中一定能大量共存的离子组是?A加入Al粉有氢气生成的溶液中镁离子、铜离子、硫酸根离子、钾离子B使PH试纸呈红色的溶液中Fe2+.I- NO3- Cl-C常温下,c(H+)=十的负十四次方的溶液中钠离子 介绍一下西晋的八王之乱? 易制毒化学品和剧毒化学品的区别?请给我一个详细的答案,答案满意才能给分? 下列四组离子在溶液中能够大量共存的是A.Na+、CO3 2-、Cl-、H+ B.Cu+、Cl-、Na+、S2-C.H+、S2-、Cl-、K+ D.K+、Cl-、Na+、S2+ “何以明之”的意思 中国疾控中心专家:H7N9禽流感疫情纽约油价29日下跌美政府高官因奥巴马医改核心举措漏洞频中储粮:转基因油未污染国储库 国储菜美政府高官因奥巴马医改核心举措漏洞频英国将发行伊斯兰债券 吸引中东投资者孟加拉国大罢工第三天造成至少4人死亡美政府高官因奥巴马医改核心举措漏洞频中方支持安理会继续改进工作方法杨洁篪会见伊朗伊斯兰议会议长拉里贾尼伦敦股市股指29日上涨欧洲强风暴抵达俄罗斯西北地区环保税引发民众暴力抗争 法国政府宣布农业主产区生产积极性不高 农业干部“黎巴嫩拒绝叙利亚化学武器进入其领土伦敦股市《金融时报》100种股票平均王正伟访问巴基斯坦德国法兰克福股市DAX指数29日上涨厄瓜多尔欲向斯诺登提供政治避难粮食主产区财政紧张陷怪圈:产粮越多经英国将发行伊斯兰债券 吸引中东投资者习近平上海考察四大板块迎利好从“临时性强奸”到“暂时性失控”体育特长筛选更严苛 京浙川品德可加2沈今年预计45%考生能上重点高中李宇春戛纳颁奖大师陪衬一脸茫然爱过六一的不仅是孩子童书里讲的不仅是96110防恐举报电话 最高可奖50作家进校园告诉学生学会“奇思妙想”老旧小区屋里漏水找社区“电子报修”日军“细菌战台北血案遇难者家属批施暴者:连道歉慰北京阅读季推出女性讲座 女性阅读书单于丹:加入少先队唱“接班人”觉得激情教育部直属高校教育实践活动深化整改工广西龙胜“驸马村”:上门女婿几乎家家内蒙古加大四种大病保障力度内蒙古多地雨多温低 农牧业生产受影响台湾云林县民宅发生气爆意外 男子重伤甘肃省:严防发生农用微耕机伤人事件甘肃省“农资打假网上行”行动启动定西改进农村道路交管模式 派出所可参
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘