国产探花免费观看_亚洲丰满少妇自慰呻吟_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等流行軟件開發工具的使用心得與廣大讀者共享。->


發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 维西| 本溪市| 北票市| 万山特区| 东乡| 靖宇县| 大英县| 旅游| 金阳县| 花垣县| 宜都市| 庆安县| 富民县| 宝山区| 柯坪县| 龙岩市| 若尔盖县| 通州区| 牙克石市| 綦江县| 汉源县| 南宁市| 泾川县| 蒙自县| 海阳市| 天长市| 衢州市| 林芝县| 怀集县| 盘山县| 许昌县| 南开区| 洪湖市| 陵水| 襄城县| 普洱| 牡丹江市| 苗栗县| 西藏| 翁源县| 长泰县|