splash.frm

来自「这个是我以前做的一个客户管理系统.包内已经含有源码和所用到的控件.代码是用VB写」· FRM 代码 · 共 83 行

VERSION 5.00
Begin VB.Form frmSplash 
   BorderStyle     =   3  'Fixed Dialog
   ClientHeight    =   3765
   ClientLeft      =   255
   ClientTop       =   1410
   ClientWidth     =   7365
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   Icon            =   "Splash.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "Splash.frx":000C
   ScaleHeight     =   3765
   ScaleWidth      =   7365
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer Timer2 
      Left            =   6150
      Top             =   180
   End
   Begin VB.Timer Timer1 
      Left            =   5580
      Top             =   150
   End
End
Attribute VB_Name = "frmSplash"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit
Dim mbFirst         As Boolean

Private Sub Form_Activate()
   
   If mbFirst = True Then
        mbFirst = False
        frmLogin.Show 1
        If frmLogin.LoginSucceeded Then
            Unload frmLogin
            Timer1.Enabled = True
            Timer1.Interval = 10
        Else
            Unload frmLogin
            Unload Me
        End If
    End If

End Sub

Private Sub Form_Load()
    
    Center Me
    mbFirst = True
    Timer1.Enabled = False
    Timer1.Interval = 10
    Timer2.Enabled = False
    Timer2.Interval = 10
    
End Sub

Private Sub Timer1_Timer()
    
    Timer1.Enabled = False
    Load frmMain
    Timer2.Enabled = True
    
End Sub

Private Sub Timer2_Timer()
    
    frmMain.Show
    Timer2.Enabled = False
    Unload Me
    
End Sub