五彩缤纷的清屏效果

阿杰

1. 
   
2. 在一些软件演示中，这一屏内容到下一屏内容间往往以一些有趣的清屏图案来相互切换，有的像演出舞台上的开幕、闭幕，有的像百叶窗，也有一些圆形、菱形等形态各异的清屏图案。VB作为一门优秀的WINDOWS下的开发语言，其图形功能也很强。我们完全可以用其提供的画线语句作出上述的清屏图案，下面的程序给出了常见的清屏图案程序：
   
3. 　　Sub FilSCrO'设置背景色
   
4. 　　Me.BackColor=RGB(Int(Rnd＊256),Int(Rnd＊256),Int(Rnd＊256))
   
5. 　　End Sub
   
6. 　　Sub ClrScrl()'从左右两边到中间清屏
   
7. 　　Dim i As Integer：Randomize：color=RGB(Int(Rnd＊256),Int(Rnd＊256),Int(Rnd＊256))
   
8. 　　For i=0 To ScaleWidth/2
   
9. 　　Line(i,0)－(i,ScaleHeight),color
   
10. 　　Line(ScaleWidth－i,0)－(ScaleWidth－i,ScaleHeight),color
    
11. 　　Next i
    
12. 　　End Sub
    
13. 　　Sub ClrSer20'从中间到左右两边清屏
    
14. 　　Dim i As Integer：Randomize：color=RGB(Int(Rnd＊256),Int(Rnd＊256),Int(Rnd＊256))
    
15. 　　for i=ScaleWidth/2 To 0 Step －1
    
16. 　　Line(i,0)－(i,ScaleHeight－1),color
    
17. 　　Line(ScaleWidth－i,0)－(ScaleWidth－i,ScaleHeight),color
    
18. 　　Next i
    
19. 　　End Sub
    
20. 　　Sub ClrScr30'从上(顶)下(低)到中间清屏
    
21. 　　Dim i As Integer：Randomize：color=RGB(Int(Rnd＊256),Int(Rnd＊256),Int(Rnd＊256))
    
22. 　　For i=0 To ScaleHeight/2
    
23. 　　Line(0,i)－(ScaleWidth,i),color
    
24. 　　Line(0,ScaleHeight－i)－(ScaleWidth,ScaleHeight－i),color
    
25. 　　next i
    
26. 　　End Sub
    
27. 　　Sub ClrScr40'从中间到上(顶)下(底)清屏
    
28. 　　Dim i As Integer:Randomize:color=RGB(Int(Rnd＊256),Int(Rnd＊256),Int(Rnd＊256))
    
29. 　　For i=ScaleHeight/2 To 0 Step －1
    
30. 　　Line(0,i)_(ScaleWidth,i),color
    
31. 　　Line(0,ScaleHeight－i)－(ScaleWidth,ScaleHeight－i),color
    
32. 　　Next i
    
33. 　　End Sub
    
34. 　　Sub ClrScr50'菱形清屏，从四角向中心
    
35. 　　Dim i,j As Integer:Randomize:color=RGB(Int(Rnd＊256),Int(Rnd＊256),Int(Rnd＊256))
    
36. 　　For i=0 To ScaleWidth Sep 200
    
37. 　　For j=0 To ScaleHeight Step200＊ScaleHeight/ScaleWidth
    
38. 　　Line(i,0)－(0,j),color
    
39. 　　Line(ScaleWidth－i,ScaleHeight)－(ScaleWidth,ScaleHeight－j),color
    
40. 　　Line(0,ScaleHeight－j)－(i,ScaleHeight),color
    
41. 　　Line(ScaleWidth－i,0)－(ScaleWidth,ScaleHeight－j),color
    
42. 　　Next j
    
43. 　　Next i
    
44. 　　End Sub
    
45. 　　Sub ClrScr60'圆形清屏，由大至小从外围向中心
    
46. 　　Dim i As Integer:Randomize:color=RGB(Int(Rnd＊256),Int(Rnd＊256),Int(Rnd＊256))
    
47. 　　For i=ScaleWidth To 0 Step－3
    
48. 　　Circle(ScaleWidth/2,ScaleHeight/2,i/2,color
    
49. 　　Next i
    
50. 　　End Sub
    
51. 　　Sub ClrScr70'圆形清屏，由小至大从中心向外围
    
52. 　　Dim i As Integer:Randomize:color=RGB(Int(Rnd＊256),Int(Rnd＊256),Int(Rnd＊256))
    
53. 　　For i=0 To ScaleHeight Step 3
    
54. 　　Circle(ScaleWidth/2,ScaleHeight/2),i/2,color
    
55. 　　Next i
    
56. 　　End Sub
    
57. 　　‘以上程序作为定义的子函数，置于General间
    
58. 　　Sub Form_Activate()
    
59. 　　FillSCr;ClrScr1;ClrScr2;ClrScr3;ClrScr4;ClrScr5;ClrScr7;ClrScr6
    
60. 　　End Sub
    
61. 　　Private Sub Form_Click()
    
62. 　　End
    
63. 　　End Sub
    

复制代码

upring

谢谢 学习一下