+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : اريد وضع 3 صور في خلية واحدة بالداتا جريد (/showthread.php?tid=8015)
اريد وضع 3 صور في خلية واحدة بالداتا جريد - mazen - 17-03-13
انا بضيف صورة بالداتا جريد واريد وضع 3 صور بخلية واحدة مع امكانية عرض احدهم بالpicture box
اريد وضع 3 صور في خلية واحدة بالداتا جريد - Easy4ever - 18-03-13
كيف تجي 3 صور في خلية واحده
هل تقسط في سطر واحد ؟! أم تقصد في عمود واحد ؟!
إذا كنت تقصد فعلا في خليه وحده ما أظن انها تسير مثل ما تقول انك تريد 3 صور تعرض في PictureBox ؟
في حالة وحده تصلح إذا قمت بدمج 3 صور وجعلتها صوره واحده ووتعامل معها كصوره واحده ولا تتعامل كـ 3 صور
اريد وضع 3 صور في خلية واحدة بالداتا جريد - @@أبورائد@@ - 18-03-13
السلام عليكم ورحمة الله وبركاته
لدي محاولة أرجو أن تكون مفيدة
السلام عليكم ورحمة الله وبركاته
اريد وضع 3 صور في خلية واحدة بالداتا جريد - @@أبورائد@@ - 18-03-13
السلام عليكم ورحمة الله وبركاته
وهذا مثال آخر بشرط تساوي أحجام الصور
السلام عليكم ورحمة الله وبركاته
اريد وضع 3 صور في خلية واحدة بالداتا جريد - mazen - 18-03-13
اول مرة اكون عاجز عن الشكر او حتي الثناء عموما انا الموضوع مكنتش بفكر فية ولكن بعد الرابط دة اتغير تفكيري
http://stackoverflow.com/questions/14476558/how-to-add-the-image-and-text-in-datagridview-cell
وانا اريد التعديد علي اكوادي لوضع 3 صور في حالة الاضافة
وانا من المثال السابق هقدر اعرض 3 صور بس مش عارف هحفظ اذاي انا باستخدم الكود دة لصورة واحدة اذاي اخلية ل3 صور وممكن اعمل مسافة ولو صغيرة بين كل صورة واخريlog
Try
If PictureBox1.Image IsNot Nothing Then
If MsgBox(" هل تريد استبدال الصورة الحالية " & " ؟ ", MsgBoxStyle.Exclamation + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.OkCancel, "استبدال صورة") = MsgBoxResult.Cancel Then Exit Sub
Else
If MsgBox(" استمرار اضافة صورة جديدة للسجل رقم " & Label2.Text & " ؟ ", MsgBoxStyle.Exclamation + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.OkCancel, "ادراج صورة") = MsgBoxResult.Cancel Then Exit Sub
End If
Application.DoEvents()
Dim OFG As New OpenFileDia
OFG.Filter = "Files(*.jpg)|*.jpg|Files(*.gif)|*.gif|Files(*.bmp)|*.bmp|Files(*.png)|*.png"
OFG.Title = "ادراج صورة"
OFG.FileName = ""
If OFG.ShowDialog() = Windows.Forms.DialogResult.OK Then
Dim fs As IO.FileStream = New IO.FileStream(OFG.FileName, IO.FileMode.Open, IO.FileAccess.Read)
Dim LoadImage As Image = Image.FromStream(fs)
fs.Close()
Dim Stream As New IO.MemoryStream()
Dim NewBitmap As New Bitmap(LoadImage, 200, 225)
NewBitmap.Save(Stream, System.Drawing.Imaging.ImageFormat.Jpeg)
Application.DoEvents()
BindingSource1.EndEdit()
DataAdapter1.Update(DataSet1.Tables("Tb1"))
DataSet1.Tables("Tb1").Rows(BindingSource1.Position).Item("Pic") = Stream.ToArray
Stream.Close()
BindingSource1.EndEdit()
DataAdapter1.Update(DataSet1.Tables("Tb1"))
Application.DoEvents()
MsgBox("تم حفظ الصورة نجاح", MsgBoxStyle.MsgBoxRight + MsgBoxStyle.Information, "نجاح ")
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try