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

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

Android安全模型导致开发时功能受限 Android导出一个JAR库 APK汉化原理及方法 APK文件格式分析,Android反编译入门(一) ApiDemos中的Android Widget例子解析 APK签名导出向导 - Use the Export Wizard 剖析Android自带Widget - Music播放器 剖析Android自带Widget - Clock指针钟表 C#取得Excel工作簿工作表名称 C#中用Automation自动化方式对Excel的操作 VB如何打开或保存为有密码保护的Excel sheets工作表 VB在Excel表格文件中搜索指定内容 VB复制Excel表到另外一个Excel中 Java实现生成网站快照缩略图片 php实现生成网站快照缩略图片 C#实现生成网站快照缩略图片 VB比较两个Excel表格的内容 VB实现Excel按列或行排序 VB删除EXCEL表格指定行 用vb.net写的验证码识别代码 VB删除EXCEL表格指定列 Oracle数据库Windows 2003环境自动备份批处理 VB通过ADODB连接EXCEL表格文件读取数据 使用VBScript卸载软件 Discuz X2用户注册过程SQL Android手机参数表 用jQuery改变图片(image src) 用std::atomic實現簡單的讀寫鎖 ChinaPay网上支付网关.NET开发 VOB生成IFO文件用nero刻录DVD详解 15款开源Android游戏引擎(安卓免费游戏引擎) 谁想与我交换主页链接 一个程序编译通过后,我把paradox数据表的某一字段由N型改为了A型,结果运行时出错,应该怎么做呢? 如何用存储过程将一个查询的结果存为本地的一个XML文件? 有人知道.DUL文件是什么东西,有什么用,怎么创建? 如何把richtext.text的内容发到直接激活的word文档中?(在线等待) 高人指点,高人救命,我急。这是我唯一的办法了。 C++中为什么析构函数可以是虚函数,而构造函数不可以是虚函数? 100分求救:谁有webeasymail的解密版本或是能用的注册机??? 寻求C++参考书 高分问一个简单问题,什么叫“RAM驱动器”? 关于运算符重载的问题,请高手进来看看 如何把unsigned long型的对方IP地址,设在ClientSocket的IP中 为什么打开防火墙后,别人不能浏览自己的主页了? 钩子函数 请问如何唤醒机器? 关于ADOQUERY的问题?? 为什么打开防火墙后,别人不能浏览自己的主页了? ■■■征集顶级域名■■■ 谁知道在WIN2000有没有象WIN98中的WINPOPU发送信息的文件,若有,文件名为什么? 云南的程序员考试者看过来!!!一起来交流一下吧!!! 为什么打开防火墙后,别人不能浏览自己的主页了? 请你帮助! 谁知道在WIN2000有没有象WIN98中的WINPOPU发送信息的文件,若有,文件名为什么? 请教pnm和rtsp协议?请问哪儿有相关技术资料下载?谢谢! VC.NET那个变态的属性太难用了!!!我怎么死活都找不到我定义的消息??? 你们遇没遇到在builder中显示 link error提示的?? 请教pnm和rtsp协议?请问哪儿有相关技术资料下载?谢谢! 为什么在form1的paint事件中加入"form1.refresh语句后,在不做任何动作的情况下,事件会连续发生???你们有这种现象吗? 数据表格数据的块粘贴,如何实现? 网络病毒!急救! SOS 救命!!!!!! 为什么打开防火墙后,别人不能浏览自己的主页了? 急,判断某个记录是否为空的语句怎么写???除了record="" ,还有一个 jrun下如何配servlet,急急急 一个简单的问题,有劳各位了! 有一个EXE文件的图标很好看,如何把它保存下来? 超大整数相乘 急,判断某个记录是否为空的语句怎么写???除了record="" ,还有一个 请大家提供一部最精典的武侠小说,我最近特无聊,想看! 关于表空间的菜问题 一个简单的问题 一个最简单的CSocket问题。(请指出借在哪里) 我建好了一个RICH EDIT控件,怎么把一个文本文件的内容输入到它里面去啊??? 关于MsFlexGrid的打印问题,请大家帮忙。 在C++builder5里面还能编写纯C/C++程序吗? 有知道关于Javabeans与html的么?(高分!) 今天学习C++颇有收获 新手请问,如何改变安装时默认的XWindowds界面? 这是什么意思:字符串前面干嘛有个“L” 根据广大球迷们总结出一条韩乔生定律!!!(转载) 100分求一个小程序!! 科密指纹考勤机如何安装?根据说明书装好A1软件,但是添加设备时,却显示搜索到了0个设备,怎么也搜不到, C3分之2等于3 C10分之6等于多少 运动会有哪些意义呵呵,着急 科密科密338A-U指纹考勤机怎么采集指纹数据 小张用15.7米长的竹篱笆靠墙围了一个半圆形的花圃,花圃占地面积多少?〔求面积〕 运动会的含义是什么?有关奥运会的 科密A1考勤考勤管理系统中班次设置计算外出是什么意思怎么解释 王大伯用85米长的竹篱笆靠墙围成一个羊圈,求面积图不怎么样,别介意啊还有,那个梯形的右下角有一个直角符号 a group of student做主语谓语动词用什么形式 一个圆柱形水池,水池内壁和底面都贴上瓷砖,水池底面直径10米,池深1.5米,贴瓷砖的面积是多少平方米? 张伯伯用15.7米的篱笆靠墙围成一个半圆形的羊圈,羊圈面积是多少好的追加1000 甲乙两车同时从AB两地相对开出,相遇时,甲乙两车所行的路程比是4:3,相遇后,甲每小时比乙快12千米,甲车甲车仍按原速前进,结果两车同时到达目的地,已知乙车一共行了12小时,AB两地相距多少千 My sister ,____(like) my brother,______(like)______(watch) TV.怎么填? 羚羊的天敌是什么?也可以说哪些动物捕食羚羊?最好还能告诉我最普通的羚羊是哪种? 甲乙两车同时从AB两地相对开出,相遇时甲乙两车的路程比是4:3,相遇后乙车每小时比甲车快12千米,甲车速度不变,结果两车同时到达目的地.已知乙车一共行了八小时,AB两地相距多少千米? 古代造纸的工序(东汉时期)最好用十几个字精练的概括,稍微具体,不要一大堆东西发上来答对后追加十分 My brother looks like my father.(同义句) My brother looks _____ _______ _____ my father.急. 甲乙两车分别从ab两地相对开出,甲车每小时行90千米,乙车每小时行全程的18分之1,相遇时,路程比是5:4两地相距多少千米? people是复数还是单数 是可数还是不可数名词 后面谓语动词怎么用people 后的谓语动词一定是复数???? my sister looks like my mother的同意句My sister looks ( ) ( ) ( )my mother在括号里填词 甲乙两车同时从ab两地开出,第一次在距a地90km相遇,走到ab地后返回,在距a50km相遇,ab距离.甲不一定行了3个90km, 三年级应用王大爷家有一块正方形菜地,一边靠墙,长是15米,宽3米,如果在菜地的边上围篱笆,篱笆长是多少这块菜地的面积是多少? A、B两站间的路程为448米,一列慢车从A站出发,每小时行驶60千米,一列快车从B站出发,每小时行驶80千米,问:两车相向而行,慢车先开28分钟,快车开出后多长时间两车相遇? 用方程解,今天之前 一K B 等于几M B what kind of 后名词 单数 复数?我在百度知道了查了下说 what kind of 后接 名词单数的有,说,可以接 可数名词复数,或者 不可数名词的 也有,我比较认同 what kind of 后接 单数名词,或是不可数名词,请 seem to like 怎么翻译呢 1.I like to have feiends (who are like me.划线)划线部分提问 — — — — do you like to have?2.She's more outgoing,and I'm quieter.(改为同意句)We are --------- --------- ---------.I think d______are not important in friendship. 蛾蚋的幼虫能否寄生人体? 甲乙两人分别从AB两地同时出发相对而行结果在距两地中点60米处相遇已知甲比乙多行20%求AB两地之间的路程 try I‘d have to a like 烟草叶片受到某种蛾幼虫的采食刺激后,会释放出挥发性的某种化学物质,这种物质白天会吸引此种蛾的天敌.对此现象解释合理的是:A幼虫和烟草之间是捕食与竞争的关系B烟草叶片释放出的 l like fish very much?(同义转换)l like fish ______ ________ a large number of和 large numbers of 后面的谓语动词用单数还是复数 甲种蛾幼虫与天敌的种间关系说除了捕食还有寄生,那怎样寄生的呢?甲虫蛾是寄生生物? I like fish a little,but i like chicken very much.I ____ chicken _____ fish. 三指蛞蝓是树懒吗? 蛾幼虫与烟草是寄生还是捕食? I like fish very much.回答怎么问? You seem to like English?Have you got the certification of CET-4? 汉代人是如何造纸的? 一M等于多少K 2指树懒与3指树懒最大的区别是什么 汉代是怎么造纸的 一没m等于多少k 右图是一个一面靠墙,另一面用竹篱笆围成的半圆形养鸡场,这个半圆直径为6米,篱笆长多少米? 蔡伦造纸属于发生在汉朝的事吗? 内存上,一M等于多少K? 一面靠墙,另一面用竹篱笆围成的半圆形养鸡场,这个半圆的直径为6米,篱笆长多少吗? 怎么解?把算式也讲一下,还有答案,急用! I really want to talk to you,but I feel like I’m annoying you 猴孑的样子是什么 一个一面靠墙,另一面用竹篱笆围成的半圆形养鸡场,这个圆的直径是10米,篱笆长多少米? 与动物有关的歇后语 C10 0 为什么要-1 一个半圆形的养鸡场,直径一面靠墙,另一面用篱笆围成半圆形,这个半圆的直径长8米,篱笆长多少米? 有关动物的歇后语(20个) C10取1乘以C10取2的积除以C20取3,等于多少? 下图是一个一面靠墙,另一面用竹篱笆围成的半圆形养鸡场,这个半圆的直径为9米,篱笆长多少米过程、完整、写答、格式 谁有有关动物的英文谚语? 圆柱形水池的底面直径8米池深为3米在水池底面和四周贴上瓷砖每块瓷砖的面积是2平方分米至少需要多少块瓷 中国举行运动会的意义是什么?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘