gdi+多张图片制作gif动画

lss001

新建文件夹.rar (431.56 KB, 下载次数: 98)

2021-6-29 15:31 上传

点击文件名下载附件

dongdonggege

时间发的太早了吧，老师很辛苦啊，看到的人很少。今天的评分没了，下次顶你。
我今天也看到了这类文章，还有个停止的程序。

1. Sub test() '停止播放GIF动画
   
2.     pMC.Stop
   
3.     Set pVW = Nothing
   
4.     Set pMC = Nothing
   
5. End Sub

复制代码

dongdonggege

1、我有问题：If GdipLoadImageFromFile(StrPtr(sFilename), lBitmap(i)) = OK Then，lBitmap(i)提示下标越界。
2、这个程序，视频如何播放？

dongdonggege

lss001 发表于 2021-6-27 16:48
下标越界，检查一下数组声明,实在不明白可参考上次发的附件（虽然附件下架，您应该有保存）
如何播放， ...

还是没解决，我的程序，和你回复我的程序都没有lBitmap。
我已加你QQ，网名：东东哥，QQ：95424253，请接受。
如果可以，请发我完整的程序。

lss001

dongdonggege 发表于 2021-6-28 07:25
还是没解决，我的程序，和你回复我的程序都没有lBitmap。
我已加你QQ，网名：东东哥，QQ：95424253，请 ...

请参考1楼附件！！！！

aman1516

lss001 发表于 2021-6-29 00:16
请参考1楼附件！！！！

这么好的东东必须好好学习

1042271867

学习了               

金牌1

如何将  文本框.jpg    修改成     文字一行一行显示  的动画格式？