首页 相关文章 用VB制作下雪的特技景象

用VB制作下雪的特技景象

对于下雪的景象大家可能都不陌生,我们还是用VB来制作一个下雪的景象吧。其实制作这样一个下雪的景象并不复杂,它的原理是首先在底色为黑色的屏幕上随机画出许多白点(雪花),然后使这些雪花不断地向下移动(重画),反复循环,就成功地模拟了下雪的景象。下面是这个小程序,你可以修改其中的一些数据调整雪花的密度和雪花落下的快慢。
  双击窗体写如下代码:
  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)=S...[ 查看全文 ]

2016-02-19 标签:

用VB制作下雪的特技景象的相关文章

手机页面
收藏网站 回到头部