frmsplash.frm

职工信息系统

VERSION 5.00
Begin VB.Form frmSplash 
   BorderStyle     =   0  'None
   ClientHeight    =   4605
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   5955
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "frmSplash.frx":0000
   ScaleHeight     =   4605
   ScaleWidth      =   5955
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Visible         =   0   'False
   Begin VB.Timer Timer1 
      Interval        =   3000
      Left            =   4440
      Top             =   2880
   End
   Begin VB.Label lblVersion 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "版本：1.0 （职工版）"
      ForeColor       =   &H00008000&
      Height          =   180
      Left            =   240
      TabIndex        =   2
      Top             =   2040
      Width           =   1800
   End
   Begin VB.Label lblLicenseTo 
      BackStyle       =   0  'Transparent
      Caption         =   "使用权属于：东南大学"
      ForeColor       =   &H00008000&
      Height          =   210
      Left            =   240
      TabIndex        =   1
      Top             =   1800
      Width           =   3180
   End
   Begin VB.Label Label1 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BackStyle       =   0  'Transparent
      Caption         =   "正在进行初始化......"
      ForeColor       =   &H00000000&
      Height          =   255
      Left            =   3480
      TabIndex        =   0
      Top             =   2400
      Width           =   2175
   End
End
Attribute VB_Name = "frmSplash"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Click()
If MainShowed Then Unload frmSplash
End Sub

Private Sub Form_Load()
  Call PutWindowOnTop(Me)
   
End Sub

Private Sub Form_Unload(Cancel As Integer)
 Dim ShowAtStartup As Long
  
    ' 察看在启动时是否将被显示
    ShowAtStartup = GetSetting(App.EXEName, "Options", "在启动时显示提示", 1)
    If ShowAtStartup = 1 Then
        frmTip.Show
    End If
End Sub


Private Sub Timer1_Timer()
  For I = 1 To 30000
  Next I
  Unload Me
  Timer1.Enabled = False
End Sub