国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發設計 > 正文

五彩繽紛的清屏效果

2019-11-18 17:50:09
字體:
來源:轉載
供稿:網友
在一些軟件演示中,這一屏內容到下一屏內容間往往以一些有趣的清屏圖案來相互切換,有的像演出舞臺上的開幕、閉幕,有的像百葉窗,也有一些圓形、菱形等形態各異的清屏圖案。VB作為一門優秀的WINDOWS下的開發語言,其圖形功能也很強。我們完全可以用其提供的畫線語句作出上述的清屏圖案,下面的程序給出了常見的清屏圖案程序:
  SubFilSCrO'設置背景色
  Me.BackColor=RGB(Int(Rnd*256),Int(Rnd*256),Int(Rnd*256))
  EndSub
  SubClrScrl()'從左右兩邊到中間清屏
  DimIAsInteger:Randomize:color=RGB(Int(Rnd*256),Int(Rnd*256),Int(Rnd*256))
  ForI=0ToScaleWidth/2
  Line(I,0)-(I,ScaleHeight),color
  Line(ScaleWidth-I,0)-(ScaleWidth-I,ScaleHeight),color
  NextI
  EndSub
  SubClrSer20'從中間到左右兩邊清屏
  DimIAsInteger:Randomize:color=RGB(Int(Rnd*256),Int(Rnd*256),Int(Rnd*256))
  forI=ScaleWidth/2To0Step-1
  Line(I,0)-(I,ScaleHeight-1),color
  Line(ScaleWidth-I,0)-(ScaleWidth-I,ScaleHeight),color
  NextI
  EndSub
  SubClrScr30'從上(頂)下(低)到中間清屏
  DimIAsInteger:Randomize:color=RGB(Int(Rnd*256),Int(Rnd*256),Int(Rnd*256))
  ForI=0ToScaleHeight/2
  Line(0,I)-(ScaleWidth,I),color
  Line(0,ScaleHeight-I)-(ScaleWidth,ScaleHeight-I),color
  nextI
  EndSub
  SubClrScr40'從中間到上(頂)下(底)清屏
  DimIAsInteger:Randomize:color=RGB(Int(Rnd*256),Int(Rnd*256),Int(Rnd*256))
  ForI=ScaleHeight/2To0Step-1
  Line(0,I)_(ScaleWidth,I),color
  Line(0,ScaleHeight-I)-(ScaleWidth,ScaleHeight-I),color
  NextI
  EndSub
  SubClrScr50'菱形清屏,從四角向中心
  DimI,jAsInteger:Randomize:color=RGB(Int(Rnd*256),Int(Rnd*256),Int(Rnd*256))
  ForI=0ToScaleWidthSep200
  Forj=0ToScaleHeightStep200*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
  Nextj
  NextI
  EndSub
  SubClrScr60'圓形清屏,由大至小從外圍向中心
  DimIAsInteger:Randomize:color=RGB(Int(Rnd*256),Int(Rnd*256),Int(Rnd*256))
  ForI=ScaleWidthTo0Step-3
  Circle(ScaleWidth/2,ScaleHeight/2,I/2,color
  NextI
  EndSub
  SubClrScr70'圓形清屏,由小至大從中心向外圍
  DimIAsInteger:Randomize:color=RGB(Int(Rnd*256),Int(Rnd*256),Int(Rnd*256))
  ForI=0ToScaleHeightStep3
  Circle(ScaleWidth/2,ScaleHeight/2),I/2,color
  NextI
  EndSub
  ‘以上程序作為定義的子函數,置于General間
  SubForm_Activate()
  FillSCr;ClrScr1;ClrScr2;ClrScr3;ClrScr4;ClrScr5;ClrScr7;ClrScr6
  EndSub
  PRivateSubForm_Click()
  End
  EndSub
  注:該程序在VB3.0、VB4.0、VB5.0下均通過,程序一開始運行即先后演示從左右到中間,從中間到左右,從上下到中間,從中間到上下,從四角向中心(菱形),從中心向外圍(圓形),從外圍向中心(圓形)等清屏圖案。最后兩個清屏圖案很有趣,清屏結束后還會形成從中心到四角的放射狀圖案,似孔雀開屏一樣。有興趣的讀者不防一試。另外,請注意FORM(窗體)的AutoRedraw屬性值應為False,若為True,則將看不到效果。(昆明無為)
  編輯點評:各種清屏特效的編程實現似乎是老生常談,但從來稿的情況上看,我們發現大多數編程仍然局限于一些比較陳舊的內容,因此,刊本文是希望能有更多的朋友把VFP、VB、Delphi等流行軟件開發工具的使用心得與廣大讀者共享。->


發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 马鞍山市| 章丘市| 汝南县| 朝阳县| 大方县| 凌海市| 天祝| 永春县| 黑山县| 松滋市| 安顺市| 义乌市| 南阳市| 古浪县| 二连浩特市| 德庆县| 尼木县| 昆明市| 吴川市| 鄂托克前旗| 曲阜市| 平阴县| 灵武市| 昌乐县| 班戈县| 大姚县| 吉林省| 嘉兴市| 宝鸡市| 南华县| 赤水市| 喀什市| 运城市| 沈阳市| 五原县| 璧山县| 方正县| 三亚市| 离岛区| 安平县| 丹东市|