五彩繽紛的清屏效果
發表于:2007-07-14來源:作者:點擊數:
標簽:
昆明 無為 在一些軟件演示中,這一屏內容到下一屏內容間往往以一些有趣的清屏圖案來相互切換,有的像演出舞臺上的開幕、閉幕,有的像百葉窗,也有一些圓形、菱形等形態各異的清屏圖案。 VB 作為一門優秀的 WINDOWS 下的 開發語言 ,其圖形功能也很強。我們完
昆明 無為
在一些軟件演示中,這一屏內容到下一屏內容間往往以一些有趣的清屏圖案來相互切換,有的像演出舞臺上的開幕、閉幕,有的像百葉窗,也有一些圓形、菱形等形態各異的清屏圖案。
VB作為一門優秀的
WINDOWS下的
開發語言,其圖形功能也很強。我們完全可以用其提供的畫線語句作出上述的清屏圖案,下面的程序給出了常見的清屏圖案程序:
Sub FilSCrO'設置背景色
Me.BackColor=RGB(Int(Rnd*256),Int(Rnd*256),Int(Rnd*256))
End Sub
Sub C
lrScrl()'從左右兩邊到中間清屏
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.anti-gravitydesign.com