برنامج لصنع صور متحركة بصيغة gif

كود :

'يجب استدعاء المجالات التالية

Imports System

Imports System.Drawing

Imports System.Drawing.Imaging

Imports Gif.Components

Public Class MainForm

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

         'تعيين أنواع الملفات التي يمكن فتحها

        openDialog.Filter = "كل الملفات |*png;*bmp;*jpg"

        If openDialog.ShowDialog = Windows.Forms.DialogResult.OK Then

             'في حال تحقق شرط ضغط الزر OK يتم أضافة مكان الصورة إلى القائمة

            lstPictures.Items.Add(openDialog.FileName)

        End If

    End Sub

    Private Sub lstPictures_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lstPictures.Click

         'عند الضغط على أي مسار يتم عرض الصورة في الخانة الأولى

        picFrame.ImageLocation = lstPictures.SelectedItem

    End Sub

    Private Sub lstPictures_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstPictures.SelectedIndexChanged

         'عند الضغط على أي مسار يتم عرض الصورة في الخانة الأولى

        picFrame.ImageLocation = lstPictures.SelectedItem

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

         'الملف TestImage سيتم جعله منصة التجربة ليتم حفظ الصورة بداخله

        Dim TestImage As String = Application.StartupPath & "\test.gif"

         'الأداة AnimatedGifEncoder تجدونها داخل المكتبة GIF التي قمنا باضافتها للمراجع

        Dim GifEncoder As New AnimatedGifEncoder()

         'يتم حفظ الصورة القديمة

        Kill(TestImage)

         'نخبر الأداة ببداية عملها بتحديد مسار الملف التجربة

        GifEncoder.Start(TestImage)

         'هنا يتم تحديد الوقت الفاصل بين كل إطارين

        GifEncoder.SetDelay(updownDelay.Value * 1000)

        GifEncoder.SetRepeat(0)

         'نصنع هنا حلقة يتم فيها إضافة الأطر واحدا واحدا بمساعدة الأداة إلى ملف TestImage

        Dim i As Integer

        For i = 0 To lstPictures.Items.Count - 1 Step 1

            GifEncoder.AddFrame(Image.FromFile(lstPictures.Items.Item(i)))

        Next

         'نخبر الأداة بانتهاء عملها في عملية التحويل

        GifEncoder.Finish()

         'هنا نعرض نتيجة التحويل

        picGIF.ImageLocation = TestImage

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

         'في هذا الحدث يتم حفظ الصورة التي قمنا بصنعها في أي مكان نريد باستخدام SaveFileDialog ونقوم فقط بنسخ الصورة التجريبية ولا تلزم عملية التحويل مرة أخرى

        Dim TestImage As String = Application.StartupPath & "\test.gif"

        saveDialog.Filter = "GIF |*.gif"

        If saveDialog.ShowDialog = Windows.Forms.DialogResult.OK Then

            FileCopy(TestImage, saveDialog.FileName)

        End If

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

         'اغلاق البرنامج

        Me.Close()

    End Sub

End Class