frmsplash.frm

通用样品管理系统是一个商业程序,功能界面都还不错!

VERSION 5.00
Begin VB.Form frmSplash 
   BackColor       =   &H00000000&
   BorderStyle     =   0  'None
   ClientHeight    =   4995
   ClientLeft      =   210
   ClientTop       =   1365
   ClientWidth     =   9000
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   Icon            =   "frmSplash.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form2"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4995
   ScaleWidth      =   9000
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer Timer2 
      Enabled         =   0   'False
      Interval        =   5000
      Left            =   -420
      Top             =   4365
   End
   Begin VB.Label lblLicenseTo 
      BackStyle       =   0  'Transparent
      Caption         =   "使用权属于："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   210
      Left            =   1500
      TabIndex        =   2
      Top             =   4170
      Width           =   5970
   End
   Begin VB.Label lblVersion 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "版本"
      ForeColor       =   &H000040C0&
      Height          =   180
      Left            =   7980
      TabIndex        =   1
      Top             =   3015
      Width           =   360
   End
   Begin VB.Label lblCopyright 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "ALL COPYRIGHT RESERVED  版权保留"
      ForeColor       =   &H00404080&
      Height          =   180
      Left            =   5715
      TabIndex        =   0
      Top             =   4530
      Width           =   2880
   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_Activate()
  Timer2.Enabled = True
End Sub

Private Sub Form_Click()
    Unload Me
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
    Unload Me
End Sub

Private Sub Form_Load()
  frmSplash.Left = (Screen.Width - frmSplash.Width) / 2
  frmSplash.Top = (Screen.Height - frmSplash.Height) / 2 - 600
  frmSplash.Picture = LoadPicture(Browser + "PHOTO\SUB.BMP")
  lblVersion.Caption = "版本 " & App.Major & "." & App.Minor & "." & App.Revision
  lblLicenseTo.Caption = lblLicenseTo.Caption + CompanyName + "《" + UserText + "》"
  On Error GoTo FileErr
  Dim LongX As Integer, X As Integer
  Dim TempS As String, TempC As String
      LongX = FreeFile
  TempS = Browser + "SAMPLE.DAT"
  Open TempS For Input As #LongX
       X = 0
    Do While Not EOF(LongX)
       Line Input #LongX, TempC
       If X <= 9 Then
          Pro(X) = TempC
       End If
       X = X + 1
    Loop
  Close #LongX

  
  Exit Sub
FileErr:
   MsgBox "文件没有找到或其它情况，不能正常装载项目。", vbOKOnly + vbExclamation, "数据文件破坏"
   Exit Sub
End Sub

Private Sub Form_Unload(Cancel As Integer)
   MDIForm1.Show
End Sub

Private Sub lblCopyright_Click()
   Unload Me
End Sub

Private Sub lblLicenseTo_Click()
   Unload Me
End Sub

Private Sub lblVersion_Click()
   Unload Me
End Sub

Private Sub Timer2_Timer()
   Unload Me
End Sub