下雪代码

2021-12-18 21:54:56 文档大全网 [ 字体：小中大 ] [ 阅读： ]

【#文档大全网# 导语】以下是®文档大全网的小编为您整理的《下雪代码》，欢迎阅读！
下雪,代码

Dim Snow(1000, 2), Amounty As Integer

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)

Unload Me

End Sub

Private Sub Form_Load()

Form1.BackColor = vbBlack

Form1.BorderStyle = 0

Form1.WindowState = 2

Form1.Show

DoEvents

Randomize

Amounty = 325

For j = 1 To Amounty

Snow(j, 0) = Int(Rnd * 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

Loop

End