VB实现蝴蝶在窗体飞

来源：百度知道 编辑：UC知道 时间：2024/06/24 10:25:17
各控件的属性:
command1.caption="退出"
timer1.interval=200
image1.picture:bfly1.bmp,image1.visible=false
image2.picture:bfly1.bmp,image2.visible=false
image3.picture:bfly2.bmp,image3.visible=false
(以上三个就是蝴蝶的图片)
请帮我把它改为蝴蝶是可以向右上方飞,蝴蝶飞出窗体之后又可以从原点重新向右上方飞
Private Sub Timer1_Timer()
Static PickBmp As Integer
If PickBmp = 0 Then
Image1.Picture = Image2.Picture
PickBmp = 1
Else
Image1.Picture = Image3.Picture
PickBmp = 0
End If
End Sub

你可以定义三个计时器,分别为Timer1,Timer2,Timer3
把他们的interval属性都设置为:500,visible设置为:false
计时器的事件如下:
Private Sub Timer1_Timer()
image1.visible = True
image2.visible=false
image3.visible=false
Timer2.Enabled = True
Timer1.Enabled = False
Timer3.Enabled = False
End Sub
Private Sub Timer2_Timer()
image2.visible = True
image1.visible=false
image3.visible=false
Timer3.Enabled = True
Timer1.Enabled = False
Timer2.Enabled = False
End Sub
Private Sub Timer3_Timer()
image3.visible = True
image1.visible=false
image2.visible=false
Timer1.Enabled = True
Timer2.Enabled = False
Timer3.Enabled = False
End Sub

也可以利用代码来把图片的X,Y坐标每隔0.5秒一点点缩小与窗体右上角的距离

"蝴蝶飞出窗体"?，你怎么让他飞出窗体？