batnball.frm
来自「visual basic课程设计案例精编」· FRM 代码 · 共 1,576 行 · 第 1/4 页
FRM
1,576 行
Left = 600
Top = 3120
Width = 1215
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 32
Left = 7800
Top = 2760
Width = 1215
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 31
Left = 6600
Top = 2760
Width = 1215
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 19
Left = 5400
Top = 2760
Width = 1215
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 18
Left = 4200
Top = 2760
Width = 1215
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 17
Left = 3000
Top = 2760
Width = 1215
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 16
Left = 1800
Top = 2760
Width = 1215
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 15
Left = 600
Top = 2760
Width = 1215
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 30
Left = 7800
Top = 2400
Width = 1215
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 29
Left = 6600
Top = 2400
Width = 1215
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 14
Left = 5400
Top = 2400
Width = 1215
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 13
Left = 4200
Top = 2400
Width = 1215
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 12
Left = 3000
Top = 2400
Width = 1215
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 11
Left = 1800
Top = 2400
Width = 1215
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 10
Left = 600
Top = 2400
Width = 1215
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 28
Left = 6360
Top = 1680
Width = 975
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 27
Left = 5400
Top = 1680
Width = 975
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 9
Left = 4440
Top = 1680
Width = 975
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 8
Left = 3480
Top = 1680
Width = 975
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 7
Left = 2520
Top = 1680
Width = 975
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 6
Left = 1560
Top = 1680
Width = 975
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 5
Left = 600
Top = 1680
Width = 975
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 26
Left = 5400
Top = 1320
Width = 735
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 25
Left = 4200
Top = 1320
Width = 615
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 4
Left = 3480
Top = 1320
Width = 735
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 3
Left = 2760
Top = 1320
Width = 735
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 2
Left = 2040
Top = 1320
Width = 735
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 1
Left = 1320
Top = 1320
Width = 735
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 0
Left = 600
Top = 1320
Width = 735
End
Begin VB.Shape shpTopBarrier
BorderColor = &H00800000&
FillColor = &H00800000&
FillStyle = 0 'Solid
Height = 255
Left = 0
Top = 0
Width = 9615
End
Begin VB.Shape shpBall
BorderColor = &H0080C0FF&
FillColor = &H0000FFFF&
FillStyle = 0 'Solid
Height = 255
Left = 4200
Shape = 3 'Circle
Top = 4920
Width = 255
End
Begin VB.Shape shpPad
BorderColor = &H00FFFFFF&
FillColor = &H00FF0000&
FillStyle = 0 'Solid
Height = 375
Left = 3600
Top = 5160
Width = 1455
End
End
Attribute VB_Name = "frmBatnBall"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' BatnBall Written by J.Cook Jan 4th- Feb 20th 2000
Option Explicit
Dim Last As Single
Dim BallOnPad As Boolean
Dim PadSpeed As Single
Dim BallXadd As Single
Dim BallYadd As Single
Dim BallSpin As Single
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim Dis1 As Integer
Dim Dis2 As Integer
Dim Dis3 As Integer
Dim BallSpeed As Integer
Dim Block As Integer
Dim BlockAlive(64) As Boolean
Dim Hits As Integer
Dim Score As Integer
Dim Highscore As Integer
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?