- 帖子
- 79
- 积分
- 441
- 威望
- 331
- 金钱
- 275
- 在线时间
- 108 小时
|
- /*===============================
- snow.vbp---2008年-6月-17日
- VB 6.0通过VB编译
- ===============================*/
- Dim Snow(1000, 2), Amounty As Integer
- Private Sub Form_Load()
- 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
- 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
- Private Sub Timer1_Timer()
- End Sub
- Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
- End
- End Sub
复制代码 |
附件: 您需要登录才可以下载或查看附件。没有帐号?注册
|