用VB制作下雪的特技景象

2019-11-18 17:36:44

字體：大中小

供稿：網(wǎng)友

對(duì)于下雪的景象大家可能都不陌生，我們還是用VB來(lái)制作一個(gè)下雪的景象吧。其實(shí)制作這樣一個(gè)下雪的景象并不復(fù)雜，它的原理是首先在底色為黑色的屏幕上隨機(jī)畫出許多白點(diǎn)（雪花），然后使這些雪花不斷地向下移動(dòng)（重畫），反復(fù)循環(huán)，就成功地模擬了下雪的景象。下面是這個(gè)小程序，你可以修改其中的一些數(shù)據(jù)調(diào)整雪花的密度和雪花落下的快慢。
　　雙擊窗體寫如下代碼：
　　DimSnow(1000,2),AmountyAsInteger
　　PRivateSubForm_Load()
　　Form1.Show
　　DoEvents
　　Randomize
　　Amounty=325
　　ForJ=1ToAmounty
　　Snow(J,0)=Int(Rnd＊Form1.Width)
　　Snow(J,1)=Int(Rnd＊Form1.Height)
　　Snow(J,2)=10＋(Rnd＊20)
　　NextJ
　　DoWhileNot(DoEvents=0)
　　ForLS=1To10
　　ForI=1ToAmounty
　　OldX=Snow(I,0):OldY=Snow(I,1)
　　Snow(I,1)=Snow(I,1)＋Snow(I,2)
　　IfSnow(I,1)>Form1.HeightThen
　　Snow(I,1)=0:Snow(I,2)=5＋(Rnd＊30)
　　Snow(I,0)=Int(Rnd＊Form1.Width)
　　OldX=0:OldY=0
　　EndIf
　　Coloury=8＊(Snow(I,2)－10):Coloury=60＋Coloury
　　Pset(OldX,OldY),QBColor(0)
　　Pset(Snow(I,0),Snow(I,1)),RGB(Coloury,Coloury,Coloury)
　　NextI
　　NextLS
　　Loop
　　End
　　EndSub
　　編寫窗體的鼠標(biāo)按下代碼：
　　PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
　　unloadme
　　EndSub
　　運(yùn)行上面的小程序，就可以看到漫天的雪花在緩緩落下，地面上還會(huì)有積雪！鼠標(biāo)單擊可結(jié)束程序。->

上一篇：在VB5中如何使機(jī)箱內(nèi)的小喇叭發(fā)出不同的聲音？

下一篇：利用VisualBasic設(shè)計(jì)多媒體應(yīng)用程序