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