求壹個簡單vb編程實例~

控件：image,picture,timer代碼：Dim x As Integer

Dim y As IntegerPrivate Sub Form_Load()

x = 100

y = 100

Timer1.Interval = 100

End SubPrivate Sub Timer1_Timer()

If img.Top >= pic.Height - img.Height Then

y = -100

End If

If img.Top <= 0 Then

y = 100

End If

If img.Left >= pic.Width - img.Width Then

x = -100

End If

If img.Left <= 0 Then

x = 100

End If

img.Top = img.Top + y

img.Left = img.Left + x

End Sub

以上代碼實現的是圖片框中的壹個小球做的規律的運動，當小球碰到圖片框邊緣時便反彈繼續運動

上一篇:em231如何編程

下一篇:pr視頻左右翻轉怎麽操作？