如何实现蝴蝶在窗体上连续飞行

Question

一个笨方法，用许多image,用time控件控制显示如果你需要蝴蝶飞行分解图片，请来信[email protected]

Answer 1

思路：找一个有蝴蝶飞的GIF动画，用控件一边显示GIF文件里的图片一边移动控件。

Answer 2

Private Sub PicMove()
    Select Case Motion
    Case 1
       Picture2.Move Picture2.Left - speed, Picture2.Top - speed
        If Picture2.Left <= 0 Then
            Motion = 2
        ElseIf Picture2.Top <= 0 Then
            Motion = 2
        End If
    Case 2
       Picture2.Move Picture2.Left + speed, Picture2.Top - speed
      If Picture2.Left >= (Picture1.Width - Picture2.Width -2*speed) Then
            Motion = 1
        ElseIf Picture2.Top <= 0 Then
            Motion = 1
        End If
   end select
end sub
Private Sub Timer1_Timer()
PicMove
End Sub
Private Sub Form_Load()
speed = 60
motion=1
End Sub

Answer 3

用上面做的动画可能会有抖动的感觉，建议用API函数来做

Answer 4

我也要那个蝴蝶飞的图片
[email protected]