📄 frmsplash.frm
字号:
VERSION 5.00
Begin VB.Form frmSplash
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
ClientHeight = 2580
ClientLeft = 210
ClientTop = 1365
ClientWidth = 4665
ClipControls = 0 'False
ControlBox = 0 'False
Icon = "frmSplash.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2580
ScaleWidth = 4665
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.Line Line2
X1 = 4635
X2 = 4635
Y1 = 2160
Y2 = 0
End
Begin VB.Line Line1
X1 = 630
X2 = 4635
Y1 = 0
Y2 = 0
End
Begin VB.Label lblStatus
BackStyle = 0 'Transparent
Caption = "Getting settings from registry..."
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 240
Left = 90
TabIndex = 4
Top = 2295
Width = 3435
End
Begin VB.Shape Shape2
BackColor = &H00FF0000&
BackStyle = 1 'Opaque
BorderColor = &H00FF0000&
Height = 465
Left = 630
Top = 2160
Width = 4380
End
Begin VB.Shape Shape1
BackColor = &H00FF0000&
BackStyle = 1 'Opaque
BorderColor = &H00FF0000&
BorderStyle = 5 'Dash-Dot-Dot
FillColor = &H00FF0000&
Height = 2670
Left = -45
Top = -45
Width = 690
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "ElitePad"
BeginProperty Font
Name = "Tahoma"
Size = 36
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 780
Left = 1350
TabIndex = 5
Top = -45
Width = 2445
End
Begin VB.Label lblVersion
BackStyle = 0 'Transparent
Caption = "Version"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 720
TabIndex = 3
Top = 1440
Width = 1860
End
Begin VB.Label Label2
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "by"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 1350
TabIndex = 2
Top = 765
Width = 2445
End
Begin VB.Label Label3
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Batina Andrea"
BeginProperty Font
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 285
Left = 1350
TabIndex = 1
Top = 945
Width = 2445
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "Copyrights (c) 2000 Batina Andrea. All rights reserved."
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 720
TabIndex = 0
Top = 1935
Width = 4020
End
End
Attribute VB_Name = "frmSplash"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'***************************************************************'
' ELITEPAD '
' Written by '
' Andrea Batina '
' '
' You are free to use the source code in your private, '
' non-commercial, projects without permission. If you want '
' to use this code in commercial projects EXPLICIT permission '
' from the author is required. '
' '
' '
' Copyright
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -