13518219792
蝴蝶飞舞的效果是许多Flash电影中经常应用到的一个效果，而在本例中仅仅用到了一只沿路径运动的蝴蝶就达到了一个比较好的效果。这个实例是在场景中通过鼠标的移动来实现蝴蝶飞舞，其中蝴蝶飞舞的路径、大小和数量并不是确定的，而是我们通过ActionScript来进行控制的。
创新互联公司是专业的新晃网站建设公司，新晃接单;提供成都做网站、网站建设,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行新晃网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!
第1步，启动Flash
8.0,新建一个文件。右击舞台的空白处，选择快捷菜单中的“文档属性”，设置尺寸大小为：500PX、250PX，背景颜色为“黑色”，确定“确定”按钮，
第2步，按“Ctrl+F8”键，新建一个新元件，名称为“蝴蝶”，“行为”选择“图形”，如图2所示
单击“确定”按钮，进入蝴蝶编辑区。我们可以绘制一个蝴蝶，如果认为在绘制上认为比较烦琐，就找一个现成的处理后的蝴蝶。如图3所示。
第3步，按“Ctrl+F8”键再创建一个新元件，名称为“butterfly”，行为选择“电影剪辑”，如图4所示，
单击“确定”按钮，进入其编辑区。单击“窗口”→“库”，弹出库对话框，将我们制作的“蝴蝶”元件拖到“butterfly”编辑区，单击第7帧、13帧、19帧处按F6键分别插入三个关键帧，选中工具箱中的“任意变形工具”将第7帧、13帧、19帧的蝴蝶依次变榨，如图5所示。
再别分右击第7帧、13帧、19帧选择快捷菜单中的“创建补间动画”，最后的时间轴如图6所示。
第4步，按“Ctrl+F8”键再创建一个新元件”，名称为“fly”，行为选择“电影剪辑”，如图7所示
单击“确定”按钮，进入其编辑区。我们从库中刚才制的“butterfly”元件拖到舞台上，在此层的第35帧处按F6键插入一个关键帧。单击时间轴下面的“运动引导层”按钮，新建一个图层。单击此层的第1帧，选择工具箱中的“铅笔”工具，画一条曲线，颜色任意，也就是蝴蝶运动的路径，如图8所示。
第5步，单击“图层1”的第1帧，选中“butterfly”元件，将它的注册点移与曲线的一端点重合，然后单击窗口下面的“属性”对话框，将“颜色”选择“Alpha”，将其值设为20%，如图9所示。
再单击第35帧将“butterfly”注册点与曲线的另一端重合，按同样的方法，弹出“属性”对话框，将“颜色”选择“Alpha”，将其值设为30%。然后右击第1帧，弹出快捷菜单，选择“创建补间动画”。
第6步，在图层2的第8帧、15帧、25帧分别单击右键，弹出快捷菜单，选择“转换为关键帧”，再分别选中这几帧上的“butterfly”元件，按后单击工具箱中的“任意变形工具”将其稍微旋转一点角度和改变一下大小，如图10所示。单击“场景1”返回主场景。
第7步，将刚才做的“fly”元件从库中拖到舞台上，用鼠标选中它，单击窗口下方的“属性”对话框，将它的实例名称为“fly”，如图11所示。在第3帧处，按F5键插入一帧。单击第1帧，单击窗口下方的“动作-帧”对话框，加入以下语句：
startDrag("fly",true);
第8步，单击时间轴下方的“插入图层”按钮，新建一图层。在这个层上的第1帧、第2帧、第3帧分别按F6键插入三个关键帧，在每个关键帧上分别加入以下动作语句：
很简单的程序，不过没有2008，只有2010。
你强调了2008，只好算了。没办法。
效果图。
点按钮开始飞，再点就停止，再点再飞。
不管窗体怎么变，始终是从左下角飞到右上角。
因为截图做gif太麻烦，只截了6张，程序中飞得没这么快。可以自己控制。
首先准备两张图片，，多张也行，，我之前做过一个，代码贴出给你，，所需的控件自己话，，你看得懂的～～
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
你给邮箱我，我发个给你算了～～
动画用FLASH控件吧。VB做这个很垃圾的
用计时器不停的改变蝴蝶（图片控件）的坐标（.left和.top），同时改变装载图片的路径切换蝴蝶连续飞行的动作
给你个思想，你自己做做看，两个timer控件，一个图片控件
在窗体移动：用timer控件在小于窗体宽度的情况下控制图片控件的left属性递增加1，等于窗体的情况下变为递减1
扇动翅膀：找图片，两张图片进行切换，用另一个timer控件控制，时间设为500，就差不多了，别太快了。
