frmabout.frm

网上收集的一个考试管理系统。带论文的

VERSION 5.00
Begin VB.Form FrmAbout 
   AutoRedraw      =   -1  'True
   BackColor       =   &H00E0E0E0&
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "关于"
   ClientHeight    =   3450
   ClientLeft      =   45
   ClientTop       =   270
   ClientWidth     =   5055
   ControlBox      =   0   'False
   LinkTopic       =   "Form3"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3450
   ScaleWidth      =   5055
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton Command2 
      BackColor       =   &H00E0E0E0&
      Caption         =   "确   定"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   3375
      Style           =   1  'Graphical
      TabIndex        =   6
      Top             =   2880
      Width           =   1455
   End
   Begin VB.CommandButton Command1 
      BackColor       =   &H00FFFF00&
      Caption         =   "确   定"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   3375
      Style           =   1  'Graphical
      TabIndex        =   5
      Top             =   2880
      Visible         =   0   'False
      Width           =   1455
   End
   Begin VB.PictureBox p6 
      Height          =   1455
      Left            =   5760
      Picture         =   "FrmAbout.frx":0000
      ScaleHeight     =   1395
      ScaleWidth      =   795
      TabIndex        =   4
      Top             =   3000
      Visible         =   0   'False
      Width           =   855
   End
   Begin VB.PictureBox p5 
      Height          =   1455
      Left            =   6000
      Picture         =   "FrmAbout.frx":35E2
      ScaleHeight     =   1395
      ScaleWidth      =   795
      TabIndex        =   3
      Top             =   1680
      Visible         =   0   'False
      Width           =   855
   End
   Begin VB.PictureBox p4 
      Height          =   1455
      Left            =   5400
      Picture         =   "FrmAbout.frx":6BC4
      ScaleHeight     =   1395
      ScaleWidth      =   795
      TabIndex        =   2
      Top             =   1680
      Visible         =   0   'False
      Width           =   855
   End
   Begin VB.PictureBox p3 
      Height          =   1335
      Left            =   5400
      Picture         =   "FrmAbout.frx":A3A6
      ScaleHeight     =   1275
      ScaleWidth      =   795
      TabIndex        =   1
      Top             =   1680
      Visible         =   0   'False
      Width           =   855
   End
   Begin VB.PictureBox p2 
      Height          =   1335
      Left            =   6480
      Picture         =   "FrmAbout.frx":DA24
      ScaleHeight     =   1275
      ScaleWidth      =   795
      TabIndex        =   0
      Top             =   3240
      Visible         =   0   'False
      Width           =   855
   End
End
Attribute VB_Name = "FrmAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim A As Boolean, B As Boolean, c As Boolean



Private Sub Command1_Click()
Timer1.Interval = 0
Timer3.Interval = 0
Timer4.Interval = 1000
End Sub

Private Sub Command2_Click()
Timer1.Interval = 0
Timer3.Interval = 0
Timer7.Interval = 1000

End Sub


Private Sub Form_Load()

P1.Picture = p2.Picture
A = True
B = True
Timer1.Interval = 3000
Timer3.Interval = 700
Timer4.Interval = 0

End Sub

Private Sub Form_LostFocus()
Form3.SetFocus
End Sub



Private Sub Timer1_Timer()
If P1.Picture = p3.Picture Then
P1.Picture = p2.Picture
ElseIf P1.Picture = p4.Picture Then
P1.Picture = p2.Picture
End If
End Sub

Private Sub Timer2_Timer()
If Frame2.Top > -1500 Then
Frame2.Move Frame2.Left, Frame2.Top - 10
Else
Frame2.Top = 2400
End If

End Sub

Private Sub Timer3_Timer()
If P1.Picture = p2.Picture Then
 If B = True Then
  P1.Picture = p4.Picture
  B = False
  c = True
 ElseIf c = True Then
 P1.Picture = p3.Picture
 c = False
 B = True
 End If
End If
End Sub

Private Sub Timer4_Timer()
P1.Picture = p5.Picture

Timer5.Interval = 1000
Timer4.Interval = 0

End Sub

Private Sub Timer5_Timer()
P1.Picture = p6.Picture
Timer5.Interval = 0
Timer4.Interval = 0

Timer6.Interval = 1000
End Sub


Private Sub Timer7_Timer()
P1.Picture = p5.Picture

Timer8.Interval = 1000
Timer7.Interval = 0

End Sub

Private Sub Timer8_Timer()
P1.Picture = p6.Picture
Timer8.Interval = 0
Timer7.Interval = 0

Timer9.Interval = 1000

End Sub

Private Sub Timer9_Timer()
Unload Me
End Sub