📄 frmbattle.frm
字号:
Begin VB.Image imgsl
Height = 375
Index = 1
Left = 6195
Picture = "frmbattle.frx":958A0
Top = 2205
Width = 360
End
Begin VB.Image imgsl
Height = 375
Index = 0
Left = 6195
Picture = "frmbattle.frx":9591E
Top = 1890
Width = 375
End
Begin VB.Image imgo1
Height = 1590
Left = 3465
Stretch = -1 'True
Top = -105
Width = 750
End
Begin VB.Image imgod
Height = 2520
Index = 5
Left = 7440
Picture = "frmbattle.frx":95992
Top = 1050
Width = 885
End
Begin VB.Image imgod
Height = 2520
Index = 4
Left = 7560
Picture = "frmbattle.frx":95C0F
Top = 840
Width = 885
End
Begin VB.Image imgod
Height = 2520
Index = 3
Left = 7665
Picture = "frmbattle.frx":96022
Top = 945
Width = 885
End
Begin VB.Image imgod
Height = 2520
Index = 2
Left = 7560
Picture = "frmbattle.frx":96797
Top = 1560
Width = 885
End
Begin VB.Image imgod
Height = 2520
Index = 1
Left = 7560
Picture = "frmbattle.frx":96EF6
Top = -480
Width = 885
End
Begin VB.Image imgod
Height = 2520
Index = 0
Left = 7680
Picture = "frmbattle.frx":974B0
Top = 1080
Width = 885
End
Begin VB.Label lblmet
BackStyle = 0 'Transparent
Caption = "Overdrive"
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 = 1560
TabIndex = 29
Top = 3480
Width = 975
End
Begin VB.Image imgover
Height = 600
Index = 2
Left = 5520
Picture = "frmbattle.frx":97619
Top = 3720
Width = 675
End
Begin VB.Image imgover
Height = 615
Index = 1
Left = 5520
Picture = "frmbattle.frx":97925
Top = 3840
Width = 675
End
Begin VB.Image imgover
Height = 645
Index = 0
Left = 5520
Picture = "frmbattle.frx":97C52
Top = 3120
Width = 675
End
Begin VB.Label lbldemi
BackColor = &H00000000&
Caption = " Demi"
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 = 28
ToolTipText = "Takes one Half of enemy damage away"
Top = 2520
Visible = 0 'False
Width = 855
End
Begin VB.Label lbldam1
BackStyle = 0 'Transparent
Caption = "0"
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 = 0
TabIndex = 27
Top = 720
Visible = 0 'False
Width = 615
End
Begin VB.Image imgdead
Height = 225
Left = 5520
Picture = "frmbattle.frx":97F8C
Top = 360
Width = 360
End
Begin VB.Label lbldam
BackStyle = 0 'Transparent
Caption = "0"
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 = 3960
TabIndex = 26
Top = 720
Visible = 0 'False
Width = 615
End
Begin VB.Line Line22
BorderColor = &H00FFFFFF&
X1 = 0
X2 = 0
Y1 = 3720
Y2 = 3240
End
Begin VB.Line Line16
BorderColor = &H00FFFFFF&
X1 = 840
X2 = 0
Y1 = 3720
Y2 = 3720
End
Begin VB.Line Line15
BorderColor = &H00FFFFFF&
X1 = 840
X2 = 840
Y1 = 3240
Y2 = 3720
End
Begin VB.Line Line14
BorderColor = &H00FFFFFF&
X1 = 0
X2 = 840
Y1 = 3240
Y2 = 3240
End
Begin VB.Label lblattack
BackColor = &H00000000&
Caption = " Attack"
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 = 0
TabIndex = 25
Top = 3240
Width = 855
End
Begin VB.Line Line21
BorderColor = &H00FFFFFF&
X1 = 0
X2 = 240
Y1 = 2040
Y2 = 2040
End
Begin VB.Line Line20
BorderColor = &H00FFFFFF&
X1 = 2880
X2 = 2880
Y1 = 3000
Y2 = 2160
End
Begin VB.Line Line19
BorderColor = &H00FFFFFF&
X1 = 4440
X2 = 4440
Y1 = 2160
Y2 = 3000
End
Begin VB.Line Line18
BorderColor = &H00FFFFFF&
X1 = 240
X2 = 240
Y1 = 1800
Y2 = 2040
End
Begin VB.Line Line17
BorderColor = &H00FFFFFF&
X1 = 0
X2 = 240
Y1 = 1800
Y2 = 1800
End
Begin VB.Line Line13
BorderColor = &H00FFFFFF&
X1 = 0
X2 = 840
Y1 = 3240
Y2 = 3240
End
Begin VB.Label lblrun
BackColor = &H00000000&
Caption = " Run"
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 = 0
TabIndex = 23
Top = 3480
Width = 855
End
Begin VB.Line Line6
BorderColor = &H00FFFFFF&
X1 = 1320
X2 = 0
Y1 = 3120
Y2 = 3120
End
Begin VB.Line Line5
BorderColor = &H00FFFFFF&
X1 = 0
X2 = 0
Y1 = 2160
Y2 = 3120
End
Begin VB.Line Line4
BorderColor = &H00FFFFFF&
X1 = 1320
X2 = 1320
Y1 = 2160
Y2 = 3120
End
Begin VB.Line Line3
BorderColor = &H00FFFFFF&
X1 = 0
X2 = 1320
Y1 = 2160
Y2 = 2160
End
Begin VB.Image Image1
Height = 240
Left = 0
Picture = "frmbattle.frx":98381
Stretch = -1 'True
Top = 1800
Width = 240
End
Begin VB.Line Line12
BorderColor = &H00FFFFFF&
Visible = 0 'False
X1 = 1680
X2 = 2520
Y1 = 3360
Y2 = 3360
End
Begin VB.Line Line11
BorderColor = &H00FFFFFF&
Visible = 0 'False
X1 = 1680
X2 = 2520
Y1 = 2040
Y2 = 2040
End
Begin VB.Label lblfire
BackColor = &H00000000&
Caption = " Fire"
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 = 22
ToolTipText = "Throws a fireball"
Top = 2280
Visible = 0 'False
Width = 855
End
Begin VB.Label lblatt
BackColor = &H00000000&
Caption = " Basic"
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 = 21
ToolTipText = "Just A basic Attack"
Top = 2040
Visible = 0 'False
Width = 855
End
Begin VB.Image imgeye
Height = 465
Left = 5400
Picture = "frmbattle.frx":98C8F
Stretch = -1 'True
Top = 720
Width = 615
End
Begin VB.Image imgmag
Height = 480
Left = 5640
Picture = "frmbattle.frx":992F6
Top = 2400
Width = 465
End
Begin VB.Image imgdrag
Height = 540
Left = 5520
Picture = "frmbattle.frx":9978D
Top = 1680
Width = 240
End
Begin VB.Image imgmad
Height = 480
Left = 6300
Picture = "frmbattle.frx":99BDB
Top = 315
Width = 480
End
Begin VB.Image imgreki
Height = 480
Left = 5040
Picture = "frmbattle.frx":99D3D
Top = 3960
Width = 390
End
Begin VB.Image imgghost
Height = 480
Left = 5040
Picture = "frmbattle.frx":9A1AE
Top = 3480
Width = 480
End
Begin VB.Image imgfxf
Height = 480
Left = 3000
Picture = "frmbattle.frx":9AE78
Top = 840
Visible = 0 'False
Width = 480
End
Begin VB.Label lblkill1
BackStyle = 0 'Transparent
Caption = "Killed"
BeginProperty Font
Name = "Comic Sans MS"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 375
Left = 120
TabIndex = 19
Top = 1320
Visible = 0 'False
Width = 735
End
Begin VB.Label lblkill
BackStyle = 0 'Transparent
Caption = "Killed"
BeginProperty Font
Name = "Comic Sans MS"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 375
Left = 3480
TabIndex = 18
Top = 1320
Visible = 0 'False
Width = 735
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -