تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
حفظ كل الصور ب gridview
#1
عندى gridview به عمود واحد يعرض صور مخزنه بقاعده البيانات
اريد حفظ كل الصور من gridview فى مسار معين واعطاء اسماء تلقائيه لكل صوره وحفظها فى المسار المحدد
وشكرا على كل حال
الرد
تم الشكر بواسطة:
#2
شكرا للمنتدى العظيم انا عملت الكود الحمد لله وشغال تمام وهضيفه لاى شخص يحتاجه مستقبلا
وفكرته انى بضيف الصور صوره صوره من الdatagridview الى picturebox وثم حفظها فى المسار المختار

كود :
   
   If f3.dgw.Rows.Count > 0 And fbdPicture.ShowDialog <> DialogResult.Cancel Then
Dim spath As String = ""
كود :
            Dim fpath As String = fbdPicture.SelectedPath
كود :
            Dim makepath As String = "0"
كود :
            Dim makefullpath As String
كود :
            For Each row As DataGridViewRow In f3.dgw.Rows
كود :
                If Not row.IsNewRow Then
كود :
                    Dim ms As New MemoryStream()
كود :
                    Dim img As Image = row.Cells(0).Value
كود :
                    Dim bmpImage As New Bitmap(img)
كود :
                    bmpImage.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
كود :
                    makepath += 1
كود :
                    makefullpath = String.Format("{0} ({1})", f3.txtProductCode.Text, makepath)
كود :
                    spath = String.Format("{0}\{1}", fpath, makefullpath)
كود :
                    Picture.Image = bmpImage
كود :
                    If cmbFormats.SelectedItem = "BMP" Then Picture.Image.Save(spath & ".bmp", System.Drawing.Imaging.ImageFormat.Bmp)
كود :
                    If cmbFormats.SelectedItem = "PNG" Then Picture.Image.Save(spath & ".png", System.Drawing.Imaging.ImageFormat.Png)
كود :
                    If cmbFormats.SelectedItem = "GIF" Then Picture.Image.Save(spath & ".gif", System.Drawing.Imaging.ImageFormat.Gif)
كود :
                    If cmbFormats.SelectedItem = "TIFF" Then Picture.Image.Save(spath & ".tiff", System.Drawing.Imaging.ImageFormat.Tiff)
كود :
                    If cmbFormats.SelectedItem = "JPG" Then Picture.Image.Save(spath & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
كود :
                    spath = ""
كود :
                End If
كود :
            Next
الرد
تم الشكر بواسطة:
#3
شكرا على الكود

لكن لم استطع تشغيل الكود،

ممكن مثال مشروع بسيط

وشكرا مجددا.
الرد
تم الشكر بواسطة:
#4
كود :
If f3.dgw.Rows.Count > 0 And fbdPicture.ShowDialog <> DialogResult.Cancel Then
           Dim spath As String = ""
           Dim fpath As String = fbdPicture.SelectedPath
           Dim makepath As String = "0"
           Dim makefullpath As String
           For Each row As DataGridViewRow In f3.dgw.Rows
               If Not row.IsNewRow Then
                   Dim ms As New MemoryStream()
                   Dim img As Image = row.Cells(0).Value
                   Dim bmpImage As New Bitmap(img)
                   bmpImage.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
                   makepath += 1
                   makefullpath = String.Format("{0} ({1})", f3.txtProductCode.Text, makepath)
                   spath = String.Format("{0}\{1}", fpath, makefullpath)
                   Picture.Image = bmpImage
                   If cmbFormats.SelectedItem = "BMP" Then Picture.Image.Save(spath & ".bmp", System.Drawing.Imaging.ImageFormat.Bmp)
                   If cmbFormats.SelectedItem = "PNG" Then Picture.Image.Save(spath & ".png", System.Drawing.Imaging.ImageFormat.Png)
                   If cmbFormats.SelectedItem = "GIF" Then Picture.Image.Save(spath & ".gif", System.Drawing.Imaging.ImageFormat.Gif)
                   If cmbFormats.SelectedItem = "TIFF" Then Picture.Image.Save(spath & ".tiff", System.Drawing.Imaging.ImageFormat.Tiff)
If cmbFormats.SelectedItem = "JPG" Then Picture.Image.Save(spath & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
                   spath = ""
               End If
Next

شرح الكود واسف على التأخير
f3 اسم الفورم الموجود بها الdatgridview
dgw اسم الdatgridview الموجود بها الصور ويكون فيها عمود واحد للصور
fbdPicture اداه savedialog

فى الفورم الموجوده بها الكود بتنشأ 
picturebox وتسميها picture

combobox وتسميه cmbFormats 
وتسجل فيه BMP ، PNG ، GIF ، TIFF ،  jpg
وتحط الكود داخل زر لتشغيله
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] احصاء كل عناصر الصور في المشروع في مصفوفة عبد الهادي بهاب 11 769 22-09-20, 03:45 PM
آخر رد: عبد الهادي بهاب
Lightbulb [VB.NET] مشروع برنامج لعرض الصور Doctor GME 5 669 03-08-20, 08:41 PM
آخر رد: ابراهيم ايبو
  [سؤال] عرض الصور من قاعدة البيانات الي picture فيجوال بيسك منه 10 764 01-06-20, 11:26 AM
آخر رد: سعود
  [كود] ما هو الكود المناسب لصنع برنمج تحويل الصور ل ايقونات محمد ايمن 7 636 08-05-20, 03:12 AM
آخر رد: سعود
  اضافة الصور لقاعدة البيانات احمد خطاب 8 807 14-12-19, 11:46 AM
آخر رد: احمد خطاب
  [VB.NET] حفظ نسخ واستبدال الصور visualist2015 4 691 27-11-19, 11:46 PM
آخر رد: visualist2015
  [VB.NET] عرض الصور في الليست فيو و إجراء البحث من خلال الضغط على الصورة المعروضة larbihamri 6 886 22-08-19, 10:57 PM
آخر رد: ابراهيم ايبو
  [VB.NET] كود لتشغيل السكانر لعدد من الصور khairallah 1 651 19-07-19, 03:29 AM
آخر رد: فهد العوين
  الصور وlistbox dasktop 1 526 12-07-19, 05:30 PM
آخر رد: ابراهيم ايبو
Question [VB.NET] كيفية عرض الصور من قاعدة البيانات على picturebox الرائد 9 1,512 07-07-19, 02:30 AM
آخر رد: ابراهيم ايبو

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم