用VB6.0實現(xiàn)幾種圖文特效的演示程序

1、電影或電視中經(jīng)?？梢姷揭恍┳帜换驁D片的動態(tài)變化特技，在制作多媒體教學軟件或廣告宣傳等多媒體演示文檔時，也常常需要用到一些圖文的動態(tài)變化效果。VB6.0作為Windows軟件的強有力開發(fā)工具，在多媒體程序設計方面具有廣闊的應用前景。本文討論運用VB6.0的定時器并結(jié)合Windows API函數(shù)實現(xiàn)圖片或文字的動態(tài)縮放和漸隱漸現(xiàn)等特技效果。一、實現(xiàn)圖文動態(tài)縮放和漸隱漸現(xiàn)特效的程序方法1、程序界面取窗體名為Form1，其Windowstate屬性設為2。在窗體Form1中設置如下控件和屬性:一個標簽控件Label1，其backcolor等于form1的backcolor; bondstyle為0,

2、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;命令按鈕控件數(shù)組cmd(0)，.,Cmd(4)，其caption屬性分別為:文字縮放、圖片縮放、文字隱現(xiàn)、圖片隱現(xiàn)和退出

3、。 2、文字的動態(tài)縮放通過VB6.0的定時器控件定時改變文字的Size屬性，就可達到文字被動態(tài)放大或縮小的效果。程序中通過timer1的tuner過程來控制標簽Label1的caption屬性文字大小。由cmd(0)觸發(fā)的cmd_click事件引發(fā)timer1_ time過程，通過一邏輯變量1(0)(數(shù)組元素)控制文字的變化方式，1(0) = true 時使字體動態(tài)放大，1(0) = false時使字體動態(tài)縮小。3、圖形的動態(tài)縮放將圖像控件image1的stretch屬性設為true，可實現(xiàn)控件中圖片大小隨imagel控件大小的變化而變化。通過定時器timer2的tuner過程定時改變imag

4、el控件的尺寸大小，就達到了使圖片動態(tài)縮放的效果。由cmd(1)觸發(fā)的cmd_click事件將引發(fā)timer2_time過程，通過邏輯變量1(1)控制圖片變化的方式，1(1)=true時控制圖片動態(tài)放大，1(1)=false時控制圖片動態(tài)縮小。4、文字的漸隱漸現(xiàn)效果從字符串中取若干個文字作為標簽Label1的caption值，如果從字串中截取的文字數(shù)遞增(直到等于字串的全部字數(shù))，則實現(xiàn)文字漸現(xiàn)效果;而截取的文字如果遞減(從字串的全部字數(shù)減到0)，則實現(xiàn)文字漸隱效果。通過定時器timer3的time:過程定時改變截取的字數(shù)，來達到此效果。由cmd(2)觸發(fā)的。md_click事件引發(fā)timer

5、3 _time過程，通過邏輯變量1(2)控制文字變化的方式，1(2)=true時使文字漸現(xiàn)，1(2)=false時使文字漸隱。5、圖形的漸隱漸現(xiàn)效果用Windows API函數(shù)BitBlt復制圖片的方法實現(xiàn)。BitBlt函數(shù)的使用方法為:BitBlt hDestDC, x, y, nWidth, nHeight, hSrcDC, xSrc, ySrc,dwRop其中各參數(shù)的含義為:hDestDC和hSrcDC分別表示目標設備描述表句柄和源設備描述表句柄。即要把圖片從hSrcDC復制到hDestDC。Picturellox控件的hDC屬性就是我們要用到的設備描述表句柄。x, Y表示目標中左上角的

6、位置，nWidth, nHeight表示目標中的寬和高。即要把圖片復制到目標設備描述表中的什么位置，以及復制多寬和多高。xsrc和ySrc表示源圖片中的左上角位置，即表示從什么位置開始復制。DwRop參數(shù)表示一種繪制方式，常用直接復制方式，這時就取SRCCOPY。二、實現(xiàn)圖文動態(tài)縮放和漸隱漸現(xiàn)特效的程序代碼對全局變量和API函數(shù)的通用聲明(API函數(shù)Sleep, BitBlt及其常參數(shù)SRCCOPY的聲明從略，可從API瀏覽器中復制、粘貼):Dim 1(4) As Boolean, i as Long, s As String, zt As Integer實現(xiàn)圖片漸現(xiàn)漸隱的通用過程:Priva

7、te Sub PicCpy(Optional strip As Integer=10, Optional delay As Integer=20)Dim plw As Integer, plh As Integer,p2 As IntegerIf 1(3)=True ThenPicture1 = LoadPicture(c:win98安裝程序.bmp)ElsePicture1=LoadPicture()End Ifplw = Picturel.Widthplh=Picturel.Heightp2=0Do While p2= plwBitBlt Picture2.hDC,p2,0, strip,

8、 plh, Picture1.hDC,p2,0,SRCCOPYp2=p2 + stripSleep delayDoEventsLoop由于圖片寬度不一定是strip的整數(shù)倍，故下面再全圖復制一遍圖片:BitBlt Picture2.hDC,0,0,plw,plh,Picture1.hDC,0,0,SRCCOPYEnd SubPrivate Sub Form_load()Label1.Font.Name=黑體Image1.Top=0Image1.Left=0Picture2.Top=0Picture2.Left=Screen.Width - Picthne2.Widths=產(chǎn)生縮放和隱現(xiàn)效果的文

9、字zt=5zt為字體大小控制變量i=0 i為顯示文字時截取文字的字數(shù)變量End SubPrivate Sub Cmd_Click (Index As Integer)If 1(Index)=True Then1(Index)=FalseElse1(Idex) = TrueEnd IfSelect Case IndexCase 0 激活timer1的timer過程Timer1.Enabled=TrueTimer1.Interval=50. Case1, 2與上述類似，分別激活timer2, timer3的timer過程Case 3 調(diào)用圖片復制過程PiccpyPiCpy 10, 50Case 4

10、結(jié)束程序運行Unload MeEndEnd SelectEnd SubPrivate Sub Timer1_Timer() 實現(xiàn)文字縮放的過程If 1(0)=Trun Thenzt=zt50 or zt=Form1.Width/2) or(Image1.Width =Len(s) on i=0 ThenLabel1.Caption=Left$(s,i)End IfEnd Sub 以上程序在VB6.0和Windows98/2000環(huán)境下調(diào)試通過。actively carry out the law on civil air defense education, drawn out of the air defense in Pingliang city Building under easy fare, daily special inspection and regulation, overfulfil