form1.frm

屏保爱迪生飞屏保爱迪生飞屏保爱迪生飞屏保爱迪生飞屏保爱迪生飞

VERSION 5.00
Begin VB.Form Form1 
   AutoRedraw      =   -1  'True
   BackColor       =   &H80000013&
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   3105
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   4680
   FillColor       =   &H00FFFFFF&
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3105
   ScaleWidth      =   4680
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackColor       =   &H00E0E0E0&
      Caption         =   "作者：KiNo"
      ForeColor       =   &H00800080&
      Height          =   180
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   900
   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_Load()
Form1.Left = 0
Form1.Top = 0
Form1.Height = Screen.Height
Form1.Width = Screen.Width
Form1.Show
Label1.Left = Form1.Width - Label1.Width
Label1.Top = Form1.Height - Label1.Height
DoEvents
Randomize: Amounty = 325
For j = 1 To Amounty
Snow(j, 0) = Int(Rnd * Form1.Width)     '后面要画点的x坐标
Snow(j, 1) = Int(Rnd * Form1.Height)    '后面要画点的y坐标
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) = Int(Int(Snow(i, 1)) + Int(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 + Int(Coloury): PSet (oldx, oldy), RGB(Rnd * 256, Rnd * 256, Rnd * 256): PSet (Snow(i, 0), Snow(i, 1)), RGB(Coloury, Coloury, Coloury):
Next i
Next ls
Label1.Refresh
Loop
End
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
End
End Sub