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

用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 播 放 器 了。
VB5.0数据库基础 非编程方式访问数据库-VB资料 VB用编程方式访问数据库 VB 5.0数据库设计技术讲座(4) VB5.0数据库编程经验小集 VB5在处理数据库时的几个“BUG” VB6.0中的几个新增数据库工具 VB处理数据库时求数据表记录总数的最佳方法 VB访问数据库的方案比较 VB数据库编程经验两则 VB数据库编空字段的处理 VB数据库多字段记录的录入 VB数据库记录查询四法 vb应用程序访问sql server方法探讨 VB中超长OLE数据库字段的操纵方法 VB中将数据转换为数据库文件 VB中远程数据库的访问 Visual Basic 的数据库编程 Visual Basic数据库数据的选项录入及选项增减与编辑 把资料输往Excel来列印-VB资料 报表中的滚动问题-VB资料 编写Connect Strings-VB资料 表或查询是否存在-VB资料 不创建DSN直接在程序中使用ODBC数据源-VB资料 不用 DATA 控件操作数据库文件 -VB资料 不用 EOF 以加快记录循环-VB资料 处理Select语句中的单引号 -VB资料 断开所有的数据连接 -VB资料 访问VB外来数据库 非access数据库在vb中的编程及应用 关闭程序中所有创建的数据库连接。 -VB资料 了解:今年高程考试有没有新增内容,因为去年就新增了CMM、C++、OA办公自动化软件开发等知识,事先也没有通知各位考生。 绝对好文---------------人力资源“总奸”的自白-------ZT 中秋检举 一个恶意网站! 用PHP上传文件到LINUX服务器,结果文件用FTP软件删不掉 有做网格控件经验的请进 请教一个数据库的小问题 各位高手帮帮我! 高手来帮忙!!! 菜鸟提问:怎样从HBITMAP获得BMP的尺寸?(SDK) 请帮忙。 请问一个关于photoshop的问题,多谢指教100分 vb excel 关于MFC多文档在何处放置自已的初始化文档的代码? 今年又是一个人过中秋,终于想找个GF了! 电影画面倒置是怎么回事? 如何将pbyte指向的byte数据传递给byte数组或char等 送分 为中秋节还工作在自己岗位上的朋友散分! 送分 cgi---這裡有多少個寫法?? 送分 gcc编译好的程序怎么运行阿? 关于多文档的问题:如何固定视窗大小? 替换字符串 初学VC的困惑——什么是标准C?? 一个小数,如何确定小数点的位数? 菜单乱码,求救! 怎样调用delphi编的DLL中的函数 关于XP操作系统中的imail 服务器的配置问题 請問有多少個寫法?????在线等待!急啊! to 思归 ,VIEWSATE的那个问题,无人回答,我贴出代码了,你看看, substring(indexA, indexB) 的官方解释不明白 请教大师两个问题 卷积是什么意思?请介绍一下这方面的资料? 用户界面与开发环境怎样脱离????? ASE 12.5.0 FOR NT安装问题。。。 没分了,但还得提这个问题? ComboBox问题? combobox问题? 散分 发现QQ一个惊人的大秘密!!!! 请教yahoo上 点一下“セキュア(SSL)”怎么会使网站可以进行ssl加密??怎么做到的? 中秋节的晚上还在SQL版上晃的朋友进来 一个菜鸟问题 超级简单的问题 Win2000的开机画面,能改吗 中秋快乐!!!怎么样录制清楚无杂音的音效?帮个忙,多谢了!!!等待…… 一个很简单的问题 hash算法可逆吗? 过节了,特来散分,祝大家中秋愉快。 中秋节了,给父母打电话,可是现在每次都说不到一块儿去…… 新大学法语2(UNITE10课文+译文)贝聿铭的翻译. 求新大学法语1,2,3第二版音频文件啊 快捷键CTRL+QUOTE中的QUOTE是哪个键? 请教下这个quote 的含义many labels are “mislead and confuse the mind,which is trying to make sense of a disorderly reality that won’t be pigeonholed”lables 在这里的意思是 种族主义 比如 白种人 伊斯兰人 黑人.求这句 HTML语言中是什么意思?引用是什么意思? (a一21)(35一10a)=400求解 这个广告语好在哪里?特步——飞一般的感觉急用~(>_ 以后地球真的会灭亡吗?好害怕地球会灭亡. (x-21)(350-10x)=400 有1个梯形,上底与下底的比是7:3,它的高师10厘米.如果上底减去12厘米,下底增加16算式 都要,有1个梯形,上底与下底的比是7:3,它的高师10厘米。如果上底减去12厘米,下底增加16厘米,则它就变成 21分之10x=7分之3*2分之3 解方程不对。应该是21分之10x÷3分之2=7分之3 北京全城再陷严重污染 首次启动蓝色预中央气象台继续发布霾黄色预警 华北局尼日利亚叛军袭击军队 医院收到35具财经随笔:俄罗斯老拉达遭遇进口车挑战格鲁吉亚大选出口民调显示执政联盟或将澳大利亚山火多处火情失控 1名救援飞美管理自身经济能力遭疑 奥巴马急于吸浙江温岭遇害医生遗体被送殡仪馆 医务温岭市一医院“10·25”事件善后工综述:东南亚能源市场潜力备受关注南航空客380首航悉尼成功退休后的“五子登科”快快乐乐健康行假借淘宝名义开展“扶持计划”你可知道,七夕也叫乞巧节“链接未来 2014彭鸣亮艺术大展”小吴的小窍门我和老年教育的情缘我家的两个“囡”中国大陆台湾游客赴泰有望免签证费夏防老人尿路感染饮品暑天里挑战智力与体力无敌废少葬仙途剑指苍穹红色官途界痕凌霄传剑尊国企之花对不起现在我才爱上你我们一起去穿越焚天界主我的三只眼睛蜀仙园旅游鼓浪屿心跳馆旅游银屿岛旅游永乐群岛旅游西递古村旅游双龙壁旅游老龙口酒博物馆旅游塔尔坡古村旅游神仙峪旅游兴坪古戏台旅游龙王庙旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘