展看用visualbasic实现多画面播放功能

展看用visualbasic实现多画面播放功能

ID:22142206

大小:83.00 KB

页数:18页

时间:2018-10-27

展看用visualbasic实现多画面播放功能_第1页
展看用visualbasic实现多画面播放功能_第2页
展看用visualbasic实现多画面播放功能_第3页
展看用visualbasic实现多画面播放功能_第4页
展看用visualbasic实现多画面播放功能_第5页
资源描述:

《展看用visualbasic实现多画面播放功能》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库

1、展看用VisualBasic实现多画面播放功能所谓动态画中画,指的是在大画面视频播放时,小画面在大画面中也播放另外的画面,或者是两个画面都在做某种活动。笔者前段时间用VisualBasic开发了一个vcd播放程序,可以实现以下功能:(1)可以多屏播放,也就是画中画功能,可同时播放几个不同的画面;(2)可以同时播放cd-rom中的视频音频文件(当然,在硬盘中播放速度会更快些)(3)支持多种文件格式(如.dat、.ov、.mmm、.mid、.rmi、.mpg、.mpa、.mpv等);(4)自带画面美观且功能齐全的c

2、d播放程序;(5)增强了鼠标的右键功能,用它可以控制各画面的大小(1/16、1/4、1/2、1、2倍和全屏)、播放、暂停等;(6)控制声音、图像、时间/帧显示转换、自动重播等;(7)控制条随意拖动播放,再加上定时播放、自定义播放时间等播放方式,可使您更加舒服地控制vcd;(8)屏幕可随意拖动,画面可任意放缩。vcd中的影像文件都在光盘的mpegav目录下,文件名只有两种:avxeq01.dat或music01.dat(假如是音乐版的卡拉ok,则还有music02.dat等。)可视动画控件activemovie是

3、microsoft公司的控件,从不成熟的1.0、1.2到2.0,每次都有了很大的改进,如1.0版本中有几个属性是只读的(例如,displaymode只能为amvtime,而不能改为amvframes)。该控件支持音频文件(.id、.rmi)、影片文件(.avi、.mov、.mmm、.mpeg、.mpg、.mpa、.mpv)和vcd文件(.dat)等。播放时若用鼠标右键单击画面,则可以直接对画面的播放、暂停、停止等进行控制,读者还可以自行在“属性”栏中对影片播放进行控制设置,诸如设置“播放次数”、“音量”、“影片

4、大小(1/16、1/4、1/2、1、2倍和全屏”、“面板”、“颜色”、“过滤器”等。这种技术的实现实际上是vb调用activemovie控制器来完成的,而activemovie控制器内嵌了microsoftmpeg音频解码器和microsoftmpeg视频解码器。首先,我们建立一个“项目”,依次选择“项目/部件”,然后添加microsoftactivemoviecontrol(amovie.ocx)、microsoftmandialogcontrol(dlg32.ocx),控件即出现在“工具箱”中。将上述两个控

5、件加进窗体,再单击“菜单”工具栏,建立一个主菜单项:“文件”(file)及其子菜单项:“打开a画面”(opena)。在opena中加进如下代码:privatesubopena-click()onerrorresumenextmondialog1.filter="videofile(*.dat)∣*.dat∣oviefile(*.mov)∣(*.mov)∣mediafile(*.mmm)∣(*.mmm)∣midfile(*.mid;*.rmi)∣(*.mid;*.rmi)∣mpegfile(*.mpeg)∣(*.

6、mpeg)∣allfile(*.*)∣*.*"mondialog1.filterindex=1mondialog1.shoove1.filename=mondialog1.filenameactivemove1.height=form1.heightactivemove1.1.ove1.runendsub这是对单个的activemovie1进行控制。还可以在“文件”(file)中依次加进子菜单:“打开b画面”(openb)、“打开c画面”(openc),并相应地加进activemovie2、activemovi

7、e3等多个画面,将上述程序代码略为改动后加进。这样,当您按下f5键即运行程序,打开您想要播放的vcd文件就可以欣赏vcd了。在屏幕上单击右键,还可以控制画面呢!现在是否就满足了呢?不行!我们再增加一个用鼠标任意拖动屏幕的功能:privatesubactivemovie1-mousedown(buttonasinteger,shiftasinteger,xassingle,yassingle)activemovie1.drag1x1=xy1=yendsub我们还增加了一个定义任意播放时间的主菜单项:“时间”(ti

8、me)及其子菜单项:“画面a时间”(settimea):privatesubsettimea-click()onerrorresumenextdimrasintegerr=inputbox("请输进时间(分钟:0-60)")r=r*60activemovie1.currentposition=int(r)activemovie1.runendsubcurrentposition是控制v

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。