منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

كود :

Try

            Dim savefile As SaveFileDialog = New SaveFileDialog()

            savefile.DefaultExt = "jpg"

            savefile.Filter = "All files*.*|*.*"

            If savefile.ShowDialog() = DialogResult.OK Then

                PictureBox3.Image.Save(savefile.FileName)

            End If

        Catch ex As Exception

            MsgBox(ex.ToString())

        End Try

بارك الله فيك على هذا الكود

تصحيح بسيط اذا سمحت لي

كود :

Try

            If PictureBox3.Image IsNot Nothing Then

                Dim savefile As New SaveFileDialog()

                savefile.DefaultExt = "jpg"

                savefile.Filter = "jpg files *.jpg|*.jpg"

                If savefile.ShowDialog() = DialogResult.OK Then

                    PictureBox3.Image.Save(savefile.FileName, Imaging.ImageFormat.Jpeg)

                End If

            Else

                MsgBox("لا توجد صورة لحفظها")

            End If

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

شكراً لك
لمسات جميلة

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

lkaam

alma2

lkaam