📄 mainlarge.frm
字号:
VERSION 5.00
Object = "{27395F88-0C0C-101B-A3C9-08002B2F49FB}#1.1#0"; "PICCLP32.OCX"
Begin VB.Form MainLarge
BorderStyle = 4 'Fixed ToolWindow
Caption = "Quad-Ball By Arvinder Sehmi 1999, Arvinder@Sehmi.Co.Uk"
ClientHeight = 8985
ClientLeft = 150
ClientTop = 405
ClientWidth = 12000
BeginProperty Font
Name = "Times New Roman"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "MainLarge.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Moveable = 0 'False
ScaleHeight = 8985
ScaleWidth = 12000
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.PictureBox StatBox
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H00C000C0&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 1350
Left = 0
ScaleHeight = 1350
ScaleWidth = 1095
TabIndex = 0
Top = 0
Visible = 0 'False
Width = 1095
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "Total Score"
BeginProperty Font
Name = "Times New Roman"
Size = 27.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 510
Left = 900
TabIndex = 12
Top = 1890
Width = 3660
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = "Planet Satatus"
BeginProperty Font
Name = "Times New Roman"
Size = 27.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 555
Left = 900
TabIndex = 11
Top = 3015
Width = 4110
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = "Top Speed"
BeginProperty Font
Name = "Times New Roman"
Size = 27.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 555
Left = 900
TabIndex = 10
Top = 5670
Width = 3885
End
Begin VB.Label Label8
BackStyle = 0 'Transparent
Caption = "Total Number Of Bounces"
BeginProperty Font
Name = "Times New Roman"
Size = 27.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 645
Left = 900
TabIndex = 9
Top = 6750
Width = 6180
End
Begin VB.Label TotalScore
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "SCORE"
BeginProperty Font
Name = "Times New Roman"
Size = 36
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 825
Left = 4005
TabIndex = 8
Top = 1755
Width = 2490
End
Begin VB.Label SavedPlanets
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Earth"
BeginProperty Font
Name = "Times New Roman"
Size = 36
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 825
Index = 1
Left = 4770
TabIndex = 7
Top = 2970
Width = 1785
End
Begin VB.Label TopSpeed
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "TopSpeed"
BeginProperty Font
Name = "Times New Roman"
Size = 36
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 825
Left = 4005
TabIndex = 6
Top = 5490
Width = 3090
End
Begin VB.Label TotalBounces
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "TotalBounces"
BeginProperty Font
Name = "Times New Roman"
Size = 36
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 825
Left = 7200
TabIndex = 5
Top = 6615
Width = 4185
End
Begin VB.Label SavedPlanets
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Mars"
BeginProperty Font
Name = "Times New Roman"
Size = 36
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 825
Index = 2
Left = 4770
TabIndex = 4
Top = 3735
Width = 1635
End
Begin VB.Label SavedPlanets
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Neptune"
BeginProperty Font
Name = "Times New Roman"
Size = 36
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 825
Index = 3
Left = 4770
TabIndex = 3
Top = 4455
Width = 2580
End
Begin VB.Label Label9
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Game Statistics"
BeginProperty Font
Name = "Times New Roman"
Size = 48
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFF00&
Height = 1095
Left = 900
TabIndex = 2
Top = 270
Width = 5985
End
Begin VB.Label OK
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Continue"
BeginProperty Font
Name = "Times New Roman"
Size = 36
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 825
Left = 8460
TabIndex = 1
Top = 7650
Width = 2805
End
End
Begin VB.PictureBox StoryScreen
AutoSize = -1 'True
BackColor = &H00FF8080&
BorderStyle = 0 'None
Height = 2000
Left = 0
ScaleHeight = 1995
ScaleWidth = 1995
TabIndex = 13
Top = 0
Visible = 0 'False
Width = 2000
Begin VB.Label StoryLabel
Alignment = 2 'Center
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Times New Roman"
Size = 20.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 2460
Left = 0
TabIndex = 16
Top = 0
Width = 12075
WordWrap = -1 'True
End
Begin VB.Label Start2
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Start Game"
BeginProperty Font
Name = "Times New Roman"
Size = 27.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 585
Left = 1800
TabIndex = 15
Top = 8145
Width = 3225
End
Begin VB.Label Quit2
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Quit Game"
BeginProperty Font
Name = "Times New Roman"
Size = 27.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 585
Left = 6750
TabIndex = 14
Top = 8145
Width = 2955
End
End
Begin VB.PictureBox TitleScreen
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H0080C0FF&
BorderStyle = 0 'None
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 8805
Left = 0
ScaleHeight = 8805
ScaleWidth = 7590
TabIndex = 45
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -