form1.frm

一个图书管管理软件

VERSION 5.00
Begin VB.Form startup 
   BackColor       =   &H000000C0&
   BorderStyle     =   0  'None
   Caption         =   "**Library Manage System**             "
   ClientHeight    =   2955
   ClientLeft      =   2220
   ClientTop       =   2220
   ClientWidth     =   6690
   LinkTopic       =   "Form1"
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   2955
   ScaleWidth      =   6690
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer Timer4 
      Interval        =   10
      Left            =   2640
      Top             =   2280
   End
   Begin VB.Timer Timer3 
      Interval        =   100
      Left            =   1200
      Top             =   4800
   End
   Begin VB.Timer Timer2 
      Interval        =   20
      Left            =   1920
      Top             =   4560
   End
   Begin VB.Timer Timer1 
      Interval        =   20
      Left            =   3000
      Top             =   4800
   End
   Begin VB.Line Line3 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   2
      X1              =   360
      X2              =   360
      Y1              =   0
      Y2              =   3000
   End
   Begin VB.Line Line2 
      BorderColor     =   &H000080FF&
      BorderWidth     =   2
      X1              =   3000
      X2              =   3000
      Y1              =   0
      Y2              =   3000
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00FF0000&
      BorderWidth     =   2
      X1              =   3240
      X2              =   3240
      Y1              =   0
      Y2              =   3000
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   555
      Left            =   240
      TabIndex        =   0
      Top             =   960
      Width           =   150
   End
End
Attribute VB_Name = "startup"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim X1 As Integer, X2 As Integer 'as you know in all my splash screen i use alot of integers
Dim XX1 As Integer, XX2 As Integer
Dim TheTitle As String, Counter1 As Integer
Dim R1 As Integer, B1 As Integer, G1 As Integer



Private Sub Form_Load()
X1 = Line1.X1 'sets all the variables so the ani doesnt start at zero
X2 = Line1.X2
XX2 = Line2.X2
XX1 = Line2.X1

'along with changing the timer change these around as well
'color variables
R1 = 0
B1 = 0
G1 = 255

Counter1 = 0 'sets the counter

'just put your title on the form's caption; it will appear on the form
'the animation ends when its all typed up...
'make the name long
TheTitle = Me.Caption
End Sub

Private Sub Timer1_Timer()
X1 = X1 + 100 'calculates the variables
X2 = X2 - 100

Line1.X1 = X1 'sets the properties
Line1.X2 = X2
End Sub

Private Sub Timer2_Timer()
XX1 = XX1 - 100 'calculate the variables
XX2 = XX2 + 100

Line2.X1 = XX1 'set the properties
Line2.X2 = XX2
End Sub

Private Sub Timer3_Timer()
Line3.X1 = Line3.X1 + 300 'do the ani for the typing
Line3.X2 = Line3.X2 + 300

If Len(Label1.Caption) = Len(TheTitle) Then 'if its done

Timer3.Enabled = False 'disable the ani timers
Timer1.Enabled = False
Timer2.Enabled = False

Line3.Visible = False 'hide the ani
Line2.Visible = False
Line1.Visible = False

login.Show
Unload Me

Else
Label1.Caption = Mid(TheTitle, 1, Counter1) 'place the next char for typing effect
Counter1 = Counter1 + 1 'add to the counter
End If

End Sub

Private Sub Timer4_Timer()
'change around the colors like instead of having red and blue add up have them subtract and green add up
R1 = R1 + 1: If R1 = 255 Then R1 = 0
B1 = B1 + 1: If B1 = 255 Then B1 = 0
G1 = G1 - 1: If G1 = 0 Then G1 = 255
Label1.ForeColor = RGB(R1, G1, B1)
End Sub