frmsplash.frm

本系统是本着实用的原则开发的

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form frmSplash 
   BorderStyle     =   5  'Sizable ToolWindow
   ClientHeight    =   4710
   ClientLeft      =   60
   ClientTop       =   60
   ClientWidth     =   6330
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4710
   ScaleWidth      =   6330
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Visible         =   0   'False
   Begin VB.Frame fraMainFrame 
      Height          =   4590
      Left            =   60
      TabIndex        =   0
      Top             =   0
      Width           =   6180
      Begin MSComctlLib.ProgressBar ProgressBar 
         Height          =   210
         Left            =   45
         TabIndex        =   10
         Top             =   3945
         Width           =   6120
         _ExtentX        =   10795
         _ExtentY        =   370
         _Version        =   393216
         BorderStyle     =   1
         Appearance      =   1
         Max             =   1000
         Scrolling       =   1
      End
      Begin VB.Frame Frame2 
         BorderStyle     =   0  'None
         Height          =   870
         Left            =   120
         TabIndex        =   5
         Top             =   1920
         Width           =   3375
         Begin VB.Label Label1 
            AutoSize        =   -1  'True
            Caption         =   "警告："
            ForeColor       =   &H000000C0&
            Height          =   180
            Left            =   105
            TabIndex        =   8
            Top             =   180
            Width           =   540
         End
         Begin VB.Label Label7 
            AutoSize        =   -1  'True
            Caption         =   "版权所有，谨防盗版，违者必纠！"
            ForeColor       =   &H000000C0&
            Height          =   180
            Left            =   555
            TabIndex        =   7
            Top             =   405
            Width           =   2700
         End
         Begin VB.Label Label8 
            AutoSize        =   -1  'True
            Caption         =   "请支持国产软件！"
            ForeColor       =   &H000000C0&
            Height          =   180
            Left            =   540
            TabIndex        =   6
            Top             =   630
            Width           =   1440
         End
      End
      Begin VB.PictureBox picIcon 
         AutoSize        =   -1  'True
         ClipControls    =   0   'False
         Height          =   540
         Left            =   810
         Picture         =   "frmSplash.frx":0000
         ScaleHeight     =   337.12
         ScaleMode       =   0  'User
         ScaleWidth      =   337.12
         TabIndex        =   4
         Top             =   495
         Width           =   540
      End
      Begin VB.Line Line1 
         BorderColor     =   &H00FFFFFF&
         BorderWidth     =   2
         Index           =   0
         X1              =   0
         X2              =   7245
         Y1              =   3585
         Y2              =   3585
      End
      Begin VB.Line Line1 
         BorderColor     =   &H00808080&
         BorderStyle     =   6  'Inside Solid
         Index           =   1
         X1              =   0
         X2              =   7245
         Y1              =   3555
         Y2              =   3555
      End
      Begin VB.Label lblDeveloper 
         AutoSize        =   -1  'True
         Caption         =   "作者：荣瓴"
         Height          =   180
         Left            =   4425
         TabIndex        =   9
         Top             =   1590
         Width           =   900
      End
      Begin VB.Label lblVersion 
         AutoSize        =   -1  'True
         Caption         =   "导师：臧明相"
         Height          =   180
         Left            =   4440
         TabIndex        =   3
         Top             =   1200
         Width           =   1080
      End
      Begin VB.Label lblProductName 
         AutoSize        =   -1  'True
         Caption         =   "大型机房学生上机管理系统"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   15.75
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   315
         Left            =   1680
         TabIndex        =   2
         Tag             =   "产品"
         Top             =   600
         Width           =   4155
      End
      Begin VB.Label lblPlatform 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "运行环境：  Win9x\Win2000\WinXp"
         Height          =   180
         Left            =   3225
         TabIndex        =   1
         Tag             =   "平台"
         Top             =   2985
         Width           =   2790
      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_Activate()
    '进度条
    Dim i As Long
    ProgressBar.Value = ProgressBar.Min
    For i = ProgressBar.Min To ProgressBar.Max
        ProgressBar.Value = i
        DoEvents
    Next
    If ProgressBar.Value = ProgressBar.Max Then
    Unload Me
    'frmLoad.Show
 End If

End Sub

Private Sub Form_Load()
    Me.Top = (Screen.Height - Me.Height) / 2
    Me.Left = (Screen.Width - Me.Width) / 2

End Sub

Private Sub Label2_Click()

End Sub