16-11-17, 02:12 PM
عندى gridview به عمود واحد يعرض صور مخزنه بقاعده البيانات
اريد حفظ كل الصور من gridview فى مسار معين واعطاء اسماء تلقائيه لكل صوره وحفظها فى المسار المحدد
وشكرا على كل حال
16-11-17, 02:12 PM
18-11-17, 01:16 PM
شكرا للمنتدى العظيم انا عملت الكود الحمد لله وشغال تمام وهضيفه لاى شخص يحتاجه مستقبلا
وفكرته انى بضيف الصور صوره صوره من الdatagridview الى picturebox وثم حفظها فى المسار المختار
وفكرته انى بضيف الصور صوره صوره من ال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كود :
Next18-11-17, 04:22 PM
شكرا على الكود
لكن لم استطع تشغيل الكود،
ممكن مثال مشروع بسيط
وشكرا مجددا.
لكن لم استطع تشغيل الكود،
ممكن مثال مشروع بسيط
وشكرا مجددا.
25-11-17, 02:32 PM
كود :
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
وتحط الكود داخل زر لتشغيله