حفظ كل الصور ب 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 وثم حفظها فى المسار المختار كود : كود : 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 شرح الكود واسف على التأخير f3 اسم الفورم الموجود بها الdatgridview dgw اسم الdatgridview الموجود بها الصور ويكون فيها عمود واحد للصور fbdPicture اداه savedialog فى الفورم الموجوده بها الكود بتنشأ picturebox وتسميها picture combobox وتسميه cmbFormats وتسجل فيه BMP ، PNG ، GIF ، TIFF ، jpg وتحط الكود داخل زر لتشغيله |