[lemozza]

عندى gridview به عمود واحد يعرض صور مخزنه بقاعده البيانات

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

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

[lemozza]

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

[ﻣﺒﺘﺪﺉ]

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

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

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

وشكرا مجددا.

[lemozza]

كود :

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