cover.frm

来自「图书管理系统：分成图书管理模块和图书查询模块」· FRM 代码 · 共 65 行

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form cover 
   BorderStyle     =   1  'Fixed Single
   ClientHeight    =   3180
   ClientLeft      =   15
   ClientTop       =   15
   ClientWidth     =   5085
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "cover.frx":0000
   ScaleHeight     =   3180
   ScaleWidth      =   5085
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer Timer1 
      Interval        =   10
      Left            =   2520
      Top             =   360
   End
   Begin MSComctlLib.ProgressBar ProgressBar1 
      Height          =   135
      Left            =   495
      TabIndex        =   0
      Top             =   2520
      Width           =   4095
      _ExtentX        =   7223
      _ExtentY        =   238
      _Version        =   393216
      Appearance      =   0
      Scrolling       =   1
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "初始化……"
      Height          =   255
      Left            =   1995
      TabIndex        =   1
      Top             =   2280
      Width           =   1095
   End
End
Attribute VB_Name = "cover"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
ProgressBar1.Value = 0
ProgressBar1.Max = 100
ProgressBar1.Min = 0
End Sub

Private Sub Timer1_Timer()
If ProgressBar1.Value < ProgressBar1.Max Then
   ProgressBar1.Value = ProgressBar1.Value + 10
Else
Unload Me
Load choose
choose.Show
End If

End Sub