www.pudn.com > xj1.rar > Form3.dat, change:2008-05-31,size:4032b


考试规则窗体代码 
 
VERSION 5.00 
Begin VB.Form Form3  
   Caption         =   "实验考试系统" 
   ClientHeight    =   5235 
   ClientLeft      =   3210 
   ClientTop       =   2895 
   ClientWidth     =   6315 
   LinkTopic       =   "Form3" 
   MaxButton       =   0   'False 
   MinButton       =   0   'False 
   ScaleHeight     =   5235 
   ScaleWidth      =   6315 
   StartUpPosition =   2  '屏幕中心 
   Begin VB.CommandButton Command2  
      Caption         =   "退出" 
      Height          =   495 
      Left            =   4320 
      TabIndex        =   5 
      Top             =   4560 
      Width           =   1095 
   End 
   Begin VB.CommandButton Command1  
      Caption         =   "开始考试" 
      Height          =   495 
      Left            =   3000 
      TabIndex        =   2 
      Top             =   4560 
      Width           =   1335 
   End 
   Begin VB.CheckBox Check1  
      Caption         =   "我同意以上条款,并认真遵守,相关制度纪律" 
      Height          =   375 
      Left            =   240 
      TabIndex        =   1 
      Top             =   4560 
      Width           =   2175 
   End 
   Begin VB.TextBox Text1  
      BeginProperty Font  
         Name            =   "楷体_GB2312" 
         Size            =   14.25 
         Charset         =   134 
         Weight          =   700 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      Height          =   3255 
      Left            =   240 
      Locked          =   -1  'True 
      MultiLine       =   -1  'True 
      ScrollBars      =   2  'Vertical 
      TabIndex        =   0 
      Top             =   1080 
      Width           =   5415 
   End 
   Begin VB.Label Label2  
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   14.25 
         Charset         =   134 
         Weight          =   700 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      ForeColor       =   &H000000FF& 
      Height          =   615 
      Left            =   3000 
      TabIndex        =   4 
      Top             =   480 
      Width           =   2055 
   End 
   Begin VB.Label Label1  
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   14.25 
         Charset         =   134 
         Weight          =   700 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      ForeColor       =   &H000000FF& 
      Height          =   495 
      Left            =   840 
      TabIndex        =   3 
      Top             =   480 
      Width           =   1695 
   End 
   Begin VB.Menu daima  
      Caption         =   "源代码(&D)" 
      Begin VB.Menu local  
         Caption         =   "当前窗体" 
      End 
      Begin VB.Menu all  
         Caption         =   "所有窗体" 
      End 
   End 
End 
Attribute VB_Name = "Form3" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Private Sub all_Click() 
'查看代码 
Call duma 
End Sub 
'同意规则才可以,点击"开始考试" 
Private Sub Check1_Click() 
If Check1.Value = 1 Then 
Command1.Enabled = True 
Else 
Command1.Enabled = False 
End If 
End Sub 
 
Private Sub Command1_Click() 
Load Form4 
Form4.show 
Form4.Label4.Caption = Label1.Caption '传递姓名学号 
Form4.Label5.Caption = Label2.Caption 
Unload Me 
 
End Sub 
 
Private Sub Command2_Click() 
'退出 
Unload Me 
End Sub 
 
Private Sub Form_Load() 
Command1.Enabled = False 
Open "data\考试规则.txt" For Input As #6 '读入考试规则 
Do While Not EOF(6) 
Line Input #6, buf 
Text1.Text = Text1.Text + Chr(13) + Chr(10) + buf 
Loop 
Close #6 
End Sub 
'显示当前代码 
Private Sub local_Click() 
Form7.show 
Form7.Label2.Caption = "data\form3.dat" 
Call dudaima 
End Sub