Question

VB小球运动

我做的是小球从上到右然后在弹到下面在弹回左边，哪里错了，为什么小球弹一下就回不来了

Answer 1

Option Explicit
Dim T, L
Private Sub Form_Load()
T = 100
L = 100
End Sub
Private Sub Timer1_Timer()
Shape1.Top = Shape1.Top + T
Shape1.Left = Shape1.Left + L
If Shape1.Top > Form1.ScaleHeight - Shape1.Height Then T = -T
If Shape1.Left > Form1.ScaleWidth - Shape1.Width Then L = -L
If Shape1.Top < 0 Then T = -T
If Shape1.Left < 0 Then L = -L
End Sub
Top对应的应该是高度即Height，Left应对应Width。还有，小球是在窗体内部运动，而窗体内部有效的宽度和高度是ScaleWidth和ScaleHeight。按原来代码运行，小球在右侧和下方时会隐没一段时间，这是因为有效宽度和高度ScaleWidth和ScaleHeight总是小于Width和Height的。另外有二处的加减号也错了。