form1.frm

下雪ＶＢ源代码！！很实用的代码

VERSION 5.00
Begin VB.Form Form1 
   BackColor       =   &H00000000&
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   60
   ClientWidth     =   4680
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Label Label1 
      Caption         =   "全屏的下雪场景制作"
      ForeColor       =   &H0080FF80&
      Height          =   615
      Left            =   1080
      TabIndex        =   0
      Top             =   1200
      Width           =   2415
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim snow(1000, 2), amounty As Integer
Private Sub form_dblclick()
End
End Sub
Private Sub Form_Load()
Form1.Show
DoEvents
Randomize: amounty = 325
For j = 1 To amounty
snow(j, 0) = Int(Rad * Form1.Width)
snow(j, 1) = Int(Rnd * Form1.Height)
snow(j, 2) = 10 + (Rnd * 20)
Next j
Do While Not (DoEvents = 0)
For ls = 1 To 10
    For i = 1 To amounty
        oldx = snow(i, 0)
        oldy = snow(i, 1)
        snow(i, 1) = snow(i, 1) + snow(i, 2)
        If snow(i, 1) > Form1.Height Then
        snow(i, 1) = 0
        snow(i, 2) = 5 + (Rnd * 30)
        snow(i, 0) = Int(Rnd * Form1.Width)
        oldx = 0
        oldy = 0
        End If
        coloury = 8 * (snow(i, 2) - 10)
        coloury = 60 + coloury
        PSet (oldx, oldy), QBColor(0)
        PSet (snow(i, 0), snow(i, 1)), RGB(coloury, coloury, coloury)
    Next i
Next ls
Label1.Refresh
Loop
End

End Sub