五彩缤纷的清屏效果

页面导航:首页 > 软件编程 > vb.net > 五彩缤纷的清屏效果

五彩缤纷的清屏效果

来源: 作者: 时间:2016-02-05 12:32 【

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

 

 

在一些软件演示中,这一屏内容到下一屏内容间往往以一些有趣的清屏图案来相互

切换,有的像演出舞台上的开幕、闭幕,有的像百叶窗,也有一些圆形、菱形等形

态各异的清屏图案。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

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <