如何用VB编写一个蝴蝶翩飞的程序

来源：百度知道 编辑：UC知道 时间：2024/05/24 11:13:16
期待各位高手指点迷津
谢谢了，不过.我是VB的初学者,您能不能给我用图文并茂的方式给我演示呢
感激不尽
我的邮箱是 wxp8798@163.com
期待你能尽快给我答复
谢谢了

首先准备两张图片，，多张也行，，我之前做过一个，代码贴出给你，，所需的控件自己话，，你看得懂的～～
Dim Bj As Integer
Private Sub Command1_Click()
Bj = 1
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
If Bj = 1 Then
Image1.Picture = LoadPicture("Bfly1.bmp")
Else
Image1.Picture = LoadPicture("Bfly2.bmp")
End If
Bj = -Bj
Image1.Move Image1.Left + 100, Image1.Top - 50
End Sub

你给邮箱我，我发个给你算了～～