منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
حفظ كل الصور ب gridview - نسخة قابلة للطباعة

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



حفظ كل الصور ب gridview - lemozza - 16-11-17

عندى gridview به عمود واحد يعرض صور مخزنه بقاعده البيانات
اريد حفظ كل الصور من gridview فى مسار معين واعطاء اسماء تلقائيه لكل صوره وحفظها فى المسار المحدد
وشكرا على كل حال



RE: حفظ كل الصور ب gridview - lemozza - 18-11-17

شكرا للمنتدى العظيم انا عملت الكود الحمد لله وشغال تمام وهضيفه لاى شخص يحتاجه مستقبلا
وفكرته انى بضيف الصور صوره صوره من ال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



RE: حفظ كل الصور ب gridview - ﻣﺒﺘﺪﺉ - 18-11-17

شكرا على الكود

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

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

وشكرا مجددا.


RE: حفظ كل الصور ب gridview - lemozza - 25-11-17

كود :
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
وتحط الكود داخل زر لتشغيله