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

　　五彩繽紛的清屏效果

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

　　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月計(jì)算機(jī)等級(jí)考試成績(jī)查詢時(shí)間匯總

　　2011計(jì)算機(jī)等級(jí)考試二級(jí)VB考點(diǎn)及習(xí)題匯總

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

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