📄 wallball.frm
字号:
Begin VB.Image block
Height = 360
Index = 36
Left = 840
Picture = "WallBall.frx":1017E
Top = 3120
Width = 735
End
Begin VB.Image block
Height = 360
Index = 33
Left = 6240
Picture = "WallBall.frx":109C2
Top = 2520
Width = 735
End
Begin VB.Image block
Height = 360
Index = 32
Left = 7200
Picture = "WallBall.frx":111BD
Top = 1080
Width = 735
End
Begin VB.Image block
Height = 360
Index = 31
Left = 7080
Picture = "WallBall.frx":119B8
Top = 2160
Width = 735
End
Begin VB.Image block
Height = 360
Index = 30
Left = 6360
Picture = "WallBall.frx":121B3
Top = 2160
Width = 735
End
Begin VB.Image block
Height = 360
Index = 29
Left = 7200
Picture = "WallBall.frx":129AE
Top = 2520
Width = 735
End
Begin VB.Image block
Height = 360
Index = 28
Left = 6360
Picture = "WallBall.frx":131A9
Top = 1440
Width = 735
End
Begin VB.Image block
Height = 360
Index = 27
Left = 7080
Picture = "WallBall.frx":139A4
Top = 1440
Width = 735
End
Begin VB.Image block
Height = 360
Index = 26
Left = 6720
Picture = "WallBall.frx":1419F
Top = 1800
Width = 735
End
Begin VB.Image block
Height = 360
Index = 25
Left = 6240
Picture = "WallBall.frx":1499A
Top = 1080
Width = 735
End
Begin VB.Image block
Height = 360
Index = 24
Left = 5040
Picture = "WallBall.frx":15195
Top = 1440
Width = 735
End
Begin VB.Image block
Height = 360
Index = 23
Left = 5040
Picture = "WallBall.frx":15990
Top = 1800
Width = 735
End
Begin VB.Image block
Height = 360
Index = 22
Left = 5040
Picture = "WallBall.frx":1618B
Top = 2160
Width = 735
End
Begin VB.Image block
Height = 360
Index = 21
Left = 5040
Picture = "WallBall.frx":16986
Top = 2520
Width = 735
End
Begin VB.Image block
Height = 360
Index = 20
Left = 3840
Picture = "WallBall.frx":17181
Top = 2520
Width = 735
End
Begin VB.Image block
Height = 360
Index = 19
Left = 3840
Picture = "WallBall.frx":1797C
Top = 1440
Width = 735
End
Begin VB.Image block
Height = 360
Index = 18
Left = 3600
Picture = "WallBall.frx":18177
Top = 1080
Width = 735
End
Begin VB.Image block
Height = 360
Index = 17
Left = 5040
Picture = "WallBall.frx":18972
Top = 1080
Width = 735
End
Begin VB.Image block
Height = 360
Index = 16
Left = 3720
Picture = "WallBall.frx":1916D
Top = 2160
Width = 735
End
Begin VB.Image block
Height = 360
Index = 15
Left = 3600
Picture = "WallBall.frx":19968
Top = 1800
Width = 735
End
Begin VB.Image block
Height = 360
Index = 14
Left = 2880
Picture = "WallBall.frx":1A163
Top = 1800
Width = 735
End
Begin VB.Image block
Height = 360
Index = 13
Left = 2880
Picture = "WallBall.frx":1A95E
Top = 2160
Width = 735
End
Begin VB.Image block
Height = 360
Index = 12
Left = 2880
Picture = "WallBall.frx":1B159
Top = 2520
Width = 735
End
Begin VB.Image block
Height = 360
Index = 11
Left = 1560
Picture = "WallBall.frx":1B954
Top = 1800
Width = 735
End
Begin VB.Image block
Height = 360
Index = 10
Left = 1560
Picture = "WallBall.frx":1C14F
Top = 2520
Width = 735
End
Begin VB.Image block
Height = 360
Index = 9
Left = 1800
Picture = "WallBall.frx":1C94A
Top = 2160
Width = 735
End
Begin VB.Image block
Height = 360
Index = 8
Left = 1800
Picture = "WallBall.frx":1D145
Top = 1440
Width = 735
End
Begin VB.Image block
Height = 360
Index = 7
Left = 2880
Picture = "WallBall.frx":1D940
Top = 1080
Width = 735
End
Begin VB.Image block
Height = 360
Index = 6
Left = 2880
Picture = "WallBall.frx":1E13B
Top = 1440
Width = 735
End
Begin VB.Image block
Height = 360
Index = 5
Left = 840
Picture = "WallBall.frx":1E936
Top = 1440
Width = 735
End
Begin VB.Image block
Height = 360
Index = 4
Left = 840
Picture = "WallBall.frx":1F131
Top = 1800
Width = 735
End
Begin VB.Image block
Height = 360
Index = 3
Left = 840
Picture = "WallBall.frx":1F92C
Top = 2160
Width = 735
End
Begin VB.Image block
Height = 360
Index = 2
Left = 840
Picture = "WallBall.frx":20127
Top = 2520
Width = 735
End
Begin VB.Image block
Height = 360
Index = 1
Left = 1560
Picture = "WallBall.frx":20922
Top = 1080
Width = 735
End
Begin VB.Image block
Height = 360
Index = 0
Left = 840
Picture = "WallBall.frx":2111D
Top = 1080
Width = 735
End
Begin VB.Label Label4
BackColor = &H00000000&
Caption = "Level: 1"
BeginProperty Font
Name = "Verdana"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 255
Left = 6720
TabIndex = 3
Top = 0
Width = 1095
End
Begin VB.Label livesleft
BackColor = &H00000000&
Caption = "Lives: 2"
BeginProperty Font
Name = "Verdana"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 255
Left = 4920
TabIndex = 2
Top = 0
Width = 1095
End
Begin VB.Label scorecard
BackColor = &H00000000&
Caption = "Score: 0"
BeginProperty Font
Name = "Verdana"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 255
Left = 3120
TabIndex = 1
Top = 0
Width = 1695
End
Begin VB.Label bricksleft
BackColor = &H00000000&
Caption = "Bricks: x"
BeginProperty Font
Name = "Verdana"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 255
Left = 1320
TabIndex = 0
Top = 0
Width = 1095
End
Begin VB.Label Label3
Alignment = 2 'Center
BackColor = &H00000000&
Caption = "Game Paused - Right Click"
BeginProperty Font
Name = "Verdana"
Size = 15.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 495
Left = 1920
TabIndex = 8
Top = 4680
Visible = 0 'False
Width = 5175
End
Begin VB.Label Label1
Alignment = 2 'Center
BackColor = &H00000000&
Caption = "Left Click to Start!"
BeginProperty Font
Name = "Verdana"
Size = 15.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 495
Left = 2400
TabIndex = 6
Top = 4680
Width = 4335
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H00000000&
Caption = "Left Click For Next Life!"
BeginProperty Font
Name = "Verdana"
Size = 15.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 495
Left = 2040
TabIndex = 7
Top = 4680
Visible = 0 'False
Width = 4935
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim bricks As Integer
Dim lives As Integer
Dim score As Integer
Dim level As Integer
Dim points As Integer
Dim a, MovUD, MovLR
Dim ballspeed As Integer
Public Function FileExists(FileNa As String) As Boolean
Dim FRes As String
On Error GoTo NotFound
FRes = Dir$(FileNa)
If FRes = "" Then FileExists = False Else FileExists = True
NotFound:
If Err = 53 Then Resume Next
End Function
Public Function ReadINI(strsection As String, strkey As String, strfullpath As String) As String
Dim strbuffer As String
Let strbuffer$ = String$(750, Chr$(0&))
Let ReadINI$ = Left$(strbuffer$, GetPrivateProfileString(strsection$, ByVal LCase$(strkey$), "", strbuffer, Len(strbuffer), strfullpath$))
End Function
Public Sub WriteINI(strsection As String, strkey As String, strkeyvalue As String, strfullpath As String)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -