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