vb弹球编码 amp;nbs

  当然，步痕旅游网设法：Rem 让小球碰着边框弹回来 Dim deltX As IntegerPrivate Sub Form_Load() Timer1。Interval = 10 deltX = Rnd * 100End SubPrivate 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 = -deltXEnd 。