frmsplash.frm

引用枕善居的天宏钢构仓库管理系统 Ver 2.96

VERSION 5.00
Begin VB.Form frmSplash 
   BackColor       =   &H80000009&
   BorderStyle     =   3  'Fixed Dialog
   ClientHeight    =   1965
   ClientLeft      =   255
   ClientTop       =   1410
   ClientWidth     =   6225
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   Icon            =   "frmSplash.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1965
   ScaleWidth      =   6225
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer Timer3 
      Interval        =   800
      Left            =   480
      Top             =   1605
   End
   Begin VB.Image Image2 
      Height          =   1500
      Left            =   0
      Picture         =   "frmSplash.frx":000C
      Top             =   0
      Width           =   6225
   End
   Begin VB.Label Label3 
      BackColor       =   &H00FFFFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "仓库管理系统2.0"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   0
      Left            =   4320
      TabIndex        =   0
      Top             =   1680
      Width           =   2175
   End
End
Attribute VB_Name = "frmSplash"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2008/05/11
'描    述：天宏钢构仓库管理系统 Ver 2.96
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************


Option Explicit

Private Sub Form_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

frmLogin.Show
Unload Me

End If
End Sub

Private Sub Form_Load()
frmSplash.Move (Screen.width - frmSplash.width) / 2, (Screen.Height - frmSplash.Height) / 2
Timer3.Enabled = True
End Sub


Private Sub Timer3_Timer()
 Unload Me
 '启动登陆对话框
    Dim fLogin As New frmLogin
    fLogin.Show vbModal
    
        Unload fLogin

    '启动主窗口
    Set fMainForm = New frmMain
    fMainForm.Show
End Sub