batnball.frm
来自「visual basic课程设计案例精编」· FRM 代码 · 共 1,576 行 · 第 1/4 页
FRM
1,576 行
Width = 7815
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 52
Left = 8160
Top = 2040
Width = 855
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 53
Left = 7320
Top = 2040
Width = 855
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 54
Left = 6360
Top = 2040
Width = 975
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 55
Left = 5400
Top = 2040
Width = 975
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 56
Left = 4440
Top = 2040
Width = 975
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 57
Left = 3480
Top = 2040
Width = 975
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 58
Left = 2520
Top = 2040
Width = 975
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 59
Left = 1560
Top = 2040
Width = 975
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 60
Left = 600
Top = 2040
Width = 975
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 51
Left = 6600
Top = 960
Width = 615
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 50
Left = 6000
Top = 960
Width = 615
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 49
Left = 5400
Top = 960
Width = 615
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 48
Left = 4800
Top = 960
Width = 615
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 47
Left = 4200
Top = 960
Width = 615
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 46
Left = 3600
Top = 960
Width = 615
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 45
Left = 3000
Top = 960
Width = 615
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 44
Left = 2400
Top = 960
Width = 615
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 43
Left = 1800
Top = 960
Width = 615
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 42
Left = 1200
Top = 960
Width = 615
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 41
Left = 600
Top = 960
Width = 615
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 40
Left = 8160
Top = 1680
Width = 855
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 37
Left = 7320
Top = 1680
Width = 855
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 39
Left = 8280
Top = 1320
Width = 735
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 38
Left = 7560
Top = 1320
Width = 735
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 36
Left = 6840
Top = 1320
Width = 735
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 35
Left = 6120
Top = 1320
Width = 735
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 34
Left = 7800
Top = 3120
Width = 1215
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 33
Left = 6600
Top = 3120
Width = 1215
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 24
Left = 5400
Top = 3120
Width = 1215
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 23
Left = 4200
Top = 3120
Width = 1215
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 22
Left = 3000
Top = 3120
Width = 1215
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 21
Left = 1800
Top = 3120
Width = 1215
End
Begin VB.Shape shpBlock
BackColor = &H00000000&
BorderColor = &H00000000&
BorderWidth = 3
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 20
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?