hyfrm.frm

以前做的课程设计,可用于学习VB与ACCESS的连接!

VERSION 5.00
Begin VB.Form hyfrm 
   BorderStyle     =   0  'None
   Caption         =   "欢迎界面"
   ClientHeight    =   8025
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   10305
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   8025
   ScaleWidth      =   10305
   ShowInTaskbar   =   0   'False
   Begin VB.Frame Frame1 
      Appearance      =   0  'Flat
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   5055
      Left            =   2280
      TabIndex        =   8
      Top             =   8040
      Width           =   5055
      Begin VB.TextBox Text1 
         Appearance      =   0  'Flat
         BackColor       =   &H00C0FFC0&
         BorderStyle     =   0  'None
         BeginProperty Font 
            Name            =   "华文彩云"
            Size            =   18
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   7695
         Left            =   120
         Locked          =   -1  'True
         MultiLine       =   -1  'True
         TabIndex        =   9
         Text            =   "hyfrm.frx":0000
         Top             =   240
         Width           =   4815
      End
   End
   Begin VB.Timer Timer1 
      Interval        =   30
      Left            =   240
      Top             =   7440
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "欢"
      BeginProperty Font 
         Name            =   "华文行楷"
         Size            =   42
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   885
      Index           =   0
      Left            =   720
      TabIndex        =   7
      Top             =   240
      Width           =   855
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "迎"
      BeginProperty Font 
         Name            =   "华文行楷"
         Size            =   42
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   885
      Index           =   1
      Left            =   1800
      TabIndex        =   6
      Top             =   360
      Width           =   855
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "使"
      BeginProperty Font 
         Name            =   "华文行楷"
         Size            =   42
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   885
      Index           =   2
      Left            =   2880
      TabIndex        =   5
      Top             =   480
      Width           =   855
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "用"
      BeginProperty Font 
         Name            =   "华文行楷"
         Size            =   42
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   885
      Index           =   3
      Left            =   3960
      TabIndex        =   4
      Top             =   360
      Width           =   855
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "本"
      BeginProperty Font 
         Name            =   "华文行楷"
         Size            =   42
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   885
      Index           =   4
      Left            =   4800
      TabIndex        =   3
      Top             =   480
      Width           =   855
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "系"
      BeginProperty Font 
         Name            =   "华文行楷"
         Size            =   42
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   885
      Index           =   5
      Left            =   5880
      TabIndex        =   2
      Top             =   360
      Width           =   855
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "统"
      BeginProperty Font 
         Name            =   "华文行楷"
         Size            =   42
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   885
      Index           =   6
      Left            =   6960
      TabIndex        =   1
      Top             =   480
      Width           =   855
   End
   Begin VB.Label Label1 
      Caption         =   "!"
      BeginProperty Font 
         Name            =   "华文行楷"
         Size            =   42
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   765
      Index           =   7
      Left            =   8040
      TabIndex        =   0
      Top             =   720
      Width           =   540
   End
End
Attribute VB_Name = "hyfrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Dim i, j As Integer
Dim a(9) As Integer

Private Sub Form_Load()
j = 0
a(0) = 1000
For i = 0 To 7
    Label1(i).Left = 10200
    a(i + 1) = a(i) + 1080
    Label1(i).ForeColor = 0
Next
i = 0
End Sub



Private Sub Timer1_Timer()
'Timer1.Enabled = False
If i < 8 Then
    If Label1(i).Left > a(i) Then
        Label1(i).Left = Label1(i).Left - 550
        Label1(i).ForeColor = Rnd * 1000000
    Else
        i = i + 1
        'o = random(12)
    End If
Else
    Timer1.Interval = 320
    For i = 0 To 7
        Label1(i).Visible = Not Label1(i).Visible
        Label1(i).ForeColor = Rnd * 100000
    Next
    'Timer1.Enabled = False
    j = j + 1
    If j > 5 Then
        For i = 0 To 7
            Label1(i).Visible = True
        Next
        Timer1.Interval = 150
        If Frame1.Top > 2000 Then
            Frame1.Top = Frame1.Top - 200
        'Else: Timer1.Enabled = False
        End If
        'Text1.ForeColor = Rnd * 100000
    End If
End If
End Sub