منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] حفظ الصورة من picturebox الى جهاز الكمبيوتر - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] حفظ الصورة من picturebox الى جهاز الكمبيوتر (/showthread.php?tid=20615)

حفظ الصورة من picturebox الى جهاز الكمبيوتر - lkaam - 04-06-17

كود :
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
        


RE: حفظ الصورة من picturebox الى جهاز الكمبيوتر - alma2 - 04-06-17

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

تصحيح بسيط اذا سمحت لي
كود :
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


RE: حفظ الصورة من picturebox الى جهاز الكمبيوتر - lkaam - 04-06-17

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