📄 frmpacman.frm
字号:
VERSION 5.00
Begin VB.Form frmPacMan
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
Caption = "Form1"
ClientHeight = 8295
ClientLeft = 0
ClientTop = 0
ClientWidth = 6720
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 553
ScaleMode = 3 'Pixel
ScaleWidth = 448
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.Timer tmrReady
Enabled = 0 'False
Interval = 500
Left = 7080
Top = 7800
End
Begin VB.Timer tmrPookie
Interval = 100
Left = 6000
Top = 7440
End
Begin VB.Timer tmrFlash
Interval = 500
Left = 10680
Top = 7800
End
Begin VB.PictureBox pctBack
AutoRedraw = -1 'True
BackColor = &H00404080&
BorderStyle = 0 'None
Enabled = 0 'False
Height = 2880
Left = 10320
ScaleHeight = 192
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 8
Top = 4500
Visible = 0 'False
Width = 480
End
Begin VB.Timer tmrKeyBoard
Enabled = 0 'False
Interval = 10
Left = 11220
Top = 7800
End
Begin VB.PictureBox pctTiles
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Enabled = 0 'False
Height = 5280
Left = 7200
ScaleHeight = 352
ScaleMode = 3 'Pixel
ScaleWidth = 256
TabIndex = 5
Top = 360
Visible = 0 'False
Width = 3840
End
Begin VB.PictureBox pctScreen
AutoRedraw = -1 'True
BackColor = &H00800080&
BorderStyle = 0 'None
Enabled = 0 'False
ForeColor = &H0000FF00&
Height = 7425
Left = 0
Picture = "frmPacMan.frx":0000
ScaleHeight = 495
ScaleMode = 3 'Pixel
ScaleWidth = 448
TabIndex = 0
Top = 420
Visible = 0 'False
Width = 6720
Begin VB.Label lblPlayer
Alignment = 2 'Center
BackColor = &H00000000&
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Tahoma"
Size = 18
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 495
Left = 2100
TabIndex = 15
Top = 4680
Width = 2535
End
Begin VB.Label lblReady
Alignment = 2 'Center
BackColor = &H00000000&
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Tahoma"
Size = 18
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 495
Left = 2100
TabIndex = 14
Top = 3960
Width = 2535
End
End
Begin VB.PictureBox pctpicture
AutoRedraw = -1 'True
BackColor = &H00800000&
BorderStyle = 0 'None
ForeColor = &H0000FF00&
Height = 7425
Left = 6720
ScaleHeight = 495
ScaleMode = 3 'Pixel
ScaleWidth = 448
TabIndex = 6
Top = 360
Visible = 0 'False
Width = 6720
End
Begin VB.PictureBox pctStats
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
Enabled = 0 'False
Height = 480
Left = 0
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 448
TabIndex = 7
Top = 7800
Width = 6720
Begin VB.Label lblKeys
Alignment = 2 'Center
BackColor = &H00000000&
Caption = "(I) Insert Coin (1) 1 Play (2) 2 Play (E) Enhanced (S) Speed (Esc) Exit"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0C0&
Height = 195
Left = 0
TabIndex = 13
Top = 240
Width = 6615
End
End
Begin VB.Label lblSpeed
Alignment = 2 'Center
BackColor = &H00000000&
Caption = "NORMAL SPEED"
BeginProperty Font
Name = "Tahoma"
Size = 18
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 435
Left = 60
TabIndex = 17
Top = 2280
Width = 6615
End
Begin VB.Label lblPlayers
Alignment = 2 'Center
BackColor = &H00000000&
BeginProperty Font
Name = "Tahoma"
Size = 18
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 435
Left = 60
TabIndex = 16
Top = 4920
Width = 6615
End
Begin VB.Label lblCoins
Alignment = 2 'Center
BackColor = &H00000000&
Caption = "0 CREDITS"
BeginProperty Font
Name = "Tahoma"
Size = 18
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 375
Left = 60
TabIndex = 12
Top = 7020
Width = 6615
End
Begin VB.Label lblPookie
Alignment = 2 'Center
BackColor = &H00000000&
Caption = "By Lord Pookie :)"
BeginProperty Font
Name = "Tahoma"
Size = 18
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 435
Left = 60
TabIndex = 11
Top = 3720
Width = 6615
End
Begin VB.Label lblTitle
Alignment = 2 'Center
BackColor = &H00000000&
Caption = "ENHANCED PACMAN"
BeginProperty Font
Name = "Tahoma"
Size = 18
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 435
Left = 60
TabIndex = 10
Top = 1020
Width = 6615
End
Begin VB.Label lblInsert
Alignment = 2 'Center
BackColor = &H00000000&
Caption = "INSERT COINS"
BeginProperty Font
Name = "Tahoma"
Size = 18
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 435
Left = 60
TabIndex = 9
Top = 6060
Width = 6615
End
Begin VB.Label Label3
Alignment = 1 'Right Justify
BackColor = &H00000000&
Caption = "SCORE"
BeginProperty Font
Name = "Tahoma"
Size = 18
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 375
Left = 60
TabIndex = 4
Top = 0
Width = 1215
End
Begin VB.Label lblHiscore
Alignment = 1 'Right Justify
BackColor = &H00000000&
Caption = "0"
BeginProperty Font
Name = "Tahoma"
Size = 18
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 375
Left = 3480
TabIndex = 3
Top = 0
Width = 1455
End
Begin VB.Label lblScore
BackColor = &H00000000&
Caption = "0"
BeginProperty Font
Name = "Tahoma"
Size = 18
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 375
Left = 1440
TabIndex = 2
Top = 0
Width = 1455
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
BackColor = &H00000000&
Caption = "HI SCORE"
BeginProperty Font
Name = "Tahoma"
Size = 18
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 375
Left = 4980
TabIndex = 1
Top = 0
Width = 1695
End
End
Attribute VB_Name = "frmPacMan"
Attribute VB_GlobalNameSpace = False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -