starfield.frm

VB的一个程序设计

VERSION 5.00
Begin VB.Form Form1 
   BackColor       =   &H00000000&
   Caption         =   "Form1"
   ClientHeight    =   4245
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7365
   FillColor       =   &H0000FFFF&
   ForeColor       =   &H00FFFF80&
   LinkTopic       =   "Form1"
   ScaleHeight     =   4245
   ScaleWidth      =   7365
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmdQuit 
      Caption         =   "关 闭"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   6240
      TabIndex        =   0
      Top             =   3600
      Width           =   975
   End
   Begin VB.Timer Timer1 
      Interval        =   1
      Left            =   960
      Top             =   2400
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim X(100), Y(100), pace(100), size(100) As Integer

Private Sub cmdQuit_Click()
Unload Me '关闭程序，Me代表本窗体
End Sub

'当激活一个窗口时触发该事件
Private Sub Form_Activate()
Randomize '用系统计时器返回的值将 Rnd 函数的随机数生成器初始化
For I = 1 To 100    '用随机数填充数组
X1 = Int(Form1.Width * Rnd) 'Rnd 函数返回小于 1 但大于或等于 0 的值
Y1 = Int(Form1.Height * Rnd)
pace1 = Int(500 - (Int(Rnd * 499)))
size1 = 25 * Rnd
X(I) = X1   'X(I),Y(I)为圆心位置
Y(I) = Y1
pace(I) = pace1 '每次下落的距离，不大于25
size(I) = size1  '圆的半径
Next
End Sub

Private Sub Form_Resize()
'窗体改变大小时修改按钮的位置
cmdQuit.Move Form1.ScaleWidth - cmdQuit.Width - 50, Form1.ScaleHeight - cmdQuit.Height - 50
End Sub

Private Sub Timer1_Timer()
For I = 1 To 100
    Circle (X(I), Y(I)), size(I), BackColor
    Y(I) = Y(I) + pace(I)
    If Y(I) >= Form1.Height Then    '超过高度，恢复为0
        Y(I) = 0
        X(I) = Int(Form1.Width * Rnd)
    End If
    Circle (X(I), Y(I)), size(I)
Next
End Sub