frmtime.frm

VB开发的考试系统,找了好久,希望有帮助,大家看看啊

VERSION 5.00
Begin VB.Form frmTime 
   BackColor       =   &H00FF0000&
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   600
   ClientLeft      =   2265
   ClientTop       =   0
   ClientWidth     =   7635
   LinkTopic       =   "Form1"
   ScaleHeight     =   600
   ScaleWidth      =   7635
   ShowInTaskbar   =   0   'False
   Begin VB.Frame Frame1 
      BackColor       =   &H00FF0000&
      Height          =   600
      Left            =   45
      TabIndex        =   0
      Top             =   -45
      Width           =   7575
      Begin VB.Timer Timer1 
         Interval        =   1000
         Left            =   4815
         Top             =   135
      End
      Begin VB.Label lblTitle 
         Alignment       =   2  'Center
         BackColor       =   &H00FF0000&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "隐藏考试说明窗体"
         ForeColor       =   &H0000FF00&
         Height          =   420
         Left            =   45
         TabIndex        =   4
         Top             =   135
         Width           =   1680
      End
      Begin VB.Label lblFinish 
         Alignment       =   2  'Center
         BackColor       =   &H0000FF00&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "交卷"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   15.75
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF0000&
         Height          =   420
         Left            =   5940
         TabIndex        =   3
         Top             =   135
         Width           =   1590
      End
      Begin VB.Label lblTime 
         Alignment       =   2  'Center
         BackColor       =   &H00FF0000&
         BorderStyle     =   1  'Fixed Single
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFF00&
         Height          =   420
         Left            =   4140
         TabIndex        =   2
         Top             =   135
         Width           =   1770
      End
      Begin VB.Label Label2 
         Alignment       =   2  'Center
         BackColor       =   &H00FF0000&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "考号：00000000"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000FF00&
         Height          =   420
         Left            =   1755
         TabIndex        =   1
         Top             =   135
         Width           =   2355
      End
   End
End
Attribute VB_Name = "frmTime"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Dim Minute As Integer
Dim Second As Integer
Private Sub Form_Load()
Minute = 59
Second = 60
lblTitle.Caption = "隐藏考试说明窗体"
SetFormTopmost frmTime

End Sub


Private Sub lblFinish_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblFinish.BackColor = &HFF&
End Sub

Private Sub lblFinish_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If MsgBox("时间还没到，真的要交卷吗？", vbYesNo + vbInformation, "提示") = vbYes Then
 Unload frmExamChoose
 Unload frmFillBlank
 Unload frmExam
 frmWiat.Show
 Unload Me
Else
 lblFinish.BackColor = &HFF00&
 
End If
End Sub

Private Sub lblTitle_Click()
If lblTitle.Caption = "显示考试说明窗体" Then
 lblTitle.Caption = "隐藏考试说明窗体"
 frmExam.Show
Else
lblTitle.Caption = "显示考试说明窗体"
Unload frmExam
End If

End Sub

Private Sub Timer1_Timer()

lblTime.Caption = ""
If Minute = 0 And Second = 0 Then
 Unload frmExam
 Unload frmExamChoose
 Unload frmFillBlank
 frmWiat.Show
 Unload Me
End If
If Second = 0 Then
  Minute = Minute - 1
  If Minute = 0 And Second = 0 Then
    MsgBox "您还有5分钟！", , "提示"
 End If
 Second = 59
End If
Second = Second - 1

lblTime.Caption = Minute & "分" & Second & "秒"
End Sub