VB 中 n个雪花图片 并随机飘落 的代码是什么

哈哈。这个程序有意思。你做出来的话发给我看看 不过感觉不太难。。 Private Sub Form_Click() he = Me.Height we = Me.Width lhe = Label1(0).Height lwe = Label1(0).Width hetotal = he - lhe wetotal = we - lwe Randomize Time For i = 0 To 10 rndx = Int((hetotal - lhe + 1) * Rnd + lhe) rndy = Int((wetotal - lwe + 1) * Rnd + lwe) Label1(i).Left = rndx Label1(i).Top = rndy rndr = Int(256 * Rnd) rndg = Int(256 * Rnd) rndb = Int(256 * Rnd) Label1(i).ForeColor = RGB(rndr, rndg, rndb) Next End Sub