splash.frm

一个很好的VB程序

VERSION 5.00
Begin VB.Form frmSplash 
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "VBtris32 - Loading"
   ClientHeight    =   1965
   ClientLeft      =   1140
   ClientTop       =   1515
   ClientWidth     =   4035
   ControlBox      =   0   'False
   Icon            =   "Splash.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   1965
   ScaleWidth      =   4035
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton cmdOk 
      Caption         =   "OK"
      Enabled         =   0   'False
      Height          =   300
      Left            =   1920
      TabIndex        =   0
      Top             =   1560
      Width           =   1095
   End
   Begin VB.Label Label5 
      Caption         =   "VBtris32"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   720
      TabIndex        =   4
      Top             =   240
      Width           =   4815
   End
   Begin VB.Image Image1 
      Height          =   480
      Left            =   120
      Picture         =   "Splash.frx":030A
      Top             =   240
      Width           =   480
   End
   Begin VB.Line Line3 
      BorderColor     =   &H00FFFFFF&
      X1              =   135
      X2              =   3915
      Y1              =   1095
      Y2              =   1095
   End
   Begin VB.Line Line2 
      BorderColor     =   &H00808080&
      X1              =   135
      X2              =   3915
      Y1              =   1065
      Y2              =   1065
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      Caption         =   "VBtris32 is freeware.  Feel free to distribute it."
      Height          =   240
      Left            =   120
      TabIndex        =   3
      Top             =   1215
      Width           =   3735
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      Caption         =   "Version 1.00"
      Height          =   195
      Left            =   720
      TabIndex        =   2
      Top             =   600
      Width           =   885
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      Caption         =   "Created by Eric Griffith"
      Height          =   195
      Left            =   720
      TabIndex        =   1
      Top             =   840
      Width           =   1575
   End
   Begin VB.Line Line4 
      BorderColor     =   &H00808080&
      X1              =   120
      X2              =   105
      Y1              =   1080
      Y2              =   1080
   End
   Begin VB.Line Line5 
      BorderColor     =   &H00FFFFFF&
      X1              =   3915
      X2              =   3915
      Y1              =   1080
      Y2              =   1095
   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 cmdOk_Click()
'Hide the form
frmSplash.Hide
'Show frmVBtris
frmVBtris.Show

End Sub

Private Sub Form_Activate()
'-------------------------------------------------------
'Read in the options and load the form various forms to
'prevent delays during run time.  Then hide the form or
'enable cmdOk depending on what HideSplash is equal to.
'-------------------------------------------------------
DoEvents
frmSplash.Caption = "VBtris32 - Loading Options"
ReadINIFile
frmSplash.Caption = "VBtris32 - Loading Forms"
Load frmPics
Load frmHighScore
Load frmAbout
Load frmInstruct
Load frmVBtris
If PlaySounds Then PlayWAV ONE_LINE
DoEvents
frmSplash.Caption = "VBtris32 - Finished Loading"
If HideSplash Then
    frmSplash.Hide
    frmVBtris.Show
Else
    cmdOk.Enabled = True
End If

End Sub

Private Sub Form_Load()
'Position the form
frmSplash.Left = (Screen.Width - frmSplash.Width) / 2
frmSplash.Top = (Screen.Height - frmSplash.Height) / 2
'Center the OK command button on the form
cmdOk.Left = (frmSplash.Width - cmdOk.Width) / 2

DoEvents
frmSplash.Show
DoEvents

End Sub