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

用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 播 放 器 了。
定义全局热键-VB资料 动记录应用软件工作时间-VB资料 动态改变屏幕设置-VB资料 读取档案的建立时间及存取时间 -VB资料 多个参数的属性 -VB资料 发现剪帖板的秘密 -VB资料 发现拖(Drap)过来的信息 -VB资料 防止打开同个VB应用多个实例 分割图像的原理 -VB资料 封面的设计 -VB资料 改变 Win95 的 Shell -VB资料 改变墙纸 -VB资料 格式化磁盘 -VB资料 跟我学用ActiveBar-VB资料 VB获得IE的版本号 VB获得Windows启动方式 VB获得打印机驱动程序的设定 VB获得当前计算机上的区域设置 VB获得当前用户名 VB获得分区信息并判断是否有CD VB获得某个文件夹下的所有子目录 VB获得驱动器的卷标 VB获得系统中的所有字体列表 VB获得系统中鼠标的键数 获取驱动器信息-VB资料 文章主题: 获取桌面图象 -VB资料 计算两个日期间的工作日-VB资料 监视外部程序的运行情况-VB资料 检测文件是否存在 -VB资料 检测系统驱动器-VB资料 检查电子邮件地址输入的有效性 -VB资料 如何创建ADO的ConnectionString ? oracle 连接问题 我想考scjp,我想了解它的时效性,意思是几年之内不用再考一遍 怎么获取服务器端机器名称 关于delphi开发工具与其他开发工具的比较? dos界面下如何用dll调用一个.exe文件 dos下如何设置硬盘的电源管理。关闭硬盘停止响应功能的命令。谢谢 Python news 3-19 客户端会出现commandtext does not return a result set提示怎么办? 在BCB中,怎样向一个存储过程的一个DateTime类型的输入参数传递值??????? 我在datawindow中加个按钮,script在那里写,请帮帮忙 祝檬檬生日快乐~~~~~! win2K pro版无法启动! QueryPerformCounter()函数的用法? 求教:如何在delphi 5 中使用HTML Help(.CHM) 神经元网络BP算法源代码? =急=急=急=这个SQL语句是什么意思?? 从数据库读出的一个问题 我昨天在使用过程中发现如下问题,希望能得到您的答复! 请教一个如何写如下的存储过程:查找'abcd',允许错两个字符(错误位置任意),例如'abef'可以, 但是'aefg'不行 小弟学习c有一段时间,究竟学到什么程度才能开始学c++呀? 各位,有没有碰到过这种情况! =急=急=急=大家来看看这个SQL语句是什么意思~~ 在ACESS2000的查询中如何/可否使用ISNULL函数。请举例。 c++ 搞什么呀?不是说有专家回答吗?人呢? blob字段的长度限制是:????? 这样的公司我呆下去还有没有意义? unix 消息队列 这是什么意思??? XML还有什么好处? 读写文本文件的问题??急 程序中每一个按钮和动作对应一个存储过程好吗? 按回车键时,在TEXT中输入大于号怎么实现,谢谢! 请问高手:怎样在interDev6.0中调试程序??? 在jb6中,如何制作包含jdbc和自定义包的jar文件。 问一个很菜的问题:怎么使用编译器? 一个让我头疼的问题,大家来帮帮我! 送分!!!送分!!!!救命救命!!一共200分 何处有单独的SQL Anywhere 5.5下载,只是驱动一下,并不用PowerBuilder开发 www.%s.co.cn如何解决? 请问怎样用VBA将office文档转换为txt文件?? 绝对超难问题,答对的话给50分!!! 为学java散分 说说borland c++的发展史吧 谁能告诉哪里能申请教育网的免费邮件地址,或你给我一个算了,100分给你! BP神经元网络算法的原代码 如何在网页上看ASP的原码? 我用另一台机的SYBASE备份文件拿到本机来恢复,居然不行!请教高手! 关于模板的问题,还请大家多多指点! 我用串口接受数据,可是??? 紫外测COD波长为什么是254 平行金属板其中一板接地,则平行金属板间的场强会变吗? 我想问建筑用的国标钢材如何计算重量 吹出来的美丽的肥皂泡,求它的配方 两块平行金属板与电源相接,其中一块金属板接地后电势为零?或者说明相关的定理至于电势为零的意思是否就是指该点或平面的电压为零?或者是指金属板不带电呢? 离子所带的电荷和化合价化合价的正负价有关系吗?比如说Na+和Na的化合价+1价有关系吗?坐等. 如何快速提高数学和英语成绩(高中的) 两平行金属板间有匀强电场一板接地电势为什么为零,电场强度为什么不变?两平行金属板间有匀强电场,一板接地电势为什么为零,电场强度为什么不变?物理必修3-1 怎么确定离子所带的正负电荷数是多少?跟化合价有什么关系? 怎么快速提高数学英语成绩我是高二文科生 描写肥皂泡的段落描写肥皂泡的的样子. 这我有问题:同种元素(或原子团)的化合价和离子的电荷数通常数值相等,正负号相同,只是书写的位置不同问题1、又不是所有的物质都由离子构成,怎么可以说“同种元素(或原子团)的化 怎样快速提高英语数学成绩?我现在初三,初二初三的时候数学英语都没学,根本不懂,现在离中考还有两个月.怎样快速提高成绩? 哪里可以下载初中数学概念大全?初一初二初三的、还有英语 “肥皂泡炸裂时温度比太阳还高”这句话可信吗? 离子,原子最外层电荷数和化合价问题我在做题时发现,当一种元素中的原子变为离子的时候,失去和得到的电荷数和其化合价好像是相同的,比如镁,Mg,离子表示为Mg2+ (2+右上标注) 化合价为+ 晶胞的理解? 水平放置的两块平行金属板A、B相距为d,电容为c,开始两板均不带电,A板接地且中央有孔.现将带电荷量...水平放置的两块平行金属板A、B相距为d,电容为c,开始两板均不带电,A板接地且中央有孔. 肥皂泡一文4~5自然段哪些词或句子把作者吹肥皂泡的心情和美妙想象都写出来了 什么是超晶胞 相距为d,水平放置的两金属板a,b的电容为C,开始时都不带电,a接地且中间有孔现将带电量为Q,质量为m的带电液一滴一滴从小孔正上方h处无初速地滴下,竖直落到b板上层,电荷全被b板吸收,重力加 用横线把作者吹肥皂泡的心情及感受画下来.应该画那几句? 蛋白质中含氮量平均为16%,以某合格奶粉蛋白质含量为18%计算,含氮量为? 过硫酸钾氧化-紫外分光光度法测总氮220nm波长吸光度过高我用过硫酸钾氧化-紫外分光光度法测总氮时在220nm波长的吸光值都是大于1(用的硝酸钾标准液的浓度时10ug/L硝酸钾),而在275nm波长的 吹起的肥皂泡后面那句是什么 肥皂泡是如何制作的?怎样配制这种溶液?我要做一个魔术,要吹出得泡泡时间持久的肥皂液. 碱性过硫酸钾紫外分光光度法测定水中总氮时,为什么要在两个波长测定吸光度? 怎样快速提高数学英语成绩! 如何制作美丽的“肥皂泡”? 总氮的测定:碱性过硫酸钾分光光度法测总氮我加完碱性过硫酸钾怎么不显色啊加氮完也不显谁知道为什么啊 测土地的ph值 需要用水稀释成水溶液 用多少水好呢 如何做肥皂泡 我刚刚开始做水中总氮的实验,碱性过硫酸钾紫外分光光度法, 如何选择适合的稀释度的土壤悬液接平板 电容器为什么要接地接地是为了电势为零 那你直接规定那一极电势为零就行了 还接地干嘛接地电荷还会改变 使情况更复杂 小明每分钟吹一次肥皂泡,每次恰好吹出100个,肥皂泡吹出之后,经过一分钟有一半破了,经过二分钟还有1/20没有破,经过两分半钟肥皂泡全破了,小明在第20次吹出100个新的肥皂泡的时候,没有破的 土壤的称取和稀释都为何应在火焰旁操作 肥皂泡如何制作,注意,不要胶水,而且泡泡吹出来要好看,一连可以吹出很多个泡泡! 小华每分钟吹一次肥皂泡,每次恰好吹100个.肥皂泡吹出后,经过一分钟有一半破了,经过两分钟还有二十分 算离子电子数时,离子的核外电子数=原子序数(之和)-所带电荷数,为什么要“-所带电荷数”?比如,NH4的电子数=7+4-1=10,为什么? 晶胞参数的求法设一个原子的半径为R,那么体心立方堆积的晶胞参数为R=根号(3)/4*a;金刚石型堆积的晶胞参数为R=根号(3)/8*a.问个很菜的问题,这些答案是怎么推导出来的...最好有图解... 亮亮每分钟吹一次肥皂泡,每次恰好吹出100个.肥皂泡吹出之后,经过一分钟有一半破了,经过两分钟后还有二十分之一没有破,经过两分半钟肥皂泡全部破了.小明在第100次吹出100个新的肥皂泡 离子电子数等于原子或分子电子数加上或减去所带电荷数? 电容接地数字芯片中,数字地接一电容作用.我也知道大概就是过滤 防干扰吧 原理是什么呢? 牛吃草问题:小军每分钟吹一次肥皂泡,每次恰好吹出100个,肥皂泡吹出后,一分钟后一半破了,两分钟后还有二十分之一没破,两分半以后全破了.那么,小军在吹完第20次后,还有多少个肥皂泡没破 怎么提高数学成绩和英语成绩 肥皂泡?小明每分钟吹一次肥皂泡,每次恰好吹出180个,肥皂泡吹出之后,经过一分钟有一半破了,经过两分钟还有百分之5没有破,经过两分半钟肥皂泡全破了,小明在第30次吹了80个新的肥皂泡的时 王涛吹肥皂泡,每分钟吹一次,每次恰好能吹100个.肥皂泡吹出来后,经过一分钟有一半会破,经过2分钟只剩没有破.经过两分半钟肥皂泡就全破了.当王涛第20次吹出100个新肥皂泡是,没有破的肥皂 凹凸透镜成像规律最好附带探究的过程及结论. 我总是不会找晶胞,谁能教教我?是不是晶胞向左向右向上向下平移后会重合? 如何快速提高数学和英语成绩小女子今年都高三了,数学和英语成绩一直不好,想提高一下,请问各位大侠该怎么办呀?有什么方法?现在我可是快急死了 对凹凸透镜成像规律的研究 请问电容接地有什么用? 总氮的实验数据超出方法最高检测限(4mg/L)怎么处理?方法是碱性过硫酸钾紫外分光光度法 凸透镜成像规律 紫外分光光度法测定COD用纯水调零还是空气调零为什么 碱性过硫酸钾消解水样,测总氮, 220nm 吸光度变得很小,原因何在?之前测的时候220nm的时候大约是1.378这样的大小,但是最近测了几次,在220nm的时候都是0.079这样,突然变得很小,请问为什么呢?是在 .关于凸透镜成像.凹透镜成像.平面镜成像的原理如题.顺便说下在什么情况下成的像是什么.例如:正立放大的虚像. 国标COD检测 空白试验的值有多少空白试验中消耗硫酸亚铁铵标准溶液的用量 平行金属板其中一板接地说明什么 国标罗纹钢的重量怎么算?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘