📄 frmbattle.frm
字号:
VERSION 5.00
Object = "{C1A8AF28-1257-101B-8FB0-0020AF039CA3}#1.1#0"; "MCI32.OCX"
Begin VB.Form frmbattle
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 1 'Fixed Single
ClientHeight = 4305
ClientLeft = 15
ClientTop = 75
ClientWidth = 4560
ControlBox = 0 'False
Icon = "frmbattle.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4305
ScaleWidth = 4560
StartUpPosition = 2 'CenterScreen
Begin VB.Timer tmrson
Enabled = 0 'False
Interval = 100
Left = 480
Top = 0
End
Begin VB.Timer tmrbo
Enabled = 0 'False
Interval = 50
Left = 4080
Top = 0
End
Begin VB.Timer tmrtor
Enabled = 0 'False
Interval = 100
Left = 840
Top = 0
End
Begin VB.Timer tmrco
Interval = 1
Left = 1200
Top = 0
End
Begin VB.Timer timergo
Enabled = 0 'False
Interval = 100
Left = 1560
Top = 0
End
Begin VB.Timer tmrover
Enabled = 0 'False
Interval = 100
Left = 1920
Top = 0
End
Begin VB.Timer tmrd2
Enabled = 0 'False
Interval = 50
Left = 3720
Top = 0
End
Begin VB.Timer tmrd
Enabled = 0 'False
Interval = 50
Left = 3360
Top = 0
End
Begin VB.CommandButton cmdover
Caption = "Game Over"
BeginProperty Font
Name = "Comic Sans MS"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 3120
TabIndex = 20
Top = 3480
Visible = 0 'False
Width = 1095
End
Begin VB.Timer tmrfoe
Enabled = 0 'False
Interval = 500
Left = 2280
Top = 0
End
Begin VB.Timer tmrblue
Enabled = 0 'False
Interval = 200
Left = 2640
Top = 0
End
Begin VB.Timer tmrbasic
Enabled = 0 'False
Interval = 200
Left = 3000
Top = 0
End
Begin VB.CommandButton cmdcon
Caption = "Continue"
Enabled = 0 'False
BeginProperty Font
Name = "Comic Sans MS"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3240
TabIndex = 15
Top = 3840
Width = 855
End
Begin MCI.MMControl MMControl1
Height = 330
Left = 360
TabIndex = 24
Top = 4440
Width = 1200
_ExtentX = 2117
_ExtentY = 582
_Version = 393216
PlayEnabled = -1 'True
PauseEnabled = -1 'True
StopEnabled = -1 'True
PrevVisible = 0 'False
NextVisible = 0 'False
BackVisible = 0 'False
StepVisible = 0 'False
RecordVisible = 0 'False
EjectVisible = 0 'False
DeviceType = "Sequencer"
FileName = ""
End
Begin VB.Image imgb4
Height = 1680
Left = 4680
Picture = "frmbattle.frx":08CA
Stretch = -1 'True
Top = 6600
Width = 4800
End
Begin VB.Image imgb3
Height = 1680
Left = 5280
Picture = "frmbattle.frx":38D0C
Stretch = -1 'True
Top = 6600
Width = 4800
End
Begin VB.Image imgb2
Height = 2400
Left = 5400
Picture = "frmbattle.frx":5E54E
Top = 5880
Width = 4800
End
Begin VB.Image imgb1
Height = 1680
Left = 5040
Picture = "frmbattle.frx":83D90
Stretch = -1 'True
Top = 6360
Width = 4800
End
Begin VB.Line Line10
BorderColor = &H00FFFFFF&
Visible = 0 'False
X1 = 2520
X2 = 2520
Y1 = 2040
Y2 = 3360
End
Begin VB.Line Line9
BorderColor = &H00FFFFFF&
Visible = 0 'False
X1 = 1680
X2 = 1680
Y1 = 2040
Y2 = 3360
End
Begin VB.Line Line2
BorderColor = &H00FFFFFF&
BorderWidth = 4
X1 = 0
X2 = 4560
Y1 = 1680
Y2 = 1680
End
Begin VB.Image imgbo
Height = 1365
Index = 5
Left = 3120
Picture = "frmbattle.frx":8E2D7
Top = 240
Visible = 0 'False
Width = 645
End
Begin VB.Image imgbo
Height = 1380
Index = 4
Left = 2520
Picture = "frmbattle.frx":8E9EC
Top = 240
Visible = 0 'False
Width = 735
End
Begin VB.Image imgbo
Height = 1170
Index = 3
Left = 2040
Picture = "frmbattle.frx":8F18B
Top = 360
Visible = 0 'False
Width = 750
End
Begin VB.Image imgbo
Height = 1095
Index = 2
Left = 1680
Picture = "frmbattle.frx":8FB33
Top = 360
Visible = 0 'False
Width = 525
End
Begin VB.Image imgbo
Height = 975
Index = 1
Left = 1200
Picture = "frmbattle.frx":9044F
Top = 480
Visible = 0 'False
Width = 495
End
Begin VB.Image imgbo
Height = 780
Index = 0
Left = 720
Picture = "frmbattle.frx":90DA6
Top = 600
Visible = 0 'False
Width = 600
End
Begin VB.Image imgbdead
Height = 600
Left = 2280
Picture = "frmbattle.frx":91266
Top = 4560
Width = 765
End
Begin VB.Image imgp
Height = 885
Index = 3
Left = 5400
Picture = "frmbattle.frx":91480
Top = 4560
Width = 795
End
Begin VB.Image imgp
Height = 840
Index = 2
Left = 4680
Picture = "frmbattle.frx":917DD
Top = 4560
Width = 660
End
Begin VB.Image imgp
Height = 795
Index = 1
Left = 3960
Picture = "frmbattle.frx":91AC2
Top = 4560
Width = 780
End
Begin VB.Image imgp
Height = 690
Index = 0
Left = 3240
Picture = "frmbattle.frx":91E26
Top = 4560
Width = 720
End
Begin VB.Image imgfl
Height = 480
Left = 6240
Picture = "frmbattle.frx":92175
Top = 2280
Width = 480
End
Begin VB.Image imgmush
Height = 660
Left = 6240
Picture = "frmbattle.frx":929EA
Top = 2520
Width = 690
End
Begin VB.Image imgscor
Height = 720
Left = 6120
Picture = "frmbattle.frx":92BF8
Top = 3360
Width = 675
End
Begin VB.Image imgsam
Height = 480
Left = 6000
Picture = "frmbattle.frx":92DA1
Top = 2280
Width = 480
End
Begin VB.Image imgfree
Height = 480
Left = 6840
Picture = "frmbattle.frx":92F0C
Top = 3120
Width = 330
End
Begin VB.Image imgo2
Height = 735
Left = 3480
Stretch = -1 'True
Top = 600
Width = 750
End
Begin VB.Image imgtor
Height = 1425
Index = 9
Left = 5640
Picture = "frmbattle.frx":93312
Top = 120
Width = 1185
End
Begin VB.Image imgtor
Height = 1440
Index = 8
Left = 5520
Picture = "frmbattle.frx":9347D
Top = 240
Width = 1365
End
Begin VB.Image imgtor
Height = 1365
Index = 7
Left = 5520
Picture = "frmbattle.frx":93692
Top = 240
Width = 1395
End
Begin VB.Image imgtor
Height = 1380
Index = 6
Left = 5520
Picture = "frmbattle.frx":93927
Top = 240
Width = 1350
End
Begin VB.Image imgtor
Height = 1410
Index = 5
Left = 5640
Picture = "frmbattle.frx":93D6F
Top = 240
Width = 1320
End
Begin VB.Image imgtor
Height = 1365
Index = 4
Left = 5520
Picture = "frmbattle.frx":942F4
Top = 360
Width = 1335
End
Begin VB.Image imgtor
Height = 1320
Index = 3
Left = 6000
Picture = "frmbattle.frx":949BE
Top = 240
Width = 1290
End
Begin VB.Image imgtor
Height = 1320
Index = 2
Left = 5760
Picture = "frmbattle.frx":94DC0
Top = 120
Width = 1275
End
Begin VB.Image imgtor
Height = 1080
Index = 1
Left = 5880
Picture = "frmbattle.frx":952E1
Top = 120
Width = 1230
End
Begin VB.Image imgtor
Height = 1005
Index = 0
Left = 6000
Picture = "frmbattle.frx":95658
Top = 0
Width = 930
End
Begin VB.Label lblGod
BackColor = &H00000000&
Caption = " Freeze"
BeginProperty Font
Name = "Comic Sans MS"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 1680
TabIndex = 32
ToolTipText = "Does alot of Damage"
Top = 2760
Visible = 0 'False
Width = 855
End
Begin VB.Line lo
BorderColor = &H00FFFFFF&
BorderWidth = 8
X1 = 1320
X2 = 1440
Y1 = 3960
Y2 = 3960
End
Begin VB.Image imgfx2
Height = 480
Index = 0
Left = 3720
Top = 840
Visible = 0 'False
Width = 480
End
Begin VB.Label lbluse
BackStyle = 0 'Transparent
Caption = "Use Overdrive"
BeginProperty Font
Name = "Comic Sans MS"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 225
Left = 120
TabIndex = 30
Top = 3990
Visible = 0 'False
Width = 1125
End
Begin VB.Image imgsl
Height = 375
Index = 2
Left = 6195
Picture = "frmbattle.frx":95817
Top = 2625
Width = 375
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -