📄 frmgame.frm
字号:
VERSION 5.00
Begin VB.Form frmGame
BackColor = &H00808000&
BorderStyle = 1 'Fixed Single
Caption = "Tank Game"
ClientHeight = 8100
ClientLeft = 75
ClientTop = 360
ClientWidth = 11790
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 8100
ScaleWidth = 11790
Begin VB.PictureBox aimethod
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 405
Index = 0
Left = 9600
Picture = "frmGame.frx":0000
ScaleHeight = 375
ScaleWidth = 375
TabIndex = 31
Top = 5640
Width = 405
End
Begin VB.PictureBox aimethod
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 405
Index = 1
Left = 9600
Picture = "frmGame.frx":038B
ScaleHeight = 375
ScaleWidth = 375
TabIndex = 30
Top = 6240
Width = 405
End
Begin VB.PictureBox check
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 405
Left = 10320
Picture = "frmGame.frx":06FF
ScaleHeight = 375
ScaleWidth = 375
TabIndex = 29
Top = 8040
Visible = 0 'False
Width = 405
End
Begin VB.PictureBox uncheck
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 405
Left = 9840
Picture = "frmGame.frx":0A8A
ScaleHeight = 375
ScaleWidth = 375
TabIndex = 28
Top = 8040
Visible = 0 'False
Width = 405
End
Begin VB.CheckBox avoid
BackColor = &H00808000&
Caption = "Avoid Missiles"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 375
Left = 9600
TabIndex = 27
Top = 6840
Width = 1935
End
Begin VB.Timer blowupplayer
Enabled = 0 'False
Interval = 100
Left = 5880
Top = 480
End
Begin VB.PictureBox piclives
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H00C0C000&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 570
Index = 4
Left = 10680
Picture = "frmGame.frx":0DFE
ScaleHeight = 570
ScaleWidth = 420
TabIndex = 26
Top = 4320
Width = 420
End
Begin VB.PictureBox piclives
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H00C0C000&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 570
Index = 3
Left = 9960
Picture = "frmGame.frx":1355
ScaleHeight = 570
ScaleWidth = 420
TabIndex = 25
Top = 4320
Width = 420
End
Begin VB.PictureBox piclives
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H00C0C000&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 570
Index = 2
Left = 10680
Picture = "frmGame.frx":18AC
ScaleHeight = 570
ScaleWidth = 420
TabIndex = 24
Top = 3600
Width = 420
End
Begin VB.PictureBox piclives
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H00C0C000&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 570
Index = 1
Left = 9960
Picture = "frmGame.frx":1E03
ScaleHeight = 570
ScaleWidth = 420
TabIndex = 23
Top = 3600
Width = 420
End
Begin VB.Timer timmissileenemy
Enabled = 0 'False
Index = 0
Interval = 50
Left = 5400
Top = 480
End
Begin VB.PictureBox missileenemy
AutoSize = -1 'True
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 360
Index = 0
Left = 0
ScaleHeight = 360
ScaleWidth = 180
TabIndex = 21
Top = 120
Visible = 0 'False
Width = 180
End
Begin VB.PictureBox enemydown
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 615
Left = 2640
Picture = "frmGame.frx":235A
ScaleHeight = 615
ScaleWidth = 450
TabIndex = 20
Top = 975
Visible = 0 'False
Width = 450
End
Begin VB.PictureBox enemyleft
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 450
Left = 1830
Picture = "frmGame.frx":28C0
ScaleHeight = 450
ScaleWidth = 615
TabIndex = 19
Top = 1020
Visible = 0 'False
Width = 615
End
Begin VB.PictureBox enemyright
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 450
Left = 1110
Picture = "frmGame.frx":2E06
ScaleHeight = 450
ScaleWidth = 615
TabIndex = 18
Top = 1005
Visible = 0 'False
Width = 615
End
Begin VB.PictureBox enemyup
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 615
Left = 495
Picture = "frmGame.frx":334D
ScaleHeight = 615
ScaleWidth = 450
TabIndex = 17
Top = 840
Visible = 0 'False
Width = 450
End
Begin VB.PictureBox missileplayer
AutoSize = -1 'True
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 360
Left = 90
ScaleHeight = 360
ScaleWidth = 180
TabIndex = 16
Top = 2490
Visible = 0 'False
Width = 180
End
Begin VB.PictureBox tankup
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 615
Left = 420
Picture = "frmGame.frx":38C1
ScaleHeight = 615
ScaleWidth = 450
TabIndex = 14
Top = 0
Visible = 0 'False
Width = 450
End
Begin VB.Timer timEnemy
Enabled = 0 'False
Index = 0
Interval = 50
Left = 6570
Top = 0
End
Begin VB.Timer timBomb
Enabled = 0 'False
Index = 0
Interval = 100
Left = 6105
Top = 0
End
Begin VB.Timer timplayer
Enabled = 0 'False
Interval = 50
Left = 5640
Top = 0
End
Begin VB.CommandButton endgame
Caption = "结束游戏"
Enabled = 0 'False
Height = 495
Left = 9690
TabIndex = 13
Top = 1560
Width = 1575
End
Begin VB.CommandButton start
Caption = "开始新游戏"
Enabled = 0 'False
Height = 495
Left = 9690
TabIndex = 12
Top = 855
Width = 1575
End
Begin VB.Timer update
Enabled = 0 'False
Interval = 50
Left = 5205
Top = 15
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
BackColor = &H00808000&
BorderStyle = 0 'None
Height = 315
Left = 5040
TabIndex = 0
Top = 8520
Width = 1290
End
Begin VB.PictureBox tankleft
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 450
Left = 3930
Picture = "frmGame.frx":3E4F
ScaleHeight = 450
ScaleWidth = 615
TabIndex = 11
Top = 180
Visible = 0 'False
Width = 615
End
Begin VB.PictureBox tankdown
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 615
Left = 4845
Picture = "frmGame.frx":43A1
ScaleHeight = 615
ScaleWidth = 450
TabIndex = 10
Top = 195
Visible = 0 'False
Width = 450
End
Begin VB.PictureBox tankright
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 450
Left = 2880
Picture = "frmGame.frx":491F
ScaleHeight = 450
ScaleWidth = 615
TabIndex = 9
Top = 165
Visible = 0 'False
Width = 615
End
Begin VB.PictureBox emptyblock
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 615
Left = 2670
ScaleHeight = 615
ScaleWidth = 495
TabIndex = 8
Top = 8220
Visible = 0 'False
Width = 495
End
Begin VB.PictureBox wall1
Height = 615
Left = 2115
Picture = "frmGame.frx":4E7B
ScaleHeight = 555
ScaleWidth = 435
TabIndex = 7
Top = 8235
Visible = 0 'False
Width = 495
End
Begin VB.PictureBox currentpic
Height = 495
Left = 1560
ScaleHeight = 435
ScaleWidth = 435
TabIndex = 6
Top = 8355
Visible = 0 'False
Width = 495
End
Begin VB.PictureBox tank1pic
AutoSize = -1 'True
Height = 675
Left = 855
Picture = "frmGame.frx":BC46
ScaleHeight = 615
ScaleWidth = 450
TabIndex = 5
Top = 8280
Visible = 0 'False
Width = 510
End
Begin VB.PictureBox yourtankpic
Height = 615
Left = 180
Picture = "frmGame.frx":C1BA
ScaleHeight = 555
ScaleWidth = 555
TabIndex = 4
Top = 8295
Visible = 0 'False
Width = 615
End
Begin VB.CommandButton exit
Caption = "退出程序 "
Height = 495
Left = 9690
TabIndex = 3
Top = 2280
Width = 1575
End
Begin VB.CommandButton cmdload
Caption = "载入新游戏"
Height = 495
Left = 9690
TabIndex = 2
Top = 120
Width = 1575
End
Begin VB.PictureBox block1
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 495
Index = 0
Left = 3255
ScaleHeight = 495
ScaleWidth = 1695
TabIndex = 1
Top = 8355
Visible = 0 'False
Width = 1695
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "Shortest Axis Method"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -