[mattthetoadwart]

I'm working on a program that is able to create Animated GIF images from still images. The way I have set it up is that you will open still images into a Listbox via an Open File Dialog. Then you will type a time frame for the GIF to change into a Textbox. You then select a location to save the GIF via a Save File Dialog. When you click Save, the location appears in a Textbox. Finally you click a Button and the program creates the GIF Image in the selected location.

Only 1 Problem... I don't know the code to create the Animated GIF Image!



If anyone knows the code to do this, could you please tell me what is by replying to this message.

Thank You.


Matthew Blanch (also know as matt the toadwart).

[digioz]

Here is what you are looking for (NGIF animated GIF encoder for .NET):

http://www.codeproject.com/KB/GDI-plus/NGif.aspx


Pete

[mattthetoadwart]

I don't think this is what I'm looking for. It appears to be for C#. I only program in Visual Basic .NET.

Is there a version for VB.NET?


Matt B

[digioz]

You can reference the library in VB.NET as well as C#. That's the beauty of the .NET Framework. Here is an example in VB.NET:

Imports System
Imports System.Drawing
Imports System.Drawing.Imaging
Imports Gif.Components
 
Public Class Form1
 
    Public csProjectPath As String
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim lsImageName As String
        Dim laFrames() As String = {"01.png", "02.png", "03.png"}
        csProjectPath = Application.StartupPath
        csProjectPath = Replace(csProjectPath, "\bin\Debug", "")
        csProjectPath = Replace(csProjectPath, "\bin\Release", "")
        For Each lsImageName In laFrames
            lstFrames.Items.Add(csProjectPath & "\images\" & lsImageName)
        Next
        If lstFrames.Items.Count > 0 Then
            lstFrames.SelectedIndex = 0
            pbFrame.ImageLocation = lstFrames.Items.Item(0).ToString
        End If
    End Sub
 
    Private Sub lstFrames_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstFrames.SelectedIndexChanged
        pbFrame.ImageLocation = lstFrames.SelectedItem
    End Sub
 
    Private Sub btnAnimate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAnimate.Click
        Dim lsOutputFilePath As String = csProjectPath & "\images\test.gif"
        Dim loAGifEncoder As New AnimatedGifEncoder()
        loAGifEncoder.Start(lsOutputFilePath)
        loAGifEncoder.SetDelay(500)
        '-1:no repeat,0:always repeat 
        loAGifEncoder.SetRepeat(0)
        Dim i As Integer = 0
        Dim count As Integer = lstFrames.Items.Count
        While i < count
            loAGifEncoder.AddFrame(Image.FromFile(lstFrames.Items.Item(i)))
            i += 1
        End While
        loAGifEncoder.Finish()
        Dim gifDecoder As New GifDecoder()
        gifDecoder.Read(lsOutputFilePath)
        i = 0
        count = gifDecoder.GetFrameCount()
        While i < count
            Dim frame As Image = gifDecoder.GetFrame(i)
            frame.Save(lsOutputFilePath + Guid.NewGuid().ToString() + ".png", ImageFormat.Png)
            i += 1
        End While
        pbAnimated.ImageLocation = lsOutputFilePath
    End Sub
 
End Class 

Here is how it looks:

Animated_GIF_Sample_Application.jpg

Sample VB.NET Project is attached in a zip file.


Pete