[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