vb6 XiaoyaoGifMaker.cls ,Gif animation Class,For Quickly Create Gif Moives

Code:

Private Sub XiaoyaoGifMakerDemo_Click()

   Dim Gif As XiaoyaoGifMaker

   Set Gif = New XiaoyaoGifMaker

   Gif.StartMakeGif App.Path & "\MakeDemo2.gif"

   Gif.AddImg App.Path & "\Images\Frame_000.png", 500

   Gif.AddImg App.Path & "\Images\Frame_001.png", 500

   Gif.AddImg App.Path & "\Images\Frame_002.png", 500

   Gif.AddImg App.Path & "\Images\Frame_003.png", 500

   Gif.Finish 300, 300

   Set Gif = Nothing

End Sub

from vb6 make gif movies,Will repeating frames increase the image volume?-VBForums
https://www.vbforums.com/showthread....e-image-volume

Quote:

Originally Posted by -Franky-

You can create animated GIFs in VB6 using the WIC APIs. You can reduce the file size, for example, by replacing only a part (a rectangular area) of a previous image. You can set a disposal method for each image. This determines how the image should be rendered on the previous image. The rectangle (image) to be replaced can be smaller in dimensions than the largest image in the animated GIF or the dimensions of the GIF itself. You can specify a position for each image where it should be drawn. Where X/Y + image width/height <= max. dimension of the GIF.
You can find a VB6 example project from 2018 in the upload/download area on ActiveVB -> VBC_WIC_Image2AnimGIF.zip
It's pretty wild code, but it shows how it works with WIC. Some newer and clearer code from me is this VB.NET project -> https://www.vb-paradise.de/index.php...ent-erstellen/