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

用VB 设计VCD播放器

HTML文档下载 WORD文档下载 PDF文档下载
用VB 设计VCD播放器
成 都
傅 能 红

---- 该 程 序 通 过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 JSON解析类 - JsonReader Android获取本机电话号码 ListView自动滚动方法 自定义Android菜单背景 Android OpenGL下截图代码 查看Android应用的详细信息2.3有新方法 Android开发Java图书推荐 Android开发图书推荐 UiModeManager设置夜间模式和行车模式 Android 2.2新增的DeviceAdminInfo类 Android获取摄像头详细信息 Android流量统计TrafficStats类的使用 电子邮件解析android.net.MailTo类 扫描和获取OBB文件信息 Android加速感应器开发平衡球代码解析 StrictMode限制模式API加速你的应用 手势识别兼容Android 1.x和2.x的代码 NativeActivity类在NDK中管理Activity OBB文件和StorageManager类使用介绍 DownloadManager下载管理类2.3新增API介绍 Android平台上的11个感应器你都知道吗 Android 2.3中的java.io.File类新增功能 更轻松的获取APK文件安装时间 Android控件对应表,丰富你的UI设计 Android开发进阶之NIO非阻塞包(八) Android开发进阶之NIO非阻塞包(七) Android开发进阶之NIO非阻塞包(六) Android开发进阶之NIO非阻塞包(五) Android开发进阶之NIO非阻塞包(四) Android开发进阶之NIO非阻塞包(三) Android开发进阶之NIO非阻塞包(二) 请教:编译的时候为什么说不认识WindowAdapter? 这个站值多少钱? 请教各位同仁有关数据共享的问题 怎样防止网页提交时,点击IE后退按钮? 请问如何解决DataReport无法及时更新的问题!! Tserversocket and Tclientsocket 怎么不能用于INTERNET???? 提供VC6的类库大全的电子版! StringGrid单元的颜色 我遇到难题了。谁来救救我???? mysql數據庫上傳后怎么連接???? 如何安全删除LINUX? 请教,如何将dbgrid中的数据直接打印出来? 明天就要交毕业论文了,有谁能帮我翻译一下摘要?100分!(我最多只能给这么多分了) 求一个com+的最简单例子 powerman_lyj(刘瑜江),能说的再详细点吗,具体的菜单或快截键是啥, 我的电脑是联想同禧品牌机,98年买的,价格是7999元。由于各种学习软件的增加,机器的配置已经无法满足实际的需要,所以本人打算升级我的 Analysis Patterns:Reusable Object Models 关于编写ASP.NET程序的工具使用问题 在submit的click事件中调用check(),当条件不符合时如何让submit终止? 申明CRecordSet的子类为什么不行呢? 高手请进!!!!高手请进!!!!(100分!!!!!) 请问如何用程序改变本机在局域网中的IP地址? help! 为什么session不可用?iis服务器配置错在那里? 一个关于数据库的问题,望各位高手多多指教.(很急) 大个大姐快开金口吧,从我启动PB 开是教我吧,没想到新手这么难呀!(共送700分!!!) 今天这件事说没完就没完,谁的面子我也不给,结了我就再发,删ID就换马甲,如果想封IP那就谢谢了,能让我下定决心离开 这个页面如何? MDI主窗口的背景,怎么显示阿? 高分求助!如何用程序获取显卡的物理地址? 请问LOEBBS的系统占用时间 在Tomcat4.0环境下,运行JSP,程序出错? 向大家推荐一个品质计数计量图控制程序 来者有分,班长请高抬贵手,不删此贴,谢谢 谁知道哪儿有cloudscape数据库的安装程序? 老大,infopower2000的密码是多少阿? 100分求<壮志雄心>8-20集的下载 能讨论一下 VB开发财务相关软件的经验吗,各位高手??(UP都有分) 简单的问题,送分 请教:ADO方式连接Oracle数据库时出现:多步OLE DB错误,请检查每个OLE DB状态,怎么办? 错乱 如何用jdbc连接oracle 老大,infopower2000的注册号,密码是多少阿? 向大家推荐一个品质计数计量图控制程序,来者有分,班长请高抬贵手,不删此贴,谢谢 线程管理 向大家推荐一个品质计数计量图控制程序,来者有分,班长请高抬贵手,不删此贴,谢谢 能不能提供一些有关图像分割的算法和实现代码!谢谢 如何实现语音聊天技术~需要什么? 如何实现语音聊天技术?需要些什么 请问如何用delphi语言将一文件夹压缩? 老大,infopower2000的注册号,密码是多少阿? 我现在是2000系统,想装一个98系统而不破坏2000,请问有解决办法吗?谢谢! [求助高手]VB注册表的读取 灵魂伴侣用英语怎么说? 从外部特征及生产、生活方面,比较北京人与山顶洞人之间相同点和不相同点最好列出:相同点:不同点: 山顶洞人和北京人体貌特征有什么不同 步步高家教机h9怎能截屏? 请问说男生闷骚是什么意思?女生喜欢闷骚的男生吗? 北京人和山顶洞人在生产生活方面有哪些相同和不相同之处? 有个问题调查希望有好心人帮我看看,1、\x05请问您认为职业生涯规划是否有必要,如果有必要,职业生涯规划能给您的职业生涯带来什么样的作用?2、\x05请问您如何看待职业生涯的规划和您是 灵魂伴侣的英文怎么写啊 山顶洞人在生产和生活上比北京人有哪些进步要和网上的不一样,一共五点,马上要! 灵魂伴侣用英文怎么说开心 说具体一点,具体指哪些人? 如图所示,灯重30N灯挂在水平横杆的C端,O为杠杆的支点,水平杆OC长为2米BC为0.5米则绳子BD作用在横杆的拉 谁知道“灵魂伴侣”的英文写法灵魂伴侣 的英文名字到底最正确的是怎么写啊,怎么答案不同呢,叫我如何选择啊? 灵魂伴侣 用英语 24.如图所示,灯重30N,灯挂在水平横杆的C端,O为杠杆的支点,水平杆OC长2m,杆重不计,BC长0.5m,绳子B如图所示,灯重30N,灯挂在水平横杆的C端,O为杠杆的支点,水平杆OC长2m,杆重不计,BC长0.5m,绳子BD作用 19.如图,在等腰Rt三角形ABC中,D为BC中点,DE垂直AB,垂足为E,过点B做BF平行AC交DE的延长线于点F,连接CF》问:(1)求证AD垂直CF;(2)连接AF,试判断三角形ACF的形状,说明理由附加100分补充条件:角A 灵魂伴侣英文怎么写 如图所示,灯重30N,灯挂在水平横杆的C端,O为杠杆的支点,水平杆OC长2m,杆重不计,BC长0.5m,∠DBO=30°,求绳子BD在杠杆上的拉力是多少? 英语补空 如图,OC、OD是角AOB中的两条射线,且角AOC:角COD:角DOB=1:2:3,OM是角AOC中的射线,使得角MOC:角COD=1:4,ON是角DOB中的射线,使得角COD:角DON=4:3,若角MON=80度.求角AOC、角COD、角DOB的度数(需要过 如图所示灯重30 N挂在水平横杆的C端,O为杠杆的支点,OC长2 m,杆重不计,BC长0.5 m,绳子BD作用在绳子F?为什么OE是动力臂? 补问,下次的“客房升级”英文问题在国外酒店,如何主动提出免费“升级客房”的要求较得体?最让酒店容易呢? 如图是三段互相垂直的杠杆:AB=a,OB=2a,OC=3a杠杆绕O点转动,在C端挂一30N的物体,为了使杠杆水平平衡在A端应最小施加一个多少N的力?求过程和结果 如图所示,灯重16N,OC=2m,BC=0.4m,O是水平横杆的支点,若不计杆重,绳子AB拉横杆的力的大小是多少?画的不好 求速解 我物理学得不好过程说详细点 英语怎么补我从初二开始英语都没怎么学,现在高二了,想学了才发现一句完整的句子都翻译不出来,更别说写了,初一学的一点也忘完了 昨天晚上做梦梦到鬼那个鬼是个小女孩 还好像是在梦里让我害死的 本来是想走的 打了个车但是那个司机带我围着那个鬼的旁边转了圈 然后那个鬼就追我 然后我就吓醒了 可是醒了全身都不 重10牛的物体,放于倾角为37度的固定斜面上,受到平行于斜面的两个力F1,F2作用而处于静止状态已知F1=2N,F2=5N,现撤去F1,则此时物体所受合力为?F1沿斜面向上,F2沿斜面沿斜面向下为什么我觉得最 补你一个英语问题You are really beautiful today in this yeallow coat?A.Never say that.B.Thanks 一块静止在水平桌面上,已知木块与桌面间的动摩擦因数u=0.3,木块重力G=30N.木块与桌面间的最大静摩擦力等于滑动摩擦力.(1)用F1=5N的水平推木块时,求木块所受摩擦力的大小.(2)要使木块 所示三个大小均为50N的力恰能竖直提起重130N的物体其中F2竖直向上, F2 则 F1、F3 和 F2 的夹角应为37度.37度怎么计算出来的? 大小相同,质量分别为mA和mB的AB两球,系在一细柔绳的两端,放在光滑水平面上细绳被两球拉直在两球连心线上,当B球收到一大小未知,方向与x轴成α角度的通过B求中心的水平冲量作用时,获得大 晚上做梦,梦到鬼会怎么样呢? 梦到灵异事件梦到和不认识的人结婚住在一起 回家的路是一个小巷子 回家的时候朋友给我一小包东西送给和我结婚的人 路上一前一后有两个老太太 手里拿着鞭子 风很大吹的我要很用力才 如图,静止在水平位置上的物体A重30N,滑轮另一端有物体B,滑轮重1N,弹簧测力计示数25N,B的重力为( ) 晚上做梦梦见和鬼一起,代表什么呢? 做梦梦到看鬼故事书有个彩页房子上有个人流了很多血,几乎整个房顶上都是,房子是古代的房子,很害怕.这是由什么寓意么, 动能相同的A、B两球,它们的质量分别为mA、mB,且mA>mB,在光滑的水平面上相向运动,当两球相碰后,其中一球停止运动,则可判定: ( )A.碰撞前A球的速度小于B球的速度B.碰撞前A球的动 我想知道应当在法律中的确切意思,有没有法律或司法解释中对应当、可以进行注释? 梦见灵异事件开始是梦见下雨天,我打着伞在路上走,看见前面有一把伞飘浮在空中往前走,过了一会,那伞突然转过方向向我撞来,一下子感觉有个人从我身体里穿过,我转过头就只看见一个打着 请问如何辨别马铃薯淀粉的质量好坏? 新婚姻法司法解释三 灵异事件,有没有人做梦梦到过太阳啊RT 急:说明财务会计中成本与费用、费用与支出的区别?《会计基础》的简答题;谢了! 管桩编号PHC-400(95)-12QT是代表什么意思 手表纽扣电池1.5V 干电池1.5V 要是不考虑实用性 可不可以用普通5号干电池代替纽扣电池?手表纽扣电池1.5V 干电池1.5V 要是不考虑实用性 可不可以用普通5号干电池代替纽扣电池?从手表机芯电 杠杆工作的五个名词:支点:______ 动力:_____ 阻力:______ 动力臂;____ 阻力臂:_____ 这些司法解释的出台有何意义 女孩子对你说她的感情是什么意思? 高一物理题将一小球以初速度V从地面竖直上抛后,小球先后经过离地面的高度6m的点用时4s.若要使时间缩短为2s则初度V0应(g=10m/s² 不计阻力)A 小于VB 等于VC 大于VD 无法确定 分配方式中的按生产要素分配是什么意思?解释清楚点 所有干电池都是1.5V的吗不管大小都是吗 有个女孩说觉得我很闷骚,是什么意思啊?求解释 我的小伙伴(选材要独特的)写精神或品质的. 是这样滴,一个很虚伪的同事帮助了我,还在嘴里告知我我欠了她人情,我今天下午帮了她,嘴里说出了还了她人情,这是不是说的很不好啊 如图所示,在水平桌面上放一个质量为2kg的木块A,已知木块与水平桌面间的动摩擦因数μ1=0.4.(图片可放大求:(1)使A沿桌面做匀速直线运动时的水平拉力F1:; (2)如果在木块A上加一 北京人和山顶洞人生产生活方面的共同之处和不同之处? 这女孩的表情是什么意思? 闷骚型女人是什么意思,今天一朋友说我属于闷骚型女人,这是他们几个男人讨论出来的结果,是好还是坏? 山顶洞人比北京人生活上有什么不同?请 帮帮 忙我有急用 明天上午就要用 谢谢 商场工作人员拉着质量m=20kg的木箱沿水平地面运动.若用F1=100N的水平力拉木箱,木箱恰好做匀速直线运动;现改用F2=150N、与水平方向成53°斜向上的拉力作用于静止的木箱上,如图11所示.已知sin5
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘