pacfrm.frm
来自「吃豆子游戏的源代码。 嘿嘿」· FRM 代码 · 共 1,452 行 · 第 1/4 页
FRM
1,452 行
VERSION 5.00
Begin VB.Form MainFrm
BorderStyle = 1 'Fixed Single
Caption = "VB-Pacman By Arvinder Sehmi 1999, VB@Arvinder.co.uk"
ClientHeight = 6435
ClientLeft = 45
ClientTop = 330
ClientWidth = 8460
Icon = "PacFrm.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6435
ScaleWidth = 8460
StartUpPosition = 2 'CenterScreen
Begin VB.PictureBox EndScreen
BackColor = &H00000000&
Height = 6630
Left = -5895
ScaleHeight = 6570
ScaleWidth = 8460
TabIndex = 30
Top = -4770
Visible = 0 'False
Width = 8520
Begin PacManProject.RndButton ContinueBttn
Height = 465
Left = 5355
TabIndex = 36
Top = 5940
Width = 2715
_ExtentX = 4789
_ExtentY = 820
Caption = "Continue"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Comic Sans MS"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 49152
End
Begin VB.Image EndPic
Height = 3270
Left = 45
Top = 1980
Width = 5160
End
Begin VB.Image EndPicCon
BorderStyle = 1 'Fixed Single
Height = 3270
Left = 3510
Top = 5670
Visible = 0 'False
Width = 5160
End
Begin VB.Label ScoreTotal
BackStyle = 0 'Transparent
Caption = "0"
BeginProperty Font
Name = "Comic Sans MS"
Size = 24
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 825
Left = 4545
TabIndex = 35
Top = 5220
Width = 2670
End
Begin VB.Label LevReached
BackStyle = 0 'Transparent
Caption = "0"
BeginProperty Font
Name = "Comic Sans MS"
Size = 24
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 780
Left = 4545
TabIndex = 34
Top = 5805
Width = 2670
End
Begin VB.Label Label3
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Score:"
BeginProperty Font
Name = "Comic Sans MS"
Size = 24
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 780
Left = 135
TabIndex = 33
Top = 5175
Width = 3750
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Level Reached:"
BeginProperty Font
Name = "Comic Sans MS"
Size = 24
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 780
Left = 135
TabIndex = 32
Top = 5760
Width = 3750
End
Begin VB.Label EndInfoTitle
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = " "
BeginProperty Font
Name = "Comic Sans MS"
Size = 36
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 1005
Left = -1275
TabIndex = 31
Top = 0
Width = 10905
WordWrap = -1 'True
End
Begin VB.Image EndPicDie
BorderStyle = 1 'Fixed Single
Height = 3375
Left = 4860
Top = 5085
Visible = 0 'False
Width = 6750
End
End
Begin VB.PictureBox Loading
AutoSize = -1 'True
Height = 420
Left = 1620
ScaleHeight = 360
ScaleWidth = 360
TabIndex = 24
Top = 1845
Visible = 0 'False
Width = 420
Begin VB.Label LevNum
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "0"
BeginProperty Font
Name = "Arial"
Size = 48
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1080
Left = 5895
TabIndex = 25
Top = 4275
Width = 540
End
End
Begin VB.ListBox WallList
Appearance = 0 'Flat
Height = 225
ItemData = "PacFrm.frx":0442
Left = 3150
List = "PacFrm.frx":0444
Sorted = -1 'True
TabIndex = 21
Top = 1395
Visible = 0 'False
Width = 2715
End
Begin VB.PictureBox StartScreen
BackColor = &H00000000&
Height = 6585
Left = -7020
ScaleHeight = 6525
ScaleWidth = 8595
TabIndex = 15
Top = 0
Width = 8655
Begin PacManProject.RndButton Play
Height = 645
Left = 90
TabIndex = 16
Top = 5355
Width = 2760
_ExtentX = 4868
_ExtentY = 1535
Caption = "Play Pacman"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Comic Sans MS"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 49152
End
Begin PacManProject.RndButton LevEdit
Height = 645
Left = 2880
TabIndex = 17
Top = 5355
Width = 2760
_ExtentX = 4868
_ExtentY = 1535
Caption = "Level Editor"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Comic Sans MS"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 49152
End
Begin PacManProject.RndButton ExitPacman
Height = 645
Left = 5670
TabIndex = 18
Top = 5355
Width = 2760
_ExtentX = 4868
_ExtentY = 1535
Caption = "Exit Pacman"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Comic Sans MS"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 49152
End
Begin VB.Image MainPic
Height = 3375
Left = 765
Top = 1800
Width = 6750
End
Begin VB.Label Label1
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "If You Have Any Problems, or Questions Please E-Mail Me, Arvi At: VB@Arvinder.co.uk"
ForeColor = &H0000FFFF&
Height = 195
Left = 1185
TabIndex = 19
Top = 6165
Width = 6225
End
Begin VB.Image Title
Height = 2160
Left = 360
Top = 135
Width = 7755
End
End
Begin VB.ListBox FoodList
Appearance = 0 'Flat
Height = 225
ItemData = "PacFrm.frx":0446
Left = 3150
List = "PacFrm.frx":0448
Sorted = -1 'True
TabIndex = 1
Top = 1845
Visible = 0 'False
Width = 2715
End
Begin VB.ListBox BeerList
Appearance = 0 'Flat
Height = 225
ItemData = "PacFrm.frx":044A
Left = 3150
List = "PacFrm.frx":044C
Sorted = -1 'True
TabIndex = 2
Top = 720
Visible = 0 'False
Width = 2715
End
Begin VB.ListBox CherryList
Appearance = 0 'Flat
Height = 225
ItemData = "PacFrm.frx":044E
Left = 3150
List = "PacFrm.frx":0450
Sorted = -1 'True
TabIndex = 4
Top = 495
Visible = 0 'False
Width = 2715
End
Begin VB.ListBox LifeList
Appearance = 0 'Flat
Height = 225
ItemData = "PacFrm.frx":0452
Left = 3150
List = "PacFrm.frx":0454
Sorted = -1 'True
TabIndex = 5
Top = 1620
Visible = 0 'False
Width = 2715
End
Begin VB.ListBox ProtectList
Appearance = 0 'Flat
Height = 225
ItemData = "PacFrm.frx":0456
Left = 3150
List = "PacFrm.frx":0458
Sorted = -1 'True
TabIndex = 8
Top = 945
Visible = 0 'False
Width = 2715
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?