VB小球运动

VB小球运动

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的。另外有二处的加减号也错了。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息