新作一个，看看是否满足要求，可以修改下雪速度，大小等 public partial class Form1 Form private Random clsRandom = new Randomprivate int， SnowParry = new int1024，3private int SnowNum = 0。

查看文章 让你的桌面下起小雪系列之delphi编写2008年01月13日 星期日 下午 0138这个冬天又没下雪那就让电脑来下雪吧以下是用delphi的全部代码program Snowuses Windows， Messagesconst SnowNumber = 500 雪。

snow = false falserain truesnow snowsym = quot * quot These are the symbols for each rainsym = quot * quot You can put images herehowmany = 15 How many dropssnowflakes？***Do not ne。

我也想找，先给你个POP的下雪，先用着。

用这个bodybackgroundurl fixed替换原来的那个其它有用的代码记得留下同一位置非视觉位置不可以插入两个图片如果非要实现这个目的可以用photoshop把雪花的gif合成到目标背景图片中，成为一个大的dif图片。

50，80，620，350，0 这个可以希望你喜欢。

第一针 A = 100定义雪花个数 B = 2初始值 _rootcreateEmptyMovieClipquotbgquot， 0*创建空白影片剪辑创建一个黑的与场景大小一样的影片作为背景* with _rootbg thisbeginFill0x000000， 100this。

先把窗体的borderstyle 属性改为 0 不然达不到效果 然后把下面代码直接复制进去就行了 Dim Snow1000， 2， Amounty As Integer Private Sub Form_KeyPressKeyAscii As IntegerIf KeyAscii = 13 Then End #39按回车。

55，40，530，35，0点击装扮空间，把代码复制输入到空间最上面的地址上，然后点击保存，就OK了参考。

根据查询微信官方得知，微信下雪的网址代码为ltimagefor=quotsnowsquotkey=quotindexquotsrc=quotimgsnowpngquotstyle=quotl，微信输入“下雪了”会有满屏雪花。