2011年計算機等級考試二級VB輔導(dǎo)實例編程(11)

　　五彩繽紛的清屏效果

　　在一些軟件演示中，這一屏內(nèi)容到下一屏內(nèi)容間往往以一些有趣的清屏圖案來相互切換，有的像演出舞臺上的開幕、閉幕，有的像百葉窗，也有一些圓形、菱形等形態(tài)各異的清屏圖案。VB作為一門優(yōu)秀的WINDOWS下的開發(fā)語言，其圖形功能也很強。我們完全可以用其提供的畫線語句作出上述的清屏圖案，下面的程序給出了常見的清屏圖案程序：

　　Sub FilSCrO'設(shè)置背景色

　　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

　　2010年9月計算機等級考試成績查詢時間匯總

　　2011計算機等級考試二級VB考點及習(xí)題匯總

　　2011年計算機等級考試二級VB基礎(chǔ)教程匯總

　　2011計算機等級考試二級VB輔導(dǎo)實例編程匯總