frmbegin.frm

宾馆管理系统

VERSION 5.00
Begin VB.Form frmbegin 
   ClientHeight    =   3615
   ClientLeft      =   60
   ClientTop       =   60
   ClientWidth     =   5415
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   ScaleHeight     =   3615
   ScaleWidth      =   5415
   StartUpPosition =   1  '所有者中心
   Begin VB.Frame Frame1 
      Height          =   3615
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   5415
      Begin VB.PictureBox Picture2 
         Height          =   255
         Left            =   240
         ScaleHeight     =   195
         ScaleWidth      =   1155
         TabIndex        =   10
         Top             =   3120
         Width           =   1215
      End
      Begin VB.PictureBox Picture1 
         Height          =   255
         Left            =   1800
         ScaleHeight     =   195
         ScaleWidth      =   2955
         TabIndex        =   9
         Top             =   3120
         Width           =   3015
      End
      Begin VB.Timer Timer1 
         Left            =   120
         Top             =   2400
      End
      Begin VB.Label Label8 
         Caption         =   "风月居软件公司"
         Height          =   255
         Left            =   1560
         TabIndex        =   8
         Top             =   2520
         Width           =   1455
      End
      Begin VB.Label Label1 
         Caption         =   "载入中 "
         Height          =   255
         Left            =   1680
         TabIndex        =   7
         Top             =   2040
         Width           =   1215
      End
      Begin VB.Label Label7 
         Caption         =   "版权所有 JDG-COMPANY"
         Height          =   255
         Left            =   3120
         TabIndex        =   6
         Top             =   2520
         Width           =   1815
      End
      Begin VB.Label Label6 
         Caption         =   "警告：本程序受版权法及国际版权公约保护。详情见""帮助""!"
         Height          =   375
         Left            =   240
         TabIndex        =   5
         Top             =   2880
         Width           =   4935
      End
      Begin VB.Label Label5 
         Caption         =   "平台：Windows 98/2000/XP"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   495
         Left            =   1920
         TabIndex        =   4
         Top             =   1440
         Width           =   3015
      End
      Begin VB.Label Label4 
         Caption         =   "版本 1.0（测试版）"
         ForeColor       =   &H00000000&
         Height          =   255
         Left            =   3240
         TabIndex        =   3
         Top             =   1200
         Width           =   1815
      End
      Begin VB.Image Image1 
         Height          =   1320
         Left            =   120
         Picture         =   "frmbegin.frx":0000
         Top             =   1200
         Width           =   1320
      End
      Begin VB.Label Label3 
         Caption         =   "太 平 洋 华 光 宾 馆 管 理 系 统"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800080&
         Height          =   495
         Left            =   240
         TabIndex        =   2
         Top             =   600
         Width           =   4935
      End
      Begin VB.Label Label2 
         Caption         =   "本软件属于"
         Height          =   375
         Left            =   3000
         TabIndex        =   1
         Top             =   240
         Width           =   2055
      End
   End
End
Attribute VB_Name = "frmbegin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim i As Integer

Private Sub Form_Load()
i = 0
Picture1.Top = Picture2.Top
Picture1.Height = Picture2.Height
Picture1.Left = Picture2.Left
Picture2.Width = 1
Picture2.BackColor = vbRed
Picture1.BackColor = vbBlack
Picture1.Width = 5000
Timer1.Interval = 20
Timer1.Enabled = False
If i < 100 Then
    Timer1.Enabled = True
End If
End Sub



Private Sub Timer1_Timer()
If i < 100 Then
    i = i + 1
    Picture2.Width = i * 50
ElseIf i = 100 Then
    frmnetset.Show
    'frmLogin.Show
    Unload Me
    
End If

End Sub