frmlogo.frm

商品进销存软件

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form frmlogo 
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   2940
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   4425
   LinkTopic       =   "Form1"
   Picture         =   "frmlogo.frx":0000
   ScaleHeight     =   2940
   ScaleWidth      =   4425
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin MSComctlLib.ProgressBar ProgressBar 
      Height          =   420
      Left            =   75
      TabIndex        =   0
      Top             =   2400
      Width           =   4275
      _ExtentX        =   7541
      _ExtentY        =   741
      _Version        =   393216
      Appearance      =   0
   End
   Begin VB.Timer Timer 
      Left            =   2040
      Top             =   1440
   End
End
Attribute VB_Name = "frmlogo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim Temptime As Integer
Private Sub Form_Load()
Temptime = 0
Me.Timer.Enabled = True
Me.Timer.Interval = 1
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set frmlogo = Nothing
End Sub

Private Sub Timer_Timer()
ProgressBar.Value = Temptime
Temptime = Temptime + 1
    If (Temptime > 99) Then
         Load frmLogin
         frmLogin.Show
         Unload Me
    End If
End Sub