📄 弹球.frm
字号:
Top = 0
Width = 735
End
Begin VB.Image Image1
Height = 615
Index = 11
Left = 0
Picture = "弹球.frx":2E670E
Stretch = -1 'True
Top = 0
Width = 735
End
Begin VB.Image Image1
Height = 615
Index = 10
Left = 0
Picture = "弹球.frx":2F1DFD
Stretch = -1 'True
Top = 0
Width = 735
End
Begin VB.Image Image1
Height = 615
Index = 9
Left = 0
Picture = "弹球.frx":2FD4EC
Stretch = -1 'True
Top = 0
Width = 735
End
Begin VB.Image Image1
Height = 615
Index = 8
Left = 0
Picture = "弹球.frx":308BDB
Stretch = -1 'True
Top = 0
Width = 735
End
Begin VB.Image Image1
Height = 615
Index = 7
Left = 0
Picture = "弹球.frx":3142CA
Stretch = -1 'True
Top = 0
Width = 735
End
Begin VB.Image Image1
Height = 615
Index = 6
Left = 0
Picture = "弹球.frx":31F9B9
Stretch = -1 'True
Top = 0
Width = 735
End
Begin VB.Image Image1
Height = 615
Index = 5
Left = 0
Picture = "弹球.frx":32B0A8
Stretch = -1 'True
Top = 0
Width = 735
End
Begin VB.Image Image1
Height = 615
Index = 4
Left = 0
Picture = "弹球.frx":336797
Stretch = -1 'True
Top = 0
Width = 735
End
Begin VB.Image Image1
Height = 615
Index = 3
Left = 0
Picture = "弹球.frx":341E86
Stretch = -1 'True
Top = 0
Width = 735
End
Begin VB.Image Image1
Height = 615
Index = 2
Left = 0
Picture = "弹球.frx":34D575
Stretch = -1 'True
Top = 0
Width = 735
End
Begin VB.Image Image1
Height = 615
Index = 1
Left = 0
Picture = "弹球.frx":358C64
Stretch = -1 'True
Top = 0
Width = 735
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
BeginProperty Font
Name = "楷体_GB2312"
Size = 21.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 495
Left = 6360
TabIndex = 1
Top = 0
Width = 10335
End
Begin VB.Shape Shape4
BorderColor = &H000000C0&
BorderWidth = 2
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 375
Index = 2
Left = 1080
Shape = 3 'Circle
Top = 240
Width = 375
End
Begin VB.Shape Shape4
BorderColor = &H000000C0&
BorderWidth = 2
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 375
Index = 1
Left = 600
Shape = 3 'Circle
Top = 240
Width = 375
End
Begin VB.Shape Shape4
BorderColor = &H000000C0&
BorderWidth = 2
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 375
Index = 0
Left = 120
Shape = 3 'Circle
Top = 240
Width = 375
End
Begin VB.Shape Shape1
BorderColor = &H000000FF&
BorderWidth = 2
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 375
Left = 5280
Shape = 3 'Circle
Top = 9600
Width = 375
End
Begin VB.Shape Shape3
BorderColor = &H0000FFFF&
BorderStyle = 4 'Dash-Dot
BorderWidth = 3
FillColor = &H0000FFFF&
FillStyle = 7 'Diagonal Cross
Height = 735
Left = 4200
Shape = 2 'Oval
Top = 9600
Width = 2535
End
Begin VB.Menu 文件
Caption = "文件"
Begin VB.Menu 开始
Caption = "开始"
Shortcut = ^K
End
Begin VB.Menu 暂停
Caption = "暂停"
Shortcut = ^T
End
Begin VB.Menu 退出
Caption = "退出"
Shortcut = ^E
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim k1%, k2%, zuo%, a%, kaishi As Boolean, sh%, kka%, chengji%, guan%, bian%, fei%, fe%, fek As Boolean
Public Declare Function ShowCursor Lib "User32" (ByVal bShow As Interger) As Interger
Private Sub Command1_Click()
End
End Sub
Private Sub Command2_Click()
rc = ShowCursor(False) '隐藏鼠标
Open "第8关.txt" For Output As #1
For i = 1 To 50
Write #1, Image1(i).Left
Write #1, Image1(i).Top
Next i
Close #1
End Sub
Private Sub Form_Click()
If guan > 5 Then
fek = True
End If
If kka = 0 Then
Timer1.Enabled = True
kaishi = False
End If
End Sub
Private Sub Form_Load()
rc = ShowCursor(False) '隐藏鼠标
sh = 3
a = 0
guan = 1
Timer1.Enabled = False
kaishi = True
Label1.Caption = "第" & guan & "关 成绩：" & chengji
wenjianming = "第" & guan & "关" & ".txt"
Open wenjianming For Input As #2
Do While Not EOF(2)
v = v + 1
Input #2, f
Input #2, n
Image1(v).Top = n
Image1(v).Left = f
Loop
Close #2
fe = 100
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Shape3.Left = X - 1300
If kaishi = True Then
Shape1.Left = Shape3.Left + 1100
Shape1.Top = Shape3.Top - 200
End If
End Sub
Private Sub Image1_Click(Index As Integer)
If guan > 5 Then
fek = True
End If
If kka = 0 Then
Timer1.Enabled = True
kaishi = False
End If
End Sub
Private Sub Image1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Shape3.Left = Image1(Index).Left + X - 1300
If kaishi = True Then
Shape1.Left = Shape3.Left + 1100
Shape1.Top = Shape3.Top - 200
End If
End Sub
Private Sub Timer1_Timer()
If fek = True Then
If fei = 0 Then
fe = fe - 2
If fe = 0 Then
fe = 100
fei = 1
End If
For re = 1 To 50
Image1(re).Left = Image1(re).Left + 50
Next re
Else
fe = fe - 2
If fe = 0 Then
fe = 100
fei = 0
End If
For re = 1 To 50
Image1(re).Left = Image1(re).Left - 50
Next re
End If
End If
If k1 = 0 Then
Shape1.Left = Shape1.Left - Abs(zuo)
Else
Shape1.Left = Shape1.Left + Abs(zuo)
End If
If Shape1.Left < 0 Then
k1 = 1
End If
If Shape1.Left > 15000 Then
k1 = 0
End If
If k2 = 0 Then
Shape1.Top = Shape1.Top - 100
Else
Shape1.Top = Shape1.Top + 100
End If
If Shape1.Top < 0 Then
k2 = 1
End If
If Shape1.Top > Shape3.Top - 200 And Shape1.Left > Shape3.Left - 100 And Shape1.Left < Shape3.Left + 2500 Then
k2 = 0
zuo = (Shape3.Left - Shape1.Left + 1200) \ 15
If zuo < 0 Then
k1 = 1
Else
k1 = 0
End If
End If
If Shape1.Top > 10100 Then
Shape1.Left = Shape3.Left + 1100
Shape1.Top = Shape3.Top - 200
sh = sh - 1
If sh >= 0 Then
Shape4(sh).Visible = False
End If
kaishi = True
Timer1.Enabled = False
End If
For i = 1 To 50
If Shape1.Left > Image1(i).Left - 300 And Shape1.Left < Image1(i).Left + 700 And Shape1.Top > Image1(i).Top - 330 And Shape1.Top < Image1(i).Top + 610 Then
If guan < 9 Then
Image1(i).Left = -1000
Image1(i).Top = -1000
a = a + 1
chengji = chengji + 20
Label1.Caption = "第" & guan & "关 成绩：" & chengji
End If
If k2 = 1 Then
k2 = 0
Else
k2 = 1
End If
End If
Next i
If a >= 50 Then
Timer1.Enabled = False
Print
Print
Print
Print " LEVEL UP "
rc = ShowCursor(True) '显示鼠标
Print
Print
Print
Print
Print
guan = guan + 1
kka = 3
If guan = 9 Then
guan = 1
End If
开始.Caption = "第" & guan & "关"
kaishi = False
End If
If sh = 0 Then
Timer1.Enabled = False
Print
Print
Print
Print " GAME OVER "
rc = ShowCursor(True) '显示鼠标
Print
Print
Print
Print
Print
Shape1.Top = -1000
kaishi = False
kka = 3
End If
End Sub
Private Sub 开始_Click()
kaishi = True
For i = 0 To 2
Shape4(i).Visible = True
Next i
sh = 3
Cls
a = 0
Label1.Caption = "第" & guan & "关 成绩：" & chengji
wenjianming = "第" & guan & "关" & ".txt"
Open wenjianming For Input As #2
Do While Not EOF(2)
v = v + 1
Input #2, f
Input #2, n
Image1(v).Top = n
Image1(v).Left = f
Loop
Close #2
kka = 0
End Sub
Private Sub 退出_Click()
End
End Sub
Private Sub 暂停_Click()
If 暂停.Caption = "暂停" Then
暂停.Caption = "继续"
Timer1.Enabled = False
Else
暂停.Caption = "暂停"
Timer1.Enabled = True
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -