[alsalamoni]

(06-02-20, 11:23 AM)محمدالزند كتب : برضه مش شغال لاسف

(07-02-20, 12:26 AM)محمدالزند كتب : مش لاقي حل

اعمل مشروع صغير جديد وارفقه

كود :

If pbox.Image IsNot Nothing Then
   Dim SaveFileAs As New SaveFileDialog
   SaveFileAs.Title = "Save File As"
   SaveFileAs.Filter = "Image Files (JPEG)|*.jpg;*.jpeg"
   If SaveFileAs.ShowDialog() = DialogResult.OK Then
       pbox.Image.Save(SaveFileAs.FileName, Imaging.ImageFormat.Jpeg)
   End If
End If

---

لمن تقول مش شغال،
اكيد تقصد انه لو يحفظ ولم تظهر رسالة خطا