Question

（提示：使用Timer和图像框控件）设计一个蝴蝶在窗体内自动飞舞的的程序

Answer 1

如图，三个蝴蝶所在控件依次为 Image1、Image2、Image3（图片分别用 Image 控件中的Picture 属性加载）

Private Sub Command1_Click()

  End

End Sub

Private Sub Timer1_Timer()

    Static ImaBmp As Integer

 

    Image1.Move Image1.Left + 20, Image1.Top - 5

       If Image1.Top <= 0 Then

    Image1.Left = 0

    Image1.Top = 1320

    End If

    If ImaBmp Then

        Image1.Picture = Image3.Picture

    Else

        Image1.Picture = Image2.Picture

    End If

    ImaBmp = Not ImaBmp

End Sub

Answer 2

你这样的思路实现起来太容易了，但想做的好看千难万难，这么做没前途，因为图像框控件每次的移动和换图像都会容易产生闪影，效果及其的差劲。建议你使用API中的哪个BIBIT图片局部拷贝函数来实现这个效果，事实上就算这么做，也千难万难，还是不要有这个想法的好，因为拟态蝴蝶自由飞行不是容易的事