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

查看文章 讓你的桌面下起小雪系列之delphi編寫2008年01月13日 星期日 下午 0138這個(gè)冬天又沒下雪那就讓電腦來下雪吧以下是用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。

我也想找，先給你個(gè)POP的下雪，先用著。

用這個(gè)bodybackgroundurl fixed替換原來的那個(gè)其它有用的代碼記得留下同一位置非視覺位置不可以插入兩個(gè)圖片如果非要實(shí)現(xiàn)這個(gè)目的可以用photoshop把雪花的gif合成到目標(biāo)背景圖片中，成為一個(gè)大的dif圖片。

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

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

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

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

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