主界面.frm

The crystallize of the initial study, one class examination system of calculator, everyone gives ord

VERSION 5.00
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Begin VB.Form Form2 
   BackColor       =   &H80000009&
   Caption         =   "安徽省一级考试系统"
   ClientHeight    =   6855
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   9390
   Icon            =   "主界面.frx":0000
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6855
   ScaleWidth      =   9390
   StartUpPosition =   3  '窗口缺省
   Begin RichTextLib.RichTextBox RichTextBox1 
      Height          =   6735
      Left            =   7200
      TabIndex        =   13
      Top             =   0
      Width           =   2175
      _ExtentX        =   3836
      _ExtentY        =   11880
      _Version        =   393217
      Appearance      =   0
      TextRTF         =   $"主界面.frx":06EA
   End
   Begin VB.Timer Timer1 
      Interval        =   1000
      Left            =   6600
      Top             =   6240
   End
   Begin VB.Frame Frame2 
      BackColor       =   &H80000009&
      Caption         =   "请选择试题："
      Height          =   1095
      Left            =   -120
      TabIndex        =   6
      Top             =   4440
      Width           =   7335
      Begin VB.CommandButton Command5 
         Caption         =   "交卷"
         Height          =   495
         Left            =   5760
         TabIndex        =   4
         Top             =   360
         Width           =   1095
      End
      Begin VB.CommandButton Command4 
         Caption         =   "打字题"
         Height          =   495
         Left            =   4080
         TabIndex        =   3
         Top             =   360
         Width           =   1095
      End
      Begin VB.CommandButton Command3 
         Caption         =   "操作题"
         Height          =   495
         Left            =   2280
         TabIndex        =   2
         Top             =   360
         Width           =   1095
      End
      Begin VB.CommandButton Command1 
         Caption         =   "选择题"
         Height          =   495
         Left            =   600
         TabIndex        =   1
         Top             =   360
         Width           =   1095
      End
   End
   Begin VB.Frame Frame1 
      Height          =   4215
      Left            =   0
      TabIndex        =   5
      Top             =   0
      Width           =   7215
      Begin VB.Frame Frame4 
         BackColor       =   &H80000009&
         BorderStyle     =   0  'None
         Height          =   495
         Left            =   3600
         TabIndex        =   14
         Top             =   3120
         Width           =   2895
      End
      Begin VB.Image Image1 
         Height          =   4575
         Left            =   0
         Picture         =   "主界面.frx":0779
         Stretch         =   -1  'True
         Top             =   -360
         Width           =   7215
      End
   End
   Begin VB.Frame Frame3 
      BackColor       =   &H80000009&
      Height          =   1095
      Left            =   -120
      TabIndex        =   7
      Top             =   5640
      Width           =   7335
      Begin VB.CommandButton Command2 
         Caption         =   "开始考试"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   480
         TabIndex        =   0
         Top             =   120
         Width           =   1455
      End
      Begin VB.Label Label5 
         BackColor       =   &H80000009&
         Caption         =   "秒"
         Height          =   255
         Left            =   6480
         TabIndex        =   12
         Top             =   360
         Width           =   255
      End
      Begin VB.Label Label4 
         BackColor       =   &H80000009&
         Height          =   255
         Left            =   5400
         TabIndex        =   11
         Top             =   360
         Width           =   735
      End
      Begin VB.Label Label3 
         BackColor       =   &H80000009&
         Caption         =   "分"
         Height          =   255
         Left            =   4920
         TabIndex        =   10
         Top             =   360
         Width           =   375
      End
      Begin VB.Label Label2 
         BackColor       =   &H80000009&
         Height          =   255
         Left            =   3960
         TabIndex        =   9
         Top             =   360
         Width           =   735
      End
      Begin VB.Label Label1 
         BackStyle       =   0  'Transparent
         Caption         =   "剩余时间："
         Height          =   375
         Left            =   3000
         TabIndex        =   8
         Top             =   360
         Width           =   975
      End
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
 Dim min As Integer
 Dim sec As Integer
 

Private Sub Command1_Click()
    Form2.Hide
    Form3.Show

End Sub

Private Sub Command2_Click()
    Timer1.Enabled = True
    Command1.Enabled = True
    Command3.Enabled = True
    Command4.Enabled = True
    
    Command2.Enabled = False
    'Randomize
    'q = Int((5 - 1 + 1) * Rnd + 1) '产生1-5之间的随即整数
End Sub

Private Sub Command3_Click()
    Form2.Hide
    Form5.Show

End Sub

Private Sub Command4_Click()
    Form2.Hide
    Form4.Show
End Sub

Private Sub Command5_Click()

    Timer1.Enabled = False
    Form2.Hide
    Form6.Show
End Sub

Private Sub Form_Load()
    subCloseDisable Me.hwnd
    subMaxDisable Me.hwnd
    subMinDisable Me.hwnd
    Timer1.Enabled = False
    min = 90
    sec = 0
    Timer1.Interval = 1000
    Command1.Enabled = False
    Command3.Enabled = False
    Command4.Enabled = False
    Command5.Enabled = True
       
    RichTextBox1.Text = "考生请注意" & Chr(13) & "考生考试时不的做与答题无关的操作，考试开始十五分中方可交卷，开考期间考生不得外出，考试期间不得私自重起计算机，考生不得删除考试文件，如考试期间出现意外考生应立即向监考老师提出！"
   
End Sub


Private Sub Timer1_Timer()
    
    If sec = 0 And min > 0 Then
       min = min - 1
       sec = 60
    End If
    sec = sec - 1
    
     Label2.Caption = min
     Label4.Caption = sec
     If min = 5 And sec = 0 Then
     MsgBox "你还剩余五分钟，请注意保存！"
     End If
     If min = 0 And sec = 0 Then
     Timer1.Enabled = False
     MsgBox "你的考试时间已到！"
     End If
    ' If min = 1 Then
    ' Command5.Enabled = True
    ' End If

End Sub