用VisualBasic6.0實現電影特效

2019-11-18 17:41:22

字體：大中小

來源：轉載

供稿：網友

電影或電視中經?？梢姷揭恍┳帜换驁D片的動態變化特技，在制作多媒體教學軟件或廣告宣傳等多媒體演示文檔時，也常常需要用到一些圖文的動態變化效果。VB6.0作為Windows軟件的強有力開發工具，在多媒體程序設計方面具有廣闊的應用前景。本文討論運用VB6.0的定時器并結合WindowsAPI函數實現圖片或文字的動態縮放和漸隱漸現等特技效果。

　　一、實現圖文動態縮放和漸隱漸現特效的程序方法

　　1、程序界面

　　取窗體名為Form1，其Windowstate屬性設為2。在窗體Form1中設置如下控件和屬性:一個標簽控件Label1，其backcolor等于form1的backcolor;bondstyle為0,Autosize為True。一個圖像控件image1，其Stratch和Visible均為True;Bordstyle為0。兩個圖片框控件Picture1和Picture2,Visible屬性Picture1為False而Picture2為True;AutoRedraw屬性Picture1為True而Picture為False;ScaleModel屬性兩者均為Pixels;Bondstyle屬性兩者均為0。三個定時器控件Timer1,Timer2和Tirner3;命令按鈕控件數組cmd(0)，......,Cmd(4)，其caption屬性分別為:“文字縮放”、“圖片縮放”、“文字隱現”、“圖片隱現”和“退出”。

　　2、文字的動態縮放　

　　通過VB6.0的定時器控件定時改變文字的Size屬性，就可達到文字被動態放大或縮小的效果。程序中通過timer1的tuner過程來控制標簽Label1的caption屬性文字大小。由cmd(0)觸發的cmd_click事件引發timer1_time過程，通過一邏輯變量1(0)(數組元素)控制文字的變化方式，1(0)=true時使字體動態放大，1(0)=false時使字體動態縮小。

　　3、圖形的動態縮放

　　將圖像控件image1的stretch屬性設為true，可實現控件中圖片大小隨imagel控件大小的變化而變化。通過定時器timer2的tuner過程定時改變imagel控件的尺寸大小，就達到了使圖片動態縮放的效果。由cmd(1)觸發的cmd_click事件將引發timer2_time過程，通過邏輯變量1(1)控制圖片變化的方式，1(1)=true時控制圖片動態放大，1(1)=false時控制圖片動態縮小。

　　4、文字的漸隱漸現效果

　　從字符串中取若干個文字作為標簽Label1的caption值，如果從字串中截取的文字數遞增(直到等于字串的全部字數)，則實現文字漸現效果;而截取的文字如果遞減(從字串的全部字數減到0)，則實現文字漸隱效果。通過定時器timer3的time:過程定時改變截取的字數，來達到此效果。由cmd(2)觸發的。md_click事件引發timer3_time過程，通過邏輯變量1(2)控制文字變化的方式，1(2)=true時使文字漸現，1(2)=false時使文字漸隱。

　　5、圖形的漸隱漸現效果

　　用WindowsAPI函數BitBlt復制圖片的方法實現。BitBlt函數的使用方法為:

->BitBlthDestDC,x,y,nWidth,nHeight,hSrcDC,xSrc,ySrc,dwRop->