www.pudn.com > 考勤管理系统源码(VB含串口接口程序).zip > frmSplash.frm

VERSION 5.00 
Begin VB.Form frmSplash  
   BackColor       =   &H00808000& 
   BorderStyle     =   3  'Fixed Dialog 
   ClientHeight    =   4440 
   ClientLeft      =   255 
   ClientTop       =   1410 
   ClientWidth     =   7470 
   ClipControls    =   0   'False 
   ControlBox      =   0   'False 
   KeyPreview      =   -1  'True 
   LinkTopic       =   "Form2" 
   MaxButton       =   0   'False 
   MinButton       =   0   'False 
   Picture         =   "frmSplash.frx":0000 
   ScaleHeight     =   4440 
   ScaleWidth      =   7470 
   ShowInTaskbar   =   0   'False 
   StartUpPosition =   2  '屏幕中心 
   Begin VB.Timer Timer1  
      Interval        =   2000 
      Left            =   6795 
      Top             =   3675 
   End 
   Begin VB.Label Label1  
      BackStyle       =   0  'Transparent 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   12 
         Charset         =   134 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      ForeColor       =   &H00FF0000& 
      Height          =   255 
      Left            =   240 
      TabIndex        =   0 
      Top             =   3300 
      Width           =   4890 
   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() 
    Timer1.Enabled = True 
    Me.Show 
    Label1.Caption = "系统正在启动，请稍候..." 
    Me.Refresh 
End Sub 
Private Sub Timer1_Timer() 
    Timer1.Enabled = False 
    Dim Fr As New frmLogin 
    Set Fr = New frmLogin 
    Fr.Show 1 
    If Not Fr.LoginSucceeded Then 
        EndSystem 
    Else 
        frmMDI.Show 
        Unload Me 
    End If 
End Sub 
Private Sub Form_Click() 
    Timer1_Timer 
End Sub 
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 
    If KeyCode = vbKeyReturn Then 
        Timer1_Timer 
    End If 
End Sub