五彩繽紛的清屏效果

2019-11-18 17:50:09

字體：大中小

來源：轉載

供稿：網友

在一些軟件演示中，這一屏內容到下一屏內容間往往以一些有趣的清屏圖案來相互切換，有的像演出舞臺上的開幕、閉幕，有的像百葉窗，也有一些圓形、菱形等形態各異的清屏圖案。VB作為一門優秀的WINDOWS下的開發語言，其圖形功能也很強。我們完全可以用其提供的畫線語句作出上述的清屏圖案，下面的程序給出了常見的清屏圖案程序：
　　SubFilSCrO'設置背景色
　　Me.BackColor=RGB(Int(Rnd＊256),Int(Rnd＊256),Int(Rnd＊256))
　　EndSub
　　SubClrScrl()'從左右兩邊到中間清屏
　　DimIAsInteger：Randomize：color=RGB(Int(Rnd＊256),Int(Rnd＊256),Int(Rnd＊256))
　　ForI=0ToScaleWidth/2
　　Line(I,0)－(I,ScaleHeight),color
　　Line(ScaleWidth－I,0)－(ScaleWidth－I,ScaleHeight),color
　　NextI
　　EndSub
　　SubClrSer20'從中間到左右兩邊清屏
　　DimIAsInteger：Randomize：color=RGB(Int(Rnd＊256),Int(Rnd＊256),Int(Rnd＊256))
　　forI=ScaleWidth/2To0Step－1
　　Line(I,0)－(I,ScaleHeight－1),color
　　Line(ScaleWidth－I,0)－(ScaleWidth－I,ScaleHeight),color
　　NextI
　　EndSub
　　SubClrScr30'從上(頂)下(低)到中間清屏
　　DimIAsInteger：Randomize：color=RGB(Int(Rnd＊256),Int(Rnd＊256),Int(Rnd＊256))
　　ForI=0ToScaleHeight/2
　　Line(0,I)－(ScaleWidth,I),color
　　Line(0,ScaleHeight－I)－(ScaleWidth,ScaleHeight－I),color
　　nextI
　　EndSub
　　SubClrScr40'從中間到上(頂)下(底)清屏
　　DimIAsInteger:Randomize:color=RGB(Int(Rnd＊256),Int(Rnd＊256),Int(Rnd＊256))
　　ForI=ScaleHeight/2To0Step－1
　　Line(0,I)_(ScaleWidth,I),color
　　Line(0,ScaleHeight－I)－(ScaleWidth,ScaleHeight－I),color
　　NextI
　　EndSub
　　SubClrScr50'菱形清屏，從四角向中心
　　DimI,jAsInteger:Randomize:color=RGB(Int(Rnd＊256),Int(Rnd＊256),Int(Rnd＊256))
　　ForI=0ToScaleWidthSep200
　　Forj=0ToScaleHeightStep200＊ScaleHeight/ScaleWidth
　　Line(I,0)－(0,j),color
　　Line(ScaleWidth－I,ScaleHeight)－(ScaleWidth,ScaleHeight－j),color
　　Line(0,ScaleHeight－j)－(I,ScaleHeight),color
　　Line(ScaleWidth－I,0)－(ScaleWidth,ScaleHeight－j),color
　　Nextj
　　NextI
　　EndSub
　　SubClrScr60'圓形清屏，由大至小從外圍向中心
　　DimIAsInteger:Randomize:color=RGB(Int(Rnd＊256),Int(Rnd＊256),Int(Rnd＊256))
　　ForI=ScaleWidthTo0Step－3
　　Circle(ScaleWidth/2,ScaleHeight/2,I/2,color
　　NextI
　　EndSub
　　SubClrScr70'圓形清屏，由小至大從中心向外圍
　　DimIAsInteger:Randomize:color=RGB(Int(Rnd＊256),Int(Rnd＊256),Int(Rnd＊256))
　　ForI=0ToScaleHeightStep3
　　Circle(ScaleWidth/2,ScaleHeight/2),I/2,color
　　NextI
　　EndSub
　　‘以上程序作為定義的子函數，置于General間
　　SubForm_Activate()
　　FillSCr;ClrScr1;ClrScr2;ClrScr3;ClrScr4;ClrScr5;ClrScr7;ClrScr6
　　EndSub
　　PRivateSubForm_Click()
　　End
　　EndSub
　　注：該程序在VB3.0、VB4.0、VB5.0下均通過，程序一開始運行即先后演示從左右到中間，從中間到左右，從上下到中間，從中間到上下，從四角向中心(菱形)，從中心向外圍(圓形)，從外圍向中心(圓形)等清屏圖案。最后兩個清屏圖案很有趣，清屏結束后還會形成從中心到四角的放射狀圖案，似孔雀開屏一樣。有興趣的讀者不防一試。另外，請注意FORM(窗體)的AutoRedraw屬性值應為False，若為True，則將看不到效果。(昆明無為)
　　編輯點評：各種清屏特效的編程實現似乎是老生常談，但從來稿的情況上看，我們發現大多數編程仍然局限于一些比較陳舊的內容，因此，刊本文是希望能有更多的朋友把VFP、VB、Delphi等流行軟件開發工具的使用心得與廣大讀者共享。->

上一篇：Web動畫圖像分解在VB動畫設計中的應用

下一篇：Combo的自動查詢技術