Question

vb的小球运动

小球往左运动,当运动到左边框时往反方向运动
求编程

Answer 1

新建工程,1个timer1,1个shape,代码如下:

Dim i%

Private Sub Form_Load()
With Shape1
.Shape = 3
.BackColor = vbRed
.BackStyle = 1
.Height = 500
.Width = 500
End With
i = 0
Timer1.Enabled = True
Timer1.Interval = 30
End Sub

Private Sub Timer1_Timer()

If i = 0 Then
Shape1.Left = Shape1.Left + 20
If Shape1.Left = Me.ScaleWidth - Shape1.Width Then i = 1
ElseIf i = 1 Then
Shape1.Left = Shape1.Left - 20
If Shape1.Left = 0 Then i = 0
End If

End Sub