新作一個，看看是否滿足要求，可以修改下雪速度，大小等 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替換原來的那個其它有用的代碼記得留下同一位置非視覺位置不可以插入兩個圖片如果非要實現(xiàn)這個目的可以用photoshop把雪花的gif合成到目標背景圖片中，成為一個大的dif圖片。

50，80，620，350，0 這個可以希望你喜歡。

第一針 A = 100定義雪花個數(shù) B = 2初始值 _rootcreateEmptyMovieClipquotbgquot， 0*創(chuàng)建空白影片剪輯創(chuàng)建一個黑的與場景大小一樣的影片作為背景* with _rootbg thisbeginFill0x000000， 100this。

先把窗體的borderstyle 屬性改為 0 不然達不到效果 然后把下面代碼直接復(fù)制進去就行了 Dim Snow1000， 2， Amounty As Integer Private Sub Form_KeyPressKeyAscii As IntegerIf KeyAscii = 13 Then End #39按回車。

55，40，530，35，0點擊裝扮空間，把代碼復(fù)制輸入到空間最上面的地址上，然后點擊保存，就OK了參考。

根據(jù)查詢微信官方得知，微信下雪的網(wǎng)址代碼為ltimagefor=quotsnowsquotkey=quotindexquotsrc=quotimgsnowpngquotstyle=quotl，微信輸入“下雪了”會有滿屏雪花。