VB圖形向下移動碰到底部後返回

'畫兩個Timer控件，其Interval屬性設為100或100以下的任意正整數（保證動畫質量，不過數值越低，耗費資源越多），這裏以Interval屬性設為100為例。

'將Timer1.Enabled設為True，Timer2.Enabled設為False

'加入妳的圖形名為Picture1，則設Picture.Top為2000

'復制以下代碼：

Private Sub Timer1_Timer()

Picture1.Top = Picture1.Top - 100

If Picture1.Top <= 0 Then

Timer1.Enabled = False

Timer2.Enabled = True

End If

End Sub

Private Sub Timer2_Timer()

Picture1.Top = Picture1.Top + 100

If Picture1.Top >= 2000 Then

Timer2.Enabled = False

Timer1.Enabled = True

End If

End Sub

'這個是循環。如果只要壹次的話，就把Timer2_Timer中的Timer1.Enabled = True刪掉。

'望成功後采納答案

上一篇:寧波市海曙區信誼小學六壹活動作文

下一篇:《速度與激情》第壹部中保羅沃克開的什麽車？