كود حفظ صورة

اذهب الى الأسفل

كود حفظ صورة Empty كود حفظ صورة

مُساهمة من طرف السعيدي في الثلاثاء مارس 05, 2019 9:50 am

ارجو المساعدة في
كود حفظ صورة الفورم باسم
مع حرية اختيار مكان الحفظ
السعيدي
السعيدي
...
...

تاريخ التسجيل : 15/11/2018
المساهمات : 46
النقاط : 65
التقيم : 1
الدولة : الكويت
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

كود حفظ صورة Empty رد: كود حفظ صورة

مُساهمة من طرف NEXT في الثلاثاء مارس 05, 2019 1:29 pm

فى راى لا يمكن حفظ صورة الفورم الى ملف لكن يمكن حفظ الصورة التى بصندوق الصورة PictureBox1 الى ملف باستخدام الشفرة التالية :
الكود:

 Dim FileToSaveAs As String = System.IO.Path.Combine(My.Computer.FileSystem.SpecialDirectories.Temp, SaveFileDialog1.FileName)
    PictureBox1.Image.Save(FileToSaveAs, System.Drawing.Imaging.ImageFormat.Jpeg)

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
كود حفظ صورة Do.php?imgf=154090993464951
NEXT
NEXT
الادارة
الادارة

تاريخ التسجيل : 18/02/2011
المساهمات : 381
النقاط : 200557
التقيم : 14
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

كود حفظ صورة Empty رد: كود حفظ صورة

مُساهمة من طرف السعيدي في الثلاثاء مارس 05, 2019 8:34 pm

الله يعطيك العافية
فيه خطا بالكود
كود حفظ صورة Screenshot_1[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
السعيدي
السعيدي
...
...

تاريخ التسجيل : 15/11/2018
المساهمات : 46
النقاط : 65
التقيم : 1
الدولة : الكويت
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

كود حفظ صورة Empty رد: كود حفظ صورة

مُساهمة من طرف السعيدي في الثلاثاء مارس 05, 2019 9:08 pm

الكود:
  Dim a As String = "C:\Users\Hp\Desktop\مجلد جديد.jpg"
        Dim b As New Bitmap(Me.Width, Me.Height)
        Me.DrawToBitmap(b, New Rectangle(0, 0, Me.Width, Me.Height))
        b.save(a)
حصلت هذا الكود بس مشكلة الكود هو يحفظ صوره  واذا ارت ان تحفظ صورة اخري يمسح الاولي و يحفظ الثانية مكانها
السعيدي
السعيدي
...
...

تاريخ التسجيل : 15/11/2018
المساهمات : 46
النقاط : 65
التقيم : 1
الدولة : الكويت
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

كود حفظ صورة Empty رد: كود حفظ صورة

مُساهمة من طرف NEXT في الخميس مارس 07, 2019 7:28 am

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] كتب:الله يعطيك العافية
فيه خطا بالكود
كود حفظ صورة Screenshot_1[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]


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

كود حفظ صورة SaveFileDlgImg1

حصلت هذا الكود بس مشكلة الكود هو يحفظ صوره  واذا ارت ان تحفظ صورة اخري يمسح الاولي و يحفظ الثانية مكانها
الكود:

Dim a As String = "C:\Users\Hp\Desktop\مجلد جديد.jpg"
        Dim b As New Bitmap(Me.Width, Me.Height)
        Me.DrawToBitmap(b, New Rectangle(0, 0, Me.Width, Me.Height))
        b.save(a)

الكود السابق يقوم بحفظ الصورة باسم و مسار ثابت و بالتالى كل ما تتم حفظ صورة اخرى بنفس الاسم و نفس المسار سيتم الكتابة علية ومن ثم تظهر اخر صورة محفوظة و يتم الغاء الاخرى 

ولحل هذه المشكلة و جب عليك استخدام مربع حوار SaveFileDialog حتى تستطيع تحديد مسار مختلف للحفظ أو وضع اسم للملف الجديد وذلك على النحو التالى :

الكود:

Dim saveFileDialog1 As New SaveFileDialog()
  
   saveFileDialog1.Filter = "Bitmap (*.bmp)|*.bmp|JPEG (*.jpg)|*.jpg|EMF (*.emf)|*.emf|PNG (*.png)|*.png|SVG (*.svg)|*.svg|GIF (*.gif)|*.gif|TIFF (*.tif)|*.tif"
   saveFileDialog1.FilterIndex = 2
   saveFileDialog1.RestoreDirectory = True
If (saveFileDialog1.ShowDialog() = DialogResult.OK) Then
 Dim a As String =  saveFileDialog1.FileName

Dim b As New Bitmap(Me.Width, Me.Height)
        Me.DrawToBitmap(b, New Rectangle(0, 0, Me.Width, Me.Height))
        b.save(a)
           

        End If

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
كود حفظ صورة Do.php?imgf=154090993464951
NEXT
NEXT
الادارة
الادارة

تاريخ التسجيل : 18/02/2011
المساهمات : 381
النقاط : 200557
التقيم : 14
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

كود حفظ صورة Empty رد: كود حفظ صورة

مُساهمة من طرف السعيدي في الخميس مارس 07, 2019 7:14 pm

الله يجزاك ولا يحرمك الاجر
السعيدي
السعيدي
...
...

تاريخ التسجيل : 15/11/2018
المساهمات : 46
النقاط : 65
التقيم : 1
الدولة : الكويت
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى