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

درسنا اليوم سهل جدا و بسيط و لا يحتاج الكثير من الجهد و لا الشرح فالكود يشرح نفسه بنفسه

نبدأ على بركة الله :

أولا...نقوم بفتح مشروع جديد و ضيف اليه الأدوات التالية :

(1)Button1 : لفتح الصورة التي نريد تحويلها واجعل الخاصية Button1.text  لها "فتح الصورة التي تريد تحويلها"

(2)   OpenFileDialog : من نافذة properties   الخاصة بها اكتب أمام الخاصية Filter  الكود التالي :

allImages|*.Bmp;*. Emf;* gif;* . icon;* .jpeg;* .png;* . tiff;* . Emf;* . wmf

(3)   pictureBox1 : اجعل الخاصية BackgroundImageLayout لها = strech
                            

(4) saveFileDialog

(5)  Button2 :لتحويل الصورة واجعل الخاصية Button2.text  لها "تحويل"

ComboBox (6) : من نافذة properties   الخاصة بها اكتب  في الخاصية Items القيم التالية :

        Bmp

        Emf

        Exif

        Gif

        Icon

        Jpeg

        Png

        Tiff

        Wmf

ثانيا ...لفتح الصورة اكتب في الحدث Button1_Click الكود التالي :

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

        OpenFileDialog1.ShowDialog()

        Try

            PictureBox1.BackgroundImage = Image.FromFile(OpenFileDialog1.FileName)

        Catch ex As Exception

            MsgBox("حدث خطأ أثناء تحميل الصورة")

        End Try

    End Sub

ثالثا...لتحويل الصورة اكتب في الحدث Button2_Click الكود التالي :

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

    

   If ComboBox1.SelectedItem = "Bmp" Then

            savefiledialog1.Filter = "bmp|*.bmp"

            savefiledialog1.ShowDialog()

            picturebox1.BackgroundImage.Save(savefiledialog1.FileName, Drawing.Imaging.ImageFormat.Bmp)

        ElseIf ComboBox1.SelectedItem = "Emf" Then

            savefiledialog1.Filter = "Emf|*.Emf"

            savefiledialog1.ShowDialog()

            picturebox1.BackgroundImage.Save(savefiledialog1.FileName, Drawing.Imaging.ImageFormat.Emf)

        ElseIf ComboBox1.SelectedItem = "Exif" Then

            savefiledialog1.Filter = "Exif|*.Exif"

            savefiledialog1.ShowDialog()

            picturebox1.BackgroundImage.Save(savefiledialog1.FileName, Drawing.Imaging.ImageFormat.Exif)

        ElseIf ComboBox1.SelectedItem = "Gif" Then

            savefiledialog1.Filter = "Gif|*.Gif"

            savefiledialog1.ShowDialog()

            picturebox1.BackgroundImage.Save(savefiledialog1.FileName, Drawing.Imaging.ImageFormat.Gif)

        End If

    End Sub

تستطيع في الكود السابق اضافة عدة خيارات و صيخ أخرى...

هناك عدة طرق أخرى لكتابة الكود السابق كاستخدام جملة select case و التي سبق شرحها في درس آخر...

 لتحميل المثال :  من هنا     

و هذا مثال آخر : من هنا 

أتمنى يكون الدرس مفيد وواضح و ليس هناك أي ابهام في أيه فقرة من فقرات الأكواد السابقة . و الى لقاء في درس آخر ان شاء الله