五彩繽紛的清屏效果

領測軟件測試網 昆明 無為

在一些軟件演示中，這一屏內容到下一屏內容間往往以一些有趣的清屏圖案來相互切換，有的像演出舞臺上的開幕、閉幕，有的像百葉窗，也有一些圓形、菱形等形態各異的清屏圖案。VB作為一門優秀的WINDOWS下的開發語言，其圖形功能也很強。我們完全可以用其提供的畫線語句作出上述的清屏圖案，下面的程序給出了常見的清屏圖案程序：
　　Sub FilSCrO'設置背景色
　　Me.BackColor=RGB(Int(Rnd＊256),Int(Rnd＊256),Int(Rnd＊256))
　　End Sub
　　Sub ClrScrl()'從左右兩邊到中間清屏
　　Dim i As Integer：Randomize：color=RGB(Int(Rnd＊256),Int(Rnd＊256),Int(Rnd＊256))
　　For i=0 To ScaleWidth/2
　　Line(i,0)－(i,ScaleHeight),color
　　Line(ScaleWidth－i,0)－(ScaleWidth－i,ScaleHeight),color
　　Next i
　　End Sub
　　Sub ClrSer20'從中間到左右兩邊清屏
　　Dim i As Integer：Randomize：color=RGB(Int(Rnd＊256),Int(Rnd＊256),Int(Rnd＊256))
　　for i=ScaleWidth/2 To 0 Step －1
　　Line(i,0)－(i,ScaleHeight－1),color
　　Line(ScaleWidth－i,0)－(ScaleWidth－i,ScaleHeight),color
　　Next i
　　End Sub
　　Sub ClrScr30'從上(頂)下(低)到中間清屏
　　Dim i As Integer：Randomize：color=RGB(Int(Rnd＊256),Int(Rnd＊256),Int(Rnd＊256))
　　For i=0 To ScaleHeight/2
　　Line(0,i)－(ScaleWidth,i),color
　　Line(0,ScaleHeight－i)－(ScaleWidth,ScaleHeight－i),color
　　next i
　　End Sub
　　Sub ClrScr40'從中間到上(頂)下(底)清屏
　　Dim i As Integer:Randomize:color=RGB(Int(Rnd＊256),Int(Rnd＊256),Int(Rnd＊256))
　　For i=ScaleHeight/2 To 0 Step －1
　　Line(0,i)_(ScaleWidth,i),color
　　Line(0,ScaleHeight－i)－(ScaleWidth,ScaleHeight－i),color
　　Next i
　　End Sub
　　Sub ClrScr50'菱形清屏，從四角向中心
　　Dim i,j As Integer:Randomize:color=RGB(Int(Rnd＊256),Int(Rnd＊256),Int(Rnd＊256))
　　For i=0 To ScaleWidth Sep 200
　　For j=0 To ScaleHeight Step200＊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
　　Next j
　　Next i
　　End Sub
　　Sub ClrScr60'圓形清屏，由大至小從外圍向中心
　　Dim i As Integer:Randomize:color=RGB(Int(Rnd＊256),Int(Rnd＊256),Int(Rnd＊256))
　　For i=ScaleWidth To 0 Step－3
　　Circle(ScaleWidth/2,ScaleHeight/2,i/2,color
　　Next i
　　End Sub
　　Sub ClrScr70'圓形清屏，由小至大從中心向外圍
　　Dim i As Integer:Randomize:color=RGB(Int(Rnd＊256),Int(Rnd＊256),Int(Rnd＊256))
　　For i=0 To ScaleHeight Step 3
　　Circle(ScaleWidth/2,ScaleHeight/2),i/2,color
　　Next i
　　End Sub
　　‘以上程序作為定義的子函數，置于General間
　　Sub Form_Activate()
　　FillSCr;ClrScr1;ClrScr2;ClrScr3;ClrScr4;ClrScr5;ClrScr7;ClrScr6
　　End Sub
　　Private Sub Form_Click()
　　End
　　End Sub
　　注：該程序在VB3.0、VB4.0、VB5.0下均通過，程序一開始運行即先后演示從左右到中間，從中間到左右，從上下到中間，從中間到上下，從四角向中心(菱形)，從中心向外圍(圓形)，從外圍向中心(圓形)等清屏圖案。最后兩個清屏圖案很有趣，清屏結束后還會形成從中心到四角的放射狀圖案，似孔雀開屏一樣。有興趣的讀者不防一試。另外，請注意FORM(窗體)的AutoRedraw屬性值應為False，若為True，則將看不到效果。

文章來源于領測軟件測試網 http://www.kjueaiud.com/