📄 frmsplash1.frm
字号:
VERSION 5.00
Begin VB.Form FRMsplash
BorderStyle = 3 'Fixed Dialog
ClientHeight = 4980
ClientLeft = 255
ClientTop = 1410
ClientWidth = 6840
ClipControls = 0 'False
ControlBox = 0 'False
Icon = "FRMsplash1.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4980
ScaleWidth = 6840
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.Timer Timer7
Interval = 40
Left = 7335
Top = 3735
End
Begin VB.Timer Timer6
Interval = 1
Left = 7335
Top = 3195
End
Begin VB.Timer Timer5
Interval = 1
Left = 7290
Top = 2655
End
Begin VB.Timer Timer4
Interval = 1
Left = 7290
Top = 2160
End
Begin VB.Timer Timer3
Interval = 1
Left = 7290
Top = 1620
End
Begin VB.Timer Timer2
Interval = 1
Left = 7290
Top = 1125
End
Begin VB.Timer Timer1
Interval = 1
Left = 7290
Top = 585
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "鲜"
BeginProperty Font
Name = "楷体_GB2312"
Size = 17.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00E0E0E0&
Height = 345
Left = 765
TabIndex = 7
Top = 480
Width = 375
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "花"
BeginProperty Font
Name = "楷体_GB2312"
Size = 17.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00E0E0E0&
Height = 345
Left = 765
TabIndex = 6
Top = 900
Width = 375
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "信"
BeginProperty Font
Name = "楷体_GB2312"
Size = 17.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00E0E0E0&
Height = 345
Left = 765
TabIndex = 5
Top = 1320
Width = 375
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "息"
BeginProperty Font
Name = "楷体_GB2312"
Size = 17.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00E0E0E0&
Height = 345
Left = 765
TabIndex = 4
Top = 1755
Width = 375
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "系"
BeginProperty Font
Name = "楷体_GB2312"
Size = 17.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00E0E0E0&
Height = 345
Left = 765
TabIndex = 3
Top = 2175
Width = 375
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "统"
BeginProperty Font
Name = "楷体_GB2312"
Size = 17.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00E0E0E0&
Height = 345
Left = 765
TabIndex = 2
Top = 2595
Width = 375
End
Begin VB.Label Label11
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Accp 1208 白班 三对三工作组"
BeginProperty Font
Name = "幼圆"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF00FF&
Height = 285
Left = 2040
TabIndex = 1
Top = 4320
Width = 4335
End
Begin VB.Shape Shape1
BorderColor = &H00FFC0C0&
BorderWidth = 3
Height = 1305
Left = 240
Top = 3315
Width = 1455
End
Begin VB.Label Label12
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "龍"
BeginProperty Font
Name = "隶书"
Size = 72
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFC0C0&
Height = 1440
Left = 240
TabIndex = 0
Top = 3195
Width = 1455
End
Begin VB.Image Image1
Height = 5055
Left = 0
Picture = "FRMsplash1.frx":1272
Stretch = -1 'True
Top = 0
Width = 6855
End
End
Attribute VB_Name = "FRMsplash"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim t1 As Integer
Dim t2 As Integer
Dim t3 As Integer
Dim t4 As Integer
Dim t5 As Integer
Dim t6 As Integer
Dim t7 As Integer
Private Sub Form_Load()
t1 = 250
t2 = 250
t3 = 250
t4 = 250
t5 = 250
t6 = 250
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
Timer5.Enabled = False
Timer6.Enabled = False
Timer7.Enabled = False
Label2.Visible = False
Label3.Visible = False
Label4.Visible = False
Label5.Visible = False
Label6.Visible = False
Shape1.Visible = False
Label12.Visible = False
Label11.Visible = False
End Sub
Private Sub Timer1_Timer()
t1 = t1 - 25
Label1.ForeColor = RGB(t1, t1, t1)
If t1 = 0 Then
Label1.ForeColor = vbBlack
Label2.Visible = True
Timer2.Enabled = True
Timer1.Enabled = False
End If
End Sub
Private Sub Timer2_Timer()
t2 = t2 - 25
Label2.ForeColor = RGB(t2, t2, t2)
If t2 = 0 Then
Label2.ForeColor = vbBlack
Label3.Visible = True
Timer3.Enabled = True
Timer2.Enabled = False
End If
End Sub
Private Sub Timer3_Timer()
t3 = t3 - 25
Label3.ForeColor = RGB(t3, t3, t3)
If t3 = 0 Then
Label3.ForeColor = vbBlack
Label4.Visible = True
Timer4.Enabled = True
Timer3.Enabled = False
End If
End Sub
Private Sub Timer4_Timer()
t4 = t4 - 25
Label4.ForeColor = RGB(t4, t4, t4)
If t4 = 0 Then
Label4.ForeColor = vbBlack
Label5.Visible = True
Timer5.Enabled = True
Timer4.Enabled = False
End If
End Sub
Private Sub Timer5_Timer()
t5 = t5 - 25
Label5.ForeColor = RGB(t5, t5, t5)
If t5 = 0 Then
Label5.ForeColor = vbBlack
Label6.Visible = True
Timer6.Enabled = True
Timer5.Enabled = False
End If
End Sub
Private Sub Timer6_Timer()
t6 = t6 - 25
Label6.ForeColor = RGB(t6, t6, t6)
If t6 = 0 Then
Label6.ForeColor = vbBlack
Timer7.Enabled = True
Timer6.Enabled = False
End If
End Sub
Private Sub Timer7_Timer()
t7 = t7 + 1
If t7 = 15 Then
Label12.Visible = True
Shape1.Visible = True
End If
If t7 = 40 Then
Label11.Visible = True
End If
If t7 = 80 Then
FrmDengLu.Show
Unload Me
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -