pacfrm.frm
来自「吃豆子游戏的源代码。 嘿嘿」· FRM 代码 · 共 1,452 行 · 第 1/4 页
FRM
1,452 行
End
Begin VB.ListBox BerryList
Appearance = 0 'Flat
Height = 225
ItemData = "PacFrm.frx":045A
Left = 3150
List = "PacFrm.frx":045C
Sorted = -1 'True
TabIndex = 9
Top = 1170
Visible = 0 'False
Width = 2715
End
Begin VB.PictureBox InfoPane
BackColor = &H00FF0000&
BorderStyle = 0 'None
Height = 6270
Left = 6435
ScaleHeight = 6270
ScaleWidth = 1950
TabIndex = 6
Top = 90
Width = 1950
Begin VB.PictureBox ShieldPicMsk
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 330
Left = 495
ScaleHeight = 330
ScaleWidth = 330
TabIndex = 11
Top = 2835
Visible = 0 'False
Width = 330
End
Begin VB.PictureBox ShieldPic
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 330
Left = 135
ScaleHeight = 330
ScaleWidth = 330
TabIndex = 10
Top = 2835
Visible = 0 'False
Width = 330
End
Begin PacManProject.ProgBar DrunkBar
Height = 1530
Left = 225
TabIndex = 7
Top = 3060
Width = 1575
_ExtentX = 2619
_ExtentY = 2619
End
Begin PacManProject.ProgBar ShieldBar
Height = 1530
Left = 225
TabIndex = 37
Top = 1305
Width = 1575
_ExtentX = 2619
_ExtentY = 2619
End
Begin VB.Label Info
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "READY"
BeginProperty Font
Name = "Comic Sans MS"
Size = 24
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFF00&
Height = 675
Left = 225
TabIndex = 20
Top = 5445
Visible = 0 'False
Width = 1590
End
Begin VB.Label Lives
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "3"
BeginProperty Font
Name = "Comic Sans MS"
Size = 20.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 570
Left = 1380
TabIndex = 14
Top = 4725
Width = 240
End
Begin VB.Label Label
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "X"
BeginProperty Font
Name = "Comic Sans MS"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 525
Left = 855
TabIndex = 13
Top = 4770
Width = 255
End
Begin VB.Image LifeImg
Height = 510
Left = 180
Stretch = -1 'True
Top = 4815
Width = 465
End
Begin VB.Label Score
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "0"
BeginProperty Font
Name = "Comic Sans MS"
Size = 20.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 480
Left = 0
TabIndex = 12
Top = 675
Width = 1965
End
Begin VB.Image ScoreImg
Height = 750
Left = 225
Top = 45
Width = 1500
End
End
Begin VB.PictureBox Area
BackColor = &H00C00000&
BorderStyle = 0 'None
Height = 6270
Left = 45
ScaleHeight = 6270
ScaleWidth = 6270
TabIndex = 0
Top = 90
Width = 6270
Begin VB.Frame Std
Caption = "Std"
Height = 690
Left = 4680
TabIndex = 29
Top = 3375
Visible = 0 'False
Width = 1095
Begin VB.Image StdWall
Height = 330
Index = 0
Left = 585
Top = 405
Width = 330
End
Begin VB.Image StdBack
Height = 6270
Left = 270
Top = 225
Width = 6270
End
Begin VB.Image StdFood
Height = 330
Left = 45
Top = 180
Width = 330
End
End
Begin VB.Frame Sky
Caption = "Sky"
Height = 690
Left = 4680
TabIndex = 28
Top = 3195
Visible = 0 'False
Width = 1095
Begin VB.Image SkyFood
Height = 330
Left = 585
Top = 360
Width = 330
End
Begin VB.Image SkyBack
Height = 6270
Left = 360
Top = 225
Width = 6270
End
Begin VB.Image SkyWall
Height = 330
Index = 0
Left = 90
Top = 225
Width = 330
End
End
Begin VB.Frame Christmas
Caption = "Christmas"
Height = 735
Left = 4680
TabIndex = 27
Top = 3015
Visible = 0 'False
Width = 1050
Begin VB.Image ChristmasWall
Height = 330
Index = 1
Left = 900
Top = 225
Width = 330
End
Begin VB.Image ChristmasWall
Height = 330
Index = 0
Left = 315
Top = 270
Width = 330
End
Begin VB.Image ChristmasFood
Height = 330
Left = 630
Top = 180
Width = 330
End
Begin VB.Image ChristmasBack
Height = 6270
Left = 135
Top = 180
Width = 6270
End
End
Begin VB.Timer ProtectTimer
Enabled = 0 'False
Interval = 1000
Left = 1755
Top = 3555
End
Begin VB.Timer DrunkTimer
Enabled = 0 'False
Interval = 1000
Left = 2970
Top = 3555
End
Begin VB.Timer GhoulTimer
Enabled = 0 'False
Interval = 200
Left = 2565
Top = 3555
End
Begin VB.Timer EatTimer
Enabled = 0 'False
Interval = 250
Left = 2160
Top = 3555
End
Begin VB.Frame Space
Caption = "Space"
Height = 645
Left = 4680
TabIndex = 26
Top = 2835
Visible = 0 'False
Width = 1095
Begin VB.Image SpaceWall
Height = 330
Index = 1
Left = 315
Top = 450
Width = 330
End
Begin VB.Image SpaceFood
Height = 330
Left = 540
Top = 225
Width = 330
End
Begin VB.Image SpaceBack
Height = 6270
Left = 405
Top = 225
Width = 6270
End
Begin VB.Image SpaceWall
Height = 330
Index = 0
Left = 90
Top = 225
Width = 330
End
End
Begin VB.Frame Chocolate
Caption = "Chocolate"
Height = 600
Left = 4680
TabIndex = 23
Top = 2655
Visible = 0 'False
Width = 1095
Begin VB.Image ChocolateFood
Height = 330
Left = 495
Top = 225
Width = 330
End
Begin VB.Image ChocolateBack
Height = 6270
Left = 405
Top = 225
Width = 6270
End
Begin VB.Image ChocolateWall
Height = 330
Index = 0
Left = 135
Top = 225
Width = 330
End
End
Begin VB.Frame Metal
Caption = "Metal:"
Height = 555
Left = 4680
TabIndex = 22
Top = 2475
Visible = 0 'False
Width = 1095
Begin VB.Image MetalWall
Height = 330
Index = 1
Left = 360
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?