【VB开源代码栏目提醒】:网学会员VB开源代码为您提供WallBall.frm参考,解决您在WallBall.frm学习中工作中的难题,参考学习。
VERSION 5.00
Begin VB.Form Form1
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 1 'Fixed Single
Caption = "弹球游戏"
ClientHeight = 5775
ClientLeft = 2235
ClientTop = 495
ClientWidth = 8760
ForeColor = &H8000000E&
Icon = "WallBall.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
MouseIcon = "WallBall.frx":030A
ScaleHeight = 5775
ScaleWidth = 8760
StartUpPosition = 2 '屏幕中心
Visible = 0 'False
Begin VB.Timer Timer2
Interval = 1
Left = 720
Top = 3960
End
Begin VB.PictureBox bouncer
AutoSize = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
Height = 300
Left = 3840
MouseIcon = "WallBall.frx":035C
MousePointer = 99 'Custom
Picture = "WallBall.frx":04AE
ScaleHeight = 300
ScaleMode = 0 'User
ScaleWidth = 1000
TabIndex = 5
Top = 5450
Width = 1545
End
Begin VB.PictureBox ball
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
Height = 240
Left = 4560
MouseIcon = "WallBall.frx":1D50
MousePointer = 99 'Custom
Picture = "WallBall.frx":1EA2
ScaleHeight = 240
ScaleMode = 0 'User
ScaleWidth = 9440
TabIndex = 4
Top = 5160
Width = 240
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 1
Left = 240
Top = 3960
End
Begin VB.Frame Frame1
BackColor = &H00000000&
BorderStyle = 0 'None
Height = 5775
Left = -8520
TabIndex = 9
Top = 5760
Width = 8775
Begin VB.Label Label5
Alignment = 2 'Center
BackColor = &H00000000&
BackStyle = 0 'Transparent
Caption = "Loading Next Level..."
BeginProperty Font
Name = "Comic Sans MS"
Size = 15.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 495
Left = 2160
TabIndex = 10
Top = 2400
Width = 4335
End
End
Begin VB.Image Image1
Height = 5775
Left = 0
MouseIcon = "WallBall.frx":22D3
MousePointer = 99 'Custom
Top = 0
Width = 8850
End
Begin VB.Label tempscores
BackColor = &H00000000&
Caption = "Label6"
ForeColor = &H0000FF00&
Height = 255
Left = 7680
TabIndex = 21
Top = 5880
Width = 495
End
Begin VB.Label scores2
BackColor = &H00000000&
Caption = "Label6"
ForeColor = &H0000FF00&
Height = 255
Left = 1080
TabIndex = 20
Top = 5880
Width = 495
End
Begin VB.Label scores3
BackColor = &H00000000&
Caption = "Label6"
ForeColor = &H0000FF00&
Height = 255
Left = 1680
TabIndex = 19
Top = 5880
Width = 495
End
Begin
VB.Label scores4
BackColor = &H00000000&
Caption = "Label6"
ForeColor = &H0000FF00&
Height = 255
Left = 2280
TabIndex = 18
Top = 5880
Width = 495
End
Begin VB.Label scores5
BackColor = &H00000000&
Caption = "Label6"
ForeColor = &H0000FF00&
Height = 255
Left = 2880
TabIndex = 17
Top = 5880
Width = 495
End
Begin VB.Label scores6
BackColor = &H00000000&
Caption = "Label6"
ForeColor = &H0000FF00&
Height = 255
Left = 3480
TabIndex = 16
Top = 5880
Width = 495
End
Begin VB.Label scores7
BackColor = &H00000000&
Caption = "Label6"
ForeColor = &H0000FF00&
Height = 255
Left = 4080
TabIndex = 15
Top = 5880
Width = 495
End
Begin VB.Label scores8
BackColor = &H00000000&
Caption = "Label6"
ForeColor = &H0000FF00&
Height = 255
Left = 4680
TabIndex = 14
Top = 5880
Width = 495
End
Begin VB.Label scores9
BackColor = &H00000000&
Caption = "Label6"
ForeColor = &H0000FF00&
Height = 255
Left = 5280
TabIndex = 13
Top = 5880
Width = 495
End
Begin VB.Label scores10
BackColor = &H00000000&
Caption = "Label6"
ForeColor = &H0000FF00&
Height = 255
Left = 5880
TabIndex = 12
Top = 5880
Width = 495
End
Begin VB.Label scores1
BackColor = &H00000000&
Caption = "Label6"
ForeColor = &H0000FF00&
Height = 255
Left = 480
TabIndex = 11
Top = 5880
Width = 495
End
Begin VB.Image block
Height = 360
Index = 62
Left = 480
Picture = "WallBall.frx":2425
Top = 6960
Visible = 0 'False
Width = 735
End
Begin VB.Image block
Height = 360
Index = 61
Left = 7320
Picture = "WallBall.frx":2BFE
Top = 6480
Visible = 0 'False
Width = 735
End
Begin VB.Image block
Height = 360
Index = 60
Left = 8040
Picture = "WallBall.frx":3337
Top = 6480
Visible = 0 'False
Width = 735
End
Begin VB.Image block
Height = 360
Index = 59
Left = 5880
Picture = "WallBall.frx":3A7D
Top = 6480
Visible = 0 'False
Width = 735
End
Begin VB.Image block
Height = 360
Index = 58
Left = 6600
Picture = "WallBall.frx":3FA5
Top = 6480
Visible = 0 'False
Width = 735
End
Begin VB.Image block
Height = 360
Index = 57
Left = 4440
Picture = "WallBall.frx":4706
Top = 6480
Visible = 0 'False
Width = 735
End[