📄 function.bas
字号:
Attribute VB_Name = "function"
Public Sub c_f()
vpuckx = 0
vpucky = 20
End Sub
Public Sub c_fl()
vpuckx = -20
vpucky = 20
End Sub
Public Sub c_fr()
vpuckx = 20
vpucky = 20
End Sub
Public Sub c_l()
vpuckx = -20
vpucky = 0
End Sub
Public Sub c_r()
vpuckx = 20
vpucky = 0
End Sub
Public Sub c_b()
vpuckx = 0
vpucky = -20
End Sub
Public Sub c_bl()
vpuckx = -20
vpucky = -20
End Sub
Public Sub c_br()
vpuckx = 20
vpucky = -20
End Sub
Public Sub ball_stop()
vpuckx = 0
vpucky = 0
End Sub
Public Sub s_f()
vpuckx = 0
vpucky = -200
End Sub
Public Sub s_l()
'left is the direction
vpuckx = -100
vpucky = -200
End Sub
Public Sub s_r()
vpuckx = 100
vpucky = -200
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -