求大佬帮写个蝴蝶飞舞的代码
vb吧
全部回复
仅看楼主
level 1
写出来的效果是两张图片交替出现
然后蝴蝶挥翼从左下角到右上角
一直自动循环
2023年03月05日 13点03分 1
level 9
2023年03月06日 06点03分 2
能把代码发一下吗大佬[泪][花心]
2023年03月06日 10点03分
目测你这是用一张图片改宽度实现的效果啊,也不错嘛
2023年03月06日 11点03分
@初音✨七奈 原图是一张,但还是两张图,我把一张图的翅膀部分变窄了,身子没变,重新存了张新图片。其实不如省点事用一张图,身子没变基本上看不出来[汗]
2023年03月07日 00点03分
level 7
很巧妙
2023年03月06日 13点03分 4
level 1
求大佬们发个源代码[乖][乖][乖]
2023年03月06日 15点03分 5
哪不会可以教你,伸手党不好。
2023年03月07日 00点03分
@klimaa 就是我用的是vb里面的picturebox目前只能做到让蝴蝶飞起来,但是没办法自动飞。应该是要加一个timer,但是我不知道怎么编写这部分的代码
2023年03月07日 03点03分
@小星星360版 这个简单,下面我给你说说
2023年03月07日 04点03分
level 9
先加个Timer(会加吧?就是在工具栏里选个Timer,在Form上画一下)
然后,在属性栏,把Timer的interval属性设成300,enable = false
然后,Form_load的处理:
初始化图片位置,启动Timer(Timer.enable = true)
由于timer的代码是按照interval的设置自动执行的,所以你要想象一下,图片的动画是怎么样子的,就是每300ms移动到下一个位置,所以要在Timer的代码里更新每300ms的位置:
双击timer图标,代码栏就会出现代码段。在里面加上
-------------------
x坐标=x坐标+移动量
y坐标=y坐标+移动量
超出边界处理(给你留个作业)
图片一不显示(下一次是显示)
图片二显示(下一次是不显示)
-------------------
就OK了。
2023年03月07日 04点03分 6
大佬,好像又有bug了,两张图片无法交替出现
2023年03月07日 14点03分
求大佬帮忙看看,vb课才上两节老师留的作业,完全没有头绪的写到这里[泪][泪][泪]
2023年03月07日 14点03分
大佬帮帮忙吧[泪]真不是拿来主义,已经做了一天了。实在是没咋学就要做一个全新的程序,真不会啊[泪][泪][泪]做出来的东西奇形怪状的,总不能把这个作业交上去吧
2023年03月07日 16点03分
@小星星360版 在初始化里,设置一个visable = true,另一个是false。 在timer里,picture1.visible = not picture1.visible,picture2同
2023年03月07日 16点03分
level 1
2023年03月07日 14点03分 7
level 1
我这有一个易语言版本的飞舞的蝴蝶,不知道行不,这个不是飞走对角线的
2023年03月08日 09点03分 10
1