时间: 2021-07-31 作者:daque
郝卫娟 当心腹联合时,即使你不妨拿出亲手创造的一本多媒介影集,断定那幽美的后台音乐和让人扑朔迷离的绝技功效确定会令她们赞不绝口! 本来,这并不搀杂,只有肯花些工夫,断定你确定不妨创造出很好的大作!底下让咱们用vb发端处事吧! 一、创造运转界面 在form1窗口增添以次重要控件: 图片框picturebox(picdest,picsource):用以演练图片素材。 准时器 (timer1):遏制音乐的轮回播放。 准时器 (timer2):遏制图片的轮回播放。 媒介遏制东西microsoft multimedia control(mciwave):用以播放音乐。 二、编写相片演练步调代码 罕见的绝技图像表露办法重要有扫描、挪动、吊窗、马赛克等。在这边,咱们只演示二个常用的画图办法,即使有爱好,实足不妨在此普通上加以变换,获得更多的把戏。正文主假如用vb中的paintpicture本领来实行。 1) 扫描表露办法 扫描表露是动静画图本领的最基础情势,其道理是将源图像一条龙一条龙或一列一列地复制到目的地区,共同稍微的功夫推迟及数据复制的目标,从屏幕上看就像是向下或向右顺序将图形扫描出来。 由上至下扫描表露的实行本领是:从图像的顶部向下一条龙一条龙地从源东西中将位图复制到目的东西中,每复制一条龙后都加上确定的延时。底下的代码将实行向下扫描表露。(代码中dest为目的东西,source为源东西,dtime为推迟功夫。表露图像已装入source。) for j = 1 to 100 dest.paintpicture source.picture, 0, 0, picwidth, j ?stepy, 0, 0, picwidth, j ? stepy sleep dtime next j 按照扫描目标的各别,再有进取、向左、向右、程度等分和笔直等分等多种,本来新颖码大概一致。 2) 吊窗表露办法 吊窗表露办法,就如封闭吊窗一律,图像被分红一条一条地表露出来。百页窗表露办法可分为笔直和程度两种情势。 笔直吊窗表露的实行本领是,开始将图像笔直平分为n局部,分n次实行每局部图像的向下扫描表露。但扫描表露时,按照差值扫描举行,即第i次表露i、i+n、...i+j?n、...条扫描线,比方第1次表露1、9、17...条扫描线,第2次表露2、10、18...条扫描线,直到图像完备表露。 笔直吊窗表露代码如次: scanline = n for i = 0 to (scanline - 1) for j = i to picwidth step scanline dest.paintpicture source.picture, j, 0, 1, picheight, j, 0, 1, picheight next j next i 实行程度吊窗表露时,道理与上同,轮回体代码窜改如次即可: dest.paintpicture source.picture, 0, j, picwidth, 1, 0, j, picwidth, 1 三、编写后台音乐步调代码 1)封闭音乐closemusic() if not mciwave.mode = 524 then mciwave.command =″close″ 2)播放音乐playmusic() closemusic mciwave.devicetype = ″waveaudio″ mciwave.filename =app.path + ″\music\″+ ″ tears.wav″ ′在此处不妨将你爱好的音乐文献介入 mciwave.command=″open″ mciwave.command = ″play″ 3)音乐播放完后树立重播状况mciwave-done(notifycode as integer) if firstflag then firstflag = false timer2.enabled = true timer2.interval = 1000 4)准时器准时播放音乐private sub timer2-timer() timer2.enabled=false playmusic firstflag = true