五彩繽紛的清屏效果

發表于:2007-07-14來源:作者:點擊數: 標簽:
昆明 無為 在一些軟件演示中,這一屏內容到下一屏內容間往往以一些有趣的清屏圖案來相互切換,有的像演出舞臺上的開幕、閉幕,有的像百葉窗,也有一些圓形、菱形等形態各異的清屏圖案。 VB 作為一門優秀的 WINDOWS 下的 開發語言 ,其圖形功能也很強。我們完
昆明 無為

在一些軟件演示中,這一屏內容到下一屏內容間往往以一些有趣的清屏圖案來相互切換,有的像演出舞臺上的開幕、閉幕,有的像百葉窗,也有一些圓形、菱形等形態各異的清屏圖案。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
  注:該程序在VB3.0、VB4.0、VB5.0下均通過,程序一開始運行即先后演示從左右到中間,從中間到左右,從上下到中間,從中間到上下,從四角向中心(菱形),從中心向外圍(圓形),從外圍向中心(圓形)等清屏圖案。最后兩個清屏圖案很有趣,清屏結束后還會形成從中心到四角的放射狀圖案,似孔雀開屏一樣。有興趣的讀者不防一試。另外,請注意FORM(窗體)的AutoRedraw屬性值應為False,若為True,則將看不到效果。

原文轉自:http://www.anti-gravitydesign.com

国产97人人超碰caoprom_尤物国产在线一区手机播放_精品国产一区二区三_色天使久久综合给合久久97