操作题.frm

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

VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form Form5 
   BackColor       =   &H80000009&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "操作题"
   ClientHeight    =   3510
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   9600
   Icon            =   "操作题.frx":0000
   LinkTopic       =   "Form5"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3510
   ScaleWidth      =   9600
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin TabDlg.SSTab SSTab1 
      Height          =   3495
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   7575
      _ExtentX        =   13361
      _ExtentY        =   6165
      _Version        =   393216
      Style           =   1
      Tabs            =   1
      TabsPerRow      =   1
      TabHeight       =   520
      BackColor       =   -2147483639
      TabCaption(0)   =   "Windows操作"
      TabPicture(0)   =   "操作题.frx":06EA
      Tab(0).ControlEnabled=   -1  'True
      Tab(0).Control(0)=   "Frame1"
      Tab(0).Control(0).Enabled=   0   'False
      Tab(0).Control(1)=   "Command1"
      Tab(0).Control(1).Enabled=   0   'False
      Tab(0).Control(2)=   "Command2"
      Tab(0).Control(2).Enabled=   0   'False
      Tab(0).ControlCount=   3
      Begin VB.CommandButton Command2 
         Caption         =   "返回主界面"
         Height          =   495
         Left            =   5520
         TabIndex        =   4
         Top             =   2160
         Width           =   1455
      End
      Begin VB.CommandButton Command1 
         Caption         =   "打开考生文件夹"
         Height          =   615
         Left            =   5520
         TabIndex        =   3
         Top             =   1440
         Width           =   1455
      End
      Begin VB.Frame Frame1 
         Caption         =   "要求"
         Height          =   2775
         Left            =   240
         TabIndex        =   1
         Top             =   480
         Width           =   4935
         Begin VB.TextBox Text1 
            Height          =   2415
            Left            =   120
            MultiLine       =   -1  'True
            ScrollBars      =   2  'Vertical
            TabIndex        =   2
            Text            =   "操作题.frx":0706
            Top             =   240
            Width           =   4695
         End
      End
   End
End
Attribute VB_Name = "Form5"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
    Dim a As Long
    a = ShellExecute(Me.hwnd, "open", "c:\" & Trim(Form1.Text1.Text), "", App.Path, 1)
End Sub

Private Sub Command2_Click()
    Form5.Hide
    Form2.Show
End Sub

Private Sub Form_Load()
    subCloseDisable Me.hwnd
    subMaxDisable Me.hwnd
    subMinDisable Me.hwnd
End Sub