Question

VB 弹球程序代码

我想要VB 一个弹球程序代码呀！！！！！！！请帮帮忙喔！！！

Answer 1

Rem 让小球遇到边框弹回来

Dim deltX As Integer
Private Sub Form_Load()
Timer1.Interval = 10
deltX = Rnd * 100
End Sub

Private Sub Timer1_Timer()
Shape1.Left = Shape1.Left + deltX
Shape1.Top = Shape1.Top + deltX
If Shape1.Left < 0 Then deltX = -deltX
If Shape1.Left + Shape1.Width > Me.Width Then deltX = -deltX
If Shape1.Top + Shape1.Height > Me.Height Then deltX = -deltX
If Shape1.Top < 0 Then deltX = -deltX
End Sub