czhuo.frm

计算机考试、作为一个高职高专的毕业设计的内容。

VERSION 5.00
Begin VB.Form Form3 
   BorderStyle     =   1  'Fixed Single
   Caption         =   " 四方网络考试系统--学生考试子系统"
   ClientHeight    =   465
   ClientLeft      =   2040
   ClientTop       =   300
   ClientWidth     =   8130
   ControlBox      =   0   'False
   FillColor       =   &H00C0E0FF&
   Icon            =   "czhuo.frx":0000
   LinkTopic       =   "Form4"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   465
   ScaleWidth      =   8130
   WhatsThisHelp   =   -1  'True
   Begin VB.Timer Timer2 
      Interval        =   6000
      Left            =   6480
      Top             =   0
   End
   Begin VB.Timer Timer1 
      Interval        =   1000
      Left            =   6480
      Top             =   0
   End
   Begin VB.Frame Frame1 
      BackColor       =   &H00FFC0C0&
      Height          =   450
      Left            =   0
      TabIndex        =   0
      Top             =   -50
      Width           =   8115
      Begin VB.CommandButton Command2 
         Appearance      =   0  'Flat
         BackColor       =   &H00FFC0C0&
         Caption         =   "显示题板"
         Height          =   280
         Left            =   40
         MaskColor       =   &H00E0E0E0&
         Style           =   1  'Graphical
         TabIndex        =   6
         Top             =   100
         Width           =   975
      End
      Begin VB.CommandButton Command1 
         Appearance      =   0  'Flat
         BackColor       =   &H00FFC0C0&
         Caption         =   "返回主界面"
         Height          =   280
         Left            =   6960
         Style           =   1  'Graphical
         TabIndex        =   5
         Top             =   100
         Width           =   1095
      End
      Begin VB.Label Label1 
         BackColor       =   &H00FFC0C0&
         Caption         =   "Label1"
         ForeColor       =   &H000000FF&
         Height          =   180
         Left            =   3000
         TabIndex        =   8
         Top             =   180
         Width           =   1095
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         BackColor       =   &H00FFC0C0&
         Caption         =   "Label4"
         ForeColor       =   &H000000FF&
         Height          =   180
         Left            =   4320
         TabIndex        =   7
         Top             =   180
         Width           =   780
      End
      Begin VB.Shape Shape1 
         BorderColor     =   &H00C00000&
         BorderWidth     =   2
         Height          =   315
         Left            =   0
         Top             =   90
         Width           =   8115
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         BackColor       =   &H00FFC0C0&
         Caption         =   "Label2"
         ForeColor       =   &H000000FF&
         Height          =   180
         Left            =   2000
         TabIndex        =   4
         Top             =   180
         Width           =   540
      End
      Begin VB.Label Label6 
         AutoSize        =   -1  'True
         BackColor       =   &H00FFC0C0&
         Caption         =   "6000"
         ForeColor       =   &H000000FF&
         Height          =   180
         Left            =   6480
         TabIndex        =   3
         Top             =   180
         Width           =   360
      End
      Begin VB.Label Label5 
         AutoSize        =   -1  'True
         BackColor       =   &H00FFC0C0&
         Caption         =   "剩余时间:"
         ForeColor       =   &H00FF0000&
         Height          =   180
         Left            =   5640
         TabIndex        =   2
         Top             =   180
         Width           =   810
      End
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         BackColor       =   &H00FFC0C0&
         Caption         =   "准考证号:"
         ForeColor       =   &H00FF0000&
         Height          =   180
         Left            =   1110
         TabIndex        =   1
         Top             =   180
         Width           =   810
      End
   End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const HWND_TOPMOST& = -1
' 将窗口置于列表顶部，并位于任何最顶部窗口的前面
Private Const SWP_NOSIZE& = &H1
' 保持窗口大小
Private Const SWP_NOMOVE& = &H2
' 保持窗口位置

Private Sub Command1_Click()
dd = MsgBox("编辑的文件如已保存请按“是”返回主题板，如未保存按“否”返回程序重新保存文件！", vbYesNo + vbDefaultButton2 + vbInformation, "文件保存提示")
If dd = vbYes Then
    Form2.Show
    Unload Form3
    Unload Form4
End If

End Sub

Private Sub Command2_Click()
If Command2.Caption = "显示题板" Then
Form4.Show
Command2.Caption = "隐藏题板"
Else
Form4.Hide
Command2.Caption = "显示题板"
End If
End Sub
Private Sub Form_Load()
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
' 将窗口设为总在最前
Command2.Caption = "隐藏题板"
Label2.Caption = zkzh
Label1.Caption = "姓名: " & xm
Label6.Caption = Int((time1 - 1) / 60)
Label4.Caption = bj
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Set fso = Nothing
    Set myfile = Nothing
End Sub

Private Sub Timer1_Timer()
If (time1 = 300) Then
    MsgBox "时间还剩余5分钟，请注意保存文件!", vbOKOnly + vbInformation, "提示"
End If
If (time1 = 0) Then
    Call save
    Unload Me
    Form8.Show
    '将操作题结果保存在指定的位置，后上传至服务器！
Else
    time1 = time1 - 1
End If
End Sub

Private Sub Timer2_Timer()
Set fso = CreateObject("Scripting.FileSystemObject")
Set myfile = fso.CreateTextFile(App.Path & "\testfile.txt", True)
myfile.writeline (zkzh)
myfile.writeline (bj)
myfile.writeline (xm)
myfile.writeline (time1)
myfile.writeline (sum)
myfile.writeline (ksdo)
Label6.Caption = Int(time1 / 60)
End Sub