about.frm

delphi财务管理系统.rar delphi财务管理系统.rar

VERSION 5.00
Begin VB.Form Form6 
   BackColor       =   &H00000000&
   BorderStyle     =   1  'Fixed Single
   ClientHeight    =   4200
   ClientLeft      =   3075
   ClientTop       =   2340
   ClientWidth     =   4755
   LinkTopic       =   "Form6"
   MaxButton       =   0   'False
   ScaleHeight     =   4200
   ScaleWidth      =   4755
   Begin VB.Timer Timer1 
      Left            =   5280
      Top             =   3360
   End
   Begin VB.PictureBox Picture1 
      BackColor       =   &H00000000&
      Height          =   375
      Left            =   5280
      ScaleHeight     =   315
      ScaleWidth      =   315
      TabIndex        =   0
      Top             =   3360
      Visible         =   0   'False
      Width           =   375
   End
   Begin VB.Label Label9 
      BackColor       =   &H00000000&
      Caption         =   "      Email:[e-mail]"
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   840
      TabIndex        =   9
      Top             =   3240
      Width           =   3375
   End
   Begin VB.Label Label8 
      BackColor       =   &H00000000&
      Caption         =   "开发平台:   Visual Basic 6.0"
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   1320
      TabIndex        =   8
      Top             =   2640
      Width           =   2655
   End
   Begin VB.Label Label7 
      BackColor       =   &H00000000&
      Caption         =   "页面设计:      王   昆"
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   1320
      TabIndex        =   7
      Top             =   2280
      Width           =   2295
   End
   Begin VB.Label Label6 
      BackColor       =   &H00000000&
      Caption         =   "程序设计:      王   昆"
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   1320
      TabIndex        =   6
      Top             =   1920
      Width           =   2295
   End
   Begin VB.Label Label5 
      BackColor       =   &H00000000&
      Caption         =   "程序开发:      王   昆"
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   1320
      TabIndex        =   5
      Top             =   1560
      Width           =   2295
   End
   Begin VB.Label Label4 
      BackColor       =   &H00000000&
      Caption         =   "[verion 1.0]"
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   1800
      TabIndex        =   4
      Top             =   1080
      Width           =   1095
   End
   Begin VB.Label Label3 
      BackColor       =   &H00000000&
      Caption         =   "Copyright 2003-2004 WWSoft"
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   1200
      TabIndex        =   3
      Top             =   840
      Width           =   2535
   End
   Begin VB.Label Label2 
      BackColor       =   &H00000000&
      Caption         =   "人 事 管 理 系 统"
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   1560
      TabIndex        =   2
      Top             =   600
      Width           =   1695
   End
   Begin VB.Shape Shape2 
      Height          =   495
      Left            =   3720
      Top             =   3600
      Visible         =   0   'False
      Width           =   1215
   End
   Begin VB.Shape Shape1 
      Height          =   495
      Left            =   2520
      Top             =   3600
      Visible         =   0   'False
      Width           =   1215
   End
   Begin VB.Label Label1 
      BackColor       =   &H00000000&
      ForeColor       =   &H00FFFFFF&
      Height          =   4215
      Left            =   -720
      TabIndex        =   1
      Top             =   0
      Width           =   5655
   End
End
Attribute VB_Name = "Form6"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim step As Integer



Private Sub Form_Load()

Label2.Visible = False
Label3.Visible = False
Label4.Visible = False
Label5.Visible = False
Label6.Visible = False
Label7.Visible = False
Label8.Visible = False
Label9.Visible = False


step = 40
Rem
Label1.Left = 0
Label1.Top = Picture1.Height
Label1.Caption = Label1.Caption + "                                 " + Chr$(13)
Label1.Caption = Label1.Caption + "                                 " + Chr$(13)
Label1.Caption = Label1.Caption + "                  人 事 管 理 系 统" + Chr$(13)
Label1.Caption = Label1.Caption + "                                 " + Chr$(13)
Label1.Caption = Label1.Caption + "             Copyright 2003-2004 WWSoft" + Chr$(13)
Label1.Caption = Label1.Caption + "                                 " + Chr$(13)
Label1.Caption = Label1.Caption + "                     [verion 1.0]" + Chr$(13)
Label1.Caption = Label1.Caption + "                                " + Chr$(13)
Label1.Caption = Label1.Caption + "                                 " + Chr$(13)
Label1.Caption = Label1.Caption + "                                 " + Chr$(13)
Label1.Caption = Label1.Caption + "               程序开发:      王   昆" + Chr$(13)
Label1.Caption = Label1.Caption + "                                 " + Chr$(13)
Label1.Caption = Label1.Caption + "               程序设计:      王   昆" + Chr$(13)
Label1.Caption = Label1.Caption + "                               " + Chr$(13)
Label1.Caption = Label1.Caption + "               页面设计:      王   昆" + Chr$(13)
Label1.Caption = Label1.Caption + "                               " + Chr$(13)
Label1.Caption = Label1.Caption + "               开发平台:   Visual Basic 6.0" + Chr$(13)
Label1.Caption = Label1.Caption + "                                 " + Chr$(13)
Label1.Caption = Label1.Caption + "                                 " + Chr$(13)
Label1.Caption = Label1.Caption + "                                 " + Chr$(13)
Label1.Caption = Label1.Caption + "               Email:[e-mail]" + Chr$(13)
                

'Shape1.FillColor = Shape1.BackColor
Shape1.FillStyle = 0
Shape1.Height = Shape2.Height - 2
Shape1.Left = Shape2.Left
Shape1.Top = Shape2.Top + 1
If step < 0 Then
step = -step
End If
If step = 0 Then
step = 40
End If
Timer1.Interval = step
Timer1.Enabled = False


Label1.Top = Picture1.Height
Timer1.Enabled = True



End Sub




Private Sub Timer1_Timer()
If (-Label1.Top) - Label1.Height >= -step Then
Shape1.Width = Shape2.Width
Label1.Top = -Label1.Height

Timer1.Enabled = False

Shape1.Width = 1
Label2.Visible = True
Label3.Visible = True
Label4.Visible = True
Label5.Visible = True
Label6.Visible = True
Label7.Visible = True
Label8.Visible = True
Label9.Visible = True






Else
Label1.Top = Label1.Top - step
Shape1.Width = Shape2.Width * (1 - (Label1.Top + Label1.Height) / (Picture1.Height + Label1.Height))

End If


End Sub