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

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

Windows 10:全平台战舰与移动化破冰——微软(中国)操作系统工程院院长谢育涛专访 专访友盟CEO叶谦:深挖海量终端用户数据的价值 七牛资深前端工程师马逸清:前端测试探索实践 实战iOS 9:开发者必须掌握的三种搜索API 腾讯Bugly干货分享:浅谈Swift在实际项目中的应用 【前端人生】ThoughtWorks黄峰达:利用横向扩展方式,快速学习前端新框架 这是前端最好的时代——论前端的“三化”建设 游戏引擎网络开发者的64做与不做(一):客户端方面 六问七牛CDN:打造融合CDN管理服务平台 《近匠》Wilddog野狗,跨平台的实时通信云服务 【CTO讲堂】招人不易留人更难——创业团队要闯哪些关? iOS UIView动画实践(四):过渡与伪3D动画 日程全公布|年度人工智能技术精英聚会 7月26-27相约北京 TypeScript 1.5发布,支持大量ES6新特性 快快快!27个提升效率的iOS开源库推荐 《近匠》Maxense,“云+传感”推动产业变革 【探秘ES6】系列专栏(九):使用Babel和Broccoli 2015年Postgres全球开发者大会参会总结 英特尔硬享公社启动“创意原型拍卖” 对接创意与商机 详解Swift 2.0(一):苹果做的25项改变 2015甲骨文数据库大会:回顾、感恩、展望,欲续写辉煌 Nokia进军VR领域:让人欢喜让人忧 2015中国人工智能大会在京成功召开 成为糟糕游戏设计师的五种打开方式 Stripe使用指南:Swift开发中的信用卡支付 将安全延伸至云端以及更远的地方 专访FreeWheel北京研发中心:一流技术型人才应具有国际化视野 iOS UIView动画实践(五):Keyframe Animation 【CTO讲堂】简说创业公司的技术选型,从BearyChat的开发说起 《近匠》Webix,跨浏览器的JavaScript UI组件库 微软正式推送Windows 10,你会升级最后一款Windows产品? (困惑请教 )关于内存释放的一些问题! 数据库操作出错该如何避免???? 我是第一次来到CSDN,大家多关照! YYSUN关于大富翁论坛的解释(从水母看到的) vb 访问SYBASE的问题 支持北京伸奥的朋友,进来签个名吧! 怎样截获一个应用程序的消息? 数据结构得答案 大连的软件人员工作环境怎么样? 不好意思,小弟又来麻烦大家了! 上次的文章到那儿去了? enmity,进来,我给你结帐 enmity,进来,我给你结帐!! 各位侠客帮忙啊,重新装系统出了问题! 将10进制转换成16进制的函数是什么啊? VC高手,怎样以编程的方法实现磁带机的Backup 和 Restore. enmity,进来,我给你结帐.共200分 支援白菜300分,支持白菜个人网站建设:))) CMM 的缩写是什么? 想和大家讨论一下怎样系统的编制软件 如何实现和Word、CorelDRAW同样效果缩放位图 请问各位大哥大爷大妈大。。。。。。。。。。。。。哪里有支持 ASP 的服务器软件下载 我该如何控制IP地址??高手请进。。。 弱弱地问:关于SQL server中的中括号。 各位侠客帮忙啊,重新装系统出了问题!! 一点点小问题????? 请问在 WINDOWS98 下面,除了IIS,还有没有支持 PHP 的服务器软件呢? 在ADO中如何获取表名 关于ASN树的问题(snmp中的MIB的拓扑树) 你是高手你进来!!!!! 各位的顶级域名都在哪申请?价格/速度如何?大家都来说说! DirectX8的MultiFileReader过滤器怎么找不到? 关于用VB显示ado数据库中的图像字段问题 大家来谈谈Msdn如何有效利用 请各位帮忙查看我这段程序错在哪里 , 我是照书上做的 , 可就是无法保存. SQL plus 为何无法登录?? 谁要下载msdn? 紧急求救!寻找工作! 最新新消息~~~~~~~台灣地區中午地震最大震度花蓮市5級 有没有大连的公司要俺? 请教大家!!!java如何实现多重继承?接口该如何使用?份数可以再加,只要我明白了 怎样以编程的方法实现磁带机的Backup. 愿者请进,请各位留下自己的QQ或E-mail,以后大家可以多多交流!!! solaris unix8 的一个问题 asp是用什么软件的阿?我用了interdev,可是开始新建项目时就不行,叫你输入serve时,总是不对?应该输什么啊? 关于字符集 哪里有好的LAN管理软件??? 一个去美国的机会,保签(替朋友贴的,信誉没问题) 打印没有输出? 动态分配内存 因为本人准备过一段时间出去找软件开发工作,本人手头有一张高级程序员资格证书,但没有本科学历请问?? 用阴影在图中表示出5分之2公顷 有2公顷5个格子,怎么画? 1,1,2,3,5,8,13,21,31,55.第12个是?前一百个数中【含100个】偶数的个数有多少个、? 负三分之一加四分之一减六分之五加七分之三 怎么算 用初一的方法 图中的长方形面积表示2公顷,请用阴影部分表示出三分之二公顷 1.1+2.2+3.3+4.4+5.5+6.6分之11+22+33+44+55+66谢谢各位大哥大姐了! 六分之五减四分之一加三分之一怎么算 在图中用阴影表示出5分之2公顷 15°15′15″+55°14′35″-32°28′19″=? 7又六分之五加负五又三分之一加2又四分之一加负四又四分之三 在图中用阴影表示出7/12公顷.急 77度45分+34度45分=___度____分 求(1+1/2+1/2+1/4+1/5)*1-(1+1/2+1/3+1/4)的计算过程. 有一块3公顷的地,把它分成7份,用阴影表示出7分之9公顷,该画多少份, 34度42分=多少度 3/5-(1/2-1/4)计算, 七分之三表示吧【 】平均分成【 】份,取这样的【 】份,它的分数单位是【 】,再加上【 】个这样的分数单位就是3. 45*46等于多少? 2又4/5*[1/(3又1/3-2.4)] 计算 7分之4乘3表示什么?,还可以表示为什么? 45*2等于多少 计算:(1)3.5÷(-2分之7)×/-2分之1/ 3×7分之3表示(),3÷7分之3表示( ) 2+45等于几 (2.5+3/4)÷1/8列式计算, 7.5+4分之3= 2.45约等于几一直约下去,得几? 列式计算 9/10÷[1/2×(6/5-3/10)] a分之4+a分之5=7分之3,那么a是( ). 5分之2*45等于多少 5+6 七分之三可以表示,还可以表示什么 45-多少+13等于28 用一支原来示数为38℃的体温计,未经下甩,便去测量一个正常人的体温,如果当时气温是35℃,那么?体温计的示数为 35*(3/35-2/53)*53简便计算过程 x+7分之6=2+14分之1怎么解? 180°-23°13′6〃*4等于几 将0.75,0.25,0.125,0.375,0.625,0.875化成最简分数 5分之7-X=14分之3 角1是36度,求角2 1+2+3+4.+99等于多少 x+7分之8=x-2分之2怎么解 计算3分之一加四分之一时 3分支4-(-7分之8)-2-(+3分支1)-7分支1 x:5分之7=8分之7解比例要求全过程. -3又3分之1-2又四分之一-(-2又三分之一)+(-4又四分之一) 怎么算 2002/1×3+2002/3×5+2002/5×7+2002/7×9+2002/9×11 简便计算 3.5:7分之8=x:5分之2(解比例只要答案) 计算:(-四分之一)^5*(四分之一)^3*(-四分之一)^2(a^2)^3*a*(a^4)^2 3(a^3)^4+a^9*a^3-2(a^2)^6 (-2a^2)^3-(-3a^3)^2 10^m-1*10^n-1*10^3 (x^2y^3)^3+(-2x^3y^2)^2*y^5 (四分之一)^2006*2^4010 (-3a)^3-(-a)*(-3a)^2 1—2—3+4+5—6—7+8+9—10—11…+2001—2002—2003 求简便运算过程1—2—3+4+5—6—7+8+9—10—11…+2001—2002—2003 求简便运算过程 求快速. 急!0.75-2又4分之3-0.125+12又7分之5-48分之1+|6又7分之5-10|要过程~~~~ 修一条路,前3天修了这条路的四分之一,平均每天修了这条路的几分之几?照这样计算,修往这条路,需要几天. 2002/1×3+2002/3×5+2002/5×7+2002/7×9+2002/9×11简便计算 下面的分数请化成最简分数;75分之12、65分之15、130分之80、30分之25、55分之33、48分之32、75分之125还有63分之117 (-3又四分之一)+(-1又十二分之一) 7分之四乘3分之2加7分之4 [2-(5.55×1又3分之1-2又10分之7)]÷0.9 负三又四分之一加负一又十二分之一= 负三又四分之一加负一又十二分之一=几 4分之3乘( )=( )乘8分之7=( )+7分之4=( )-2分之1=1 观察:1+2+3+4+5+6+7+8+9+10=(1+10)*(10÷2 )=11*5=55计算:1992/1993+1991/1993+1990/1993+...+3/1993+2/1993+1/1993=?/:分数线 分子/分母 四分之一里有几个十二分之一?一又四分之一里有几个二十四分之一?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn