www.pudn.com > stu_rag.rar > frmSplash.frm, change:2003-03-16,size:7188b


VERSION 5.00 
Begin VB.Form frmSplash  
   BorderStyle     =   3  'Fixed Dialog 
   ClientHeight    =   4236 
   ClientLeft      =   252 
   ClientTop       =   1416 
   ClientWidth     =   7380 
   ClipControls    =   0   'False 
   ControlBox      =   0   'False 
   Icon            =   "frmSplash.frx":0000 
   KeyPreview      =   -1  'True 
   LinkTopic       =   "Form2" 
   MaxButton       =   0   'False 
   MinButton       =   0   'False 
   ScaleHeight     =   4236 
   ScaleWidth      =   7380 
   ShowInTaskbar   =   0   'False 
   StartUpPosition =   2  'CenterScreen 
   Begin VB.Frame FrameMain  
      Height          =   4050 
      Left            =   120 
      TabIndex        =   0 
      Top             =   120 
      Width           =   7200 
      Begin VB.Timer Timer1  
         Interval        =   100 
         Left            =   0 
         Top             =   120 
      End 
      Begin VB.Line lnProcess  
         BorderColor     =   &H00C00000& 
         BorderWidth     =   5 
         X1              =   2520 
         X2              =   2760 
         Y1              =   1800 
         Y2              =   1800 
      End 
      Begin VB.Label lblDataEnv  
         AutoSize        =   -1  'True 
         Caption         =   "数据环境:Access 2000" 
         BeginProperty Font  
            Name            =   "Arial" 
            Size            =   15.6 
            Charset         =   0 
            Weight          =   700 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   360 
         Left            =   2520 
         TabIndex        =   8 
         Top             =   2520 
         Width           =   3444 
      End 
      Begin VB.Image imgLogo  
         Height          =   1545 
         Left            =   360 
         Picture         =   "frmSplash.frx":000C 
         Stretch         =   -1  'True 
         Top             =   1035 
         Width           =   1455 
      End 
      Begin VB.Label lblCopyright  
         Caption         =   "版权所有,违者必究" 
         BeginProperty Font  
            Name            =   "Arial" 
            Size            =   8.4 
            Charset         =   0 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   255 
         Left            =   4560 
         TabIndex        =   4 
         Top             =   3060 
         Width           =   2415 
      End 
      Begin VB.Label lblCompanyName  
         Caption         =   "考试系统软件公司" 
         BeginProperty Font  
            Name            =   "Arial" 
            Size            =   8.4 
            Charset         =   0 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   255 
         Left            =   4560 
         TabIndex        =   3 
         Top             =   3360 
         Width           =   2415 
      End 
      Begin VB.Label lblWarning  
         Caption         =   "警告:本公司保留对恶意伤害本软件的行为采取进一步行动的权力" 
         BeginProperty Font  
            Name            =   "Arial" 
            Size            =   8.4 
            Charset         =   0 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   195 
         Left            =   120 
         TabIndex        =   2 
         Top             =   3660 
         Width           =   6855 
      End 
      Begin VB.Label lblVersion  
         Alignment       =   1  'Right Justify 
         AutoSize        =   -1  'True 
         Caption         =   "Version 1.0.0" 
         BeginProperty Font  
            Name            =   "Arial" 
            Size            =   12 
            Charset         =   0 
            Weight          =   700 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   285 
         Left            =   4680 
         TabIndex        =   5 
         Top             =   1440 
         Width           =   1470 
      End 
      Begin VB.Label lblPlatform  
         Alignment       =   1  'Right Justify 
         AutoSize        =   -1  'True 
         Caption         =   "开发平台:Visual Basic 6.0" 
         BeginProperty Font  
            Name            =   "Arial" 
            Size            =   15.6 
            Charset         =   0 
            Weight          =   700 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   360 
         Left            =   2400 
         TabIndex        =   6 
         Top             =   2040 
         Width           =   4095 
      End 
      Begin VB.Label lblLicenseTo  
         Alignment       =   1  'Right Justify 
         Caption         =   "授权:" 
         BeginProperty Font  
            Name            =   "Arial" 
            Size            =   8.4 
            Charset         =   0 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   255 
         Left            =   120 
         TabIndex        =   1 
         Top             =   240 
         Width           =   6855 
      End 
      Begin VB.Label lblProductName  
         Alignment       =   2  'Center 
         AutoSize        =   -1  'True 
         Caption         =   "考试系统" 
         BeginProperty Font  
            Name            =   "方正舒体" 
            Size            =   36 
            Charset         =   134 
            Weight          =   700 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H000000FF& 
         Height          =   765 
         Left            =   2880 
         TabIndex        =   7 
         Top             =   600 
         Width           =   2940 
      End 
   End 
End 
Attribute VB_Name = "frmSplash" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
 
Option Explicit 
 
'Private Sub Form_Load() 
'    lnProcess.X2 = lnProcess.X1 
'End Sub 
 
 
 
Private Sub FrameMain_Click() 
Unload Me 
MDIfrmMain.Show 
End Sub 
 
 
Private Sub Timer1_Timer() 
  lnProcess.X2 = lnProcess.X2 + 20 
  If (lnProcess.X2 - lnProcess.X1) > 3500 Then 
      Unload Me 
      MDIfrmMain.Show 
  End If 
End Sub