《高中信息技术教学论文 用Visulsic实现多画面播放功能》由会员分享，可在线阅读，更多相关《高中信息技术教学论文 用Visulsic实现多画面播放功能（16页珍藏版）》请在金锄头文库上搜索。
1、用心 爱心 专心1用用 VisualBasicVisualBasic 实现多画面播放功能实现多画面播放功能 所谓动态画中画，指的是在大画面视频播 放时，小画面在大画面中也播放另外的画 面，或者是两个画面都在做某种活动。 笔者前段时间用 Visual Basic 开发了一个 vcd 播放程序，可以实现以下功能： (1) 可以多屏播放，也就是画中画功能， 可同时播放几个不同的画面； (2) 可以同时播放 cd-rom 中的视频音频文 件(当然，在硬盘中播放速度会更快些) (3)支持多种文件格式(如.dat、 .wav、 . avi、 .mov、 .mmm、 .mid、 .rmi、 .mp g、 .
2、mpa、 .mpv 等)； 用心 爱心 专心2(4) 自带画面美观且功能齐全的 cd 播放程 序； (5) 增强了鼠标的右键功能，用它可以控 制各画面的大小(1/16、1/4、1/2、1、2 倍 和全屏)、播放、暂停等； (6) 控制声音、图像、时间/帧显示转换、 自动重播等； (7) 控制条随意拖动播放，再加上定时播 放、自定义播放时间等播放方式，可使您 更加惬意地控制 vcd； (8) 屏幕可随意拖动，画面可任意放缩。 用心 爱心 专心3vcd 中的影像文件都在光盘的 mpegav 目录 下，文件名只有两种：avxeq01.dat 或 mus ic01 .dat(如果是音乐版的卡拉 ok，
3、则还 有 music02 .dat 等。) 可视动画控件 activemovie 是 microsoft 公司的控件，从不成熟的 1.0、1.2 到 2.0 ，每次都有了很大的改进，如 1.0 版本中 有几个属性是只读的(例如，displaymode 只能为 amvtime，而不能改为 amvframes) 。该控件支持音频文件(.wav、.mid、.rmi)、 影片文件(.avi、.mov、.mmm、.mpeg、.mp g、.mpa、.mpv)和 vcd 文件(.dat)等。播 放时若用鼠标右键单击画面，则可以直接 对画面的播放、暂停、停止等进行控制， 读者还可以自行在“属性”栏中对影片播
4、放进行控制设置，诸如设置“播放次数” 、“音量”、“影片大小(1/16、1/4、1/2 、1、2 倍和全屏”、“面板”、“颜色” 、“过滤器”等。这种技术的实现实际上 是 vb 调用 activemovie 控制器来完成的，用心 爱心 专心4而 activemovie 控制器内嵌了 microsoft m peg 音频解码器和 microsoft mpeg 视频解 码器。 首先，我们建立一个“项目”，依次选择 “项目/部件”，然后添加 microsoft acti vemoviecontrol (amovie.ocx)、microsoft commandialog control(comdlg
5、32.ocx) ，控件即出现在“工具箱”中。将上述两 个控件加进窗体，再单击“菜单”工具栏 ，建立一个主菜单项：“文件”(file)及 其子菜单项：“打开 a 画面”(opena)。 在 opena 中加入如下代码： private sub opena-click () on error resume next 用心 爱心 专心5commondialog1.filter =“video file (*. dat)*.datwave file (*.wav)avi f ile (*.avi)(*.avi)movie file (*.m ov)(*.mov)media file (*.mmm)(*
6、. mmm)mid file (*.mid;*.rmi)(*.mid; *.rmi)mpeg file (*.mpeg)(*.mpeg) all file (*.*)*.*“ commondialog1.filterindex =1 commondialog1.showopen activemove1.filename = commondialog1.filename activemove1.height = form1.height 用心 爱心 专心6activemove1.width =form1.width activemove1.run end sub 这是对单个的 activemov
7、ie1 进行控制。还 可以在“文件”(file)中依次加入子菜单 ：“打开 b 画面”(openb)、“打开 c 画面 ”(openc)，并相应地加入 activemovie2、activemovie3 等多个画面，将上述程序代 码略为改动后加入。这样，当您按下 f5 键 即运行程序，打开您想要播放的 vcd 文件 就可以欣赏 vcd 了。在屏幕上单击右键， 还可以控制画面呢！ 用心 爱心 专心7现在是否就满足了呢？不行！我们再增加 一个用鼠标任意拖动屏幕的功能： private sub activemovie1-mousedown (b utton as integer ,shift as
8、integer ,xas single ,y as single) activemovie1.drag 1 x1=x y1=y end sub 我们还增加了一个定义任意播放时间的主用心 爱心 专心8菜单项：“时间”(time)及其子菜单项： “画面 a 时间”(settimea)： private sub settimea-click () on error resume next dim r as integer r=inputbox (“请输入时间(分钟：0-60)“)r=r*60 activemovie1.currentposition =int(r) 用心 爱心 专心9activemo
9、vie1.run end sub currentposition 是控制 vcd 播放的时间： (1)activemovie1.currentposition =0(从 头开始)；(2)activemovie1.currentposit ion =900(15 分钟后)；(3)activemovie1.c urrentpo-sition =1800(30 分钟后)。依次 类推，但是不能超过 60 分钟。 我们再增加一个主菜单项：“屏幕”(scre en)及其子菜单项：“全屏 a”(fullscreen a)，用来控制屏幕大小： private sub fullscreena -click ()
10、 用心 爱心 专心10on error resume next activemovie1.fullscreenmode=true activemovie1.run activemovie1.moviewindowsize =amvmaxi mized end sub fullscreenmode 用来控制画面是否为全屏 ，当它为 true 时则全屏方式播放 vcd，为 false 时则取消全屏方式。 用心 爱心 专心11moviewindowsize 也是控制屏幕的大小：(1)全 屏大小：activemovie1.moviewindow-size=amvmaximized；(2)正常大小：ac
11、tivemovie1.moviewindowsize =amvoriginalsize ；(3)倍屏：activemovie1.moviewindowsi ze =amvdoubleoriginalsize；(4)1/2 屏：activemovie1.moviewindowsize =amvoneh alscreen；(5)1/4 屏：activemovie1.movi e-windowsize =amvonefourthscreen；(6) 1/16 屏：activemovie1.moviewindowsize =amvonesixteenscreen。 我们可以随意控制屏幕了。下面，让我们
12、 再把声音控制一下吧！ microsoft activemovie 控件 2.0 版的确比 1.2、1.0 改善不少！1.2、1.0 版在我的创 新 awe64 顶级声卡中的表现很不尽人意， 但 2.0 版却把我拉“科达”音箱功能在创 新 awe64 的驱动下发挥得淋漓尽致！想必 m用心 爱心 专心12icrosoft 公司对 activemovie 控制器中内 嵌的 mpeg 音频解码器下了苦功！ 我们在菜单中增加主菜单项：“声音”及 其子菜单项“增加”(soundadd 棗快捷键设 置为 f4)和“减少”(soundduce 棗快捷键 设置为 f5)，分别用来控制声音的增强： privat
13、e sub soundadd -click () activemovie1.volume= activemovie1.vol ume +100 end sub private sub soundduce -click () 用心 爱心 专心13activemovie1.volume= activemovie1.vol ume -100 end sub 当然，我们还想增加“静音”(soundno)功 能。经我反复试验，当 activemovie1.volu me= -4000 时效果最好！ 我们还需要让 vcd 播放完后乖乖地“自动 重播”(autoreplay)： private sub au
14、toreplay -click () activemovie1.autorewind= true 用心 爱心 专心14 autorewind 设置播放时是否“自动播放” end sub 为了让 vcd 播放时交替“显示帧”(showfr ame)或“显示时间”(showtime)，可在 dis playmode 中进行设置： private sub showframe -click () on error resume next activemovie1. displaymode =amvframes 用心 爱心 专心15end sub private sub showtime -click () on error resume next activemovie1. displaymode =amvtimes end sub 经过上面的设计，功能也凑合了。行了吗 ？别急！我们还想将界面搞得漂亮一点。 例如，增加工具栏，加强鼠标右键的功能 和画面中的双击功能等。
