五彩缤纷的清屏效果

　　在一些软件演示中，这一屏内容到下一屏内容间往往以一些有趣的清屏图案来相互切换，有的像演出舞台上的开幕、闭幕，有的像百叶窗，也有一些圆形、菱形等形态各异的清屏图案。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