?? 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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -