تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اريد وضع 3 صور في خلية واحدة بالداتا جريد
#1
انا بضيف صورة بالداتا جريد واريد وضع 3 صور بخلية واحدة مع امكانية عرض احدهم بالpicture box
الرد }}}}
تم الشكر بواسطة:
#2
كيف تجي 3 صور في خلية واحده
هل تقسط في سطر واحد ؟! أم تقصد في عمود واحد ؟!

إذا كنت تقصد فعلا في خليه وحده ما أظن انها تسير مثل ما تقول انك تريد 3 صور تعرض في PictureBox ؟
في حالة وحده تصلح إذا قمت بدمج 3 صور وجعلتها صوره واحده ووتعامل معها كصوره واحده ولا تتعامل كـ 3 صور
الرد }}}}
تم الشكر بواسطة:
#3

السلام عليكم ورحمة الله وبركاته




لدي محاولة أرجو أن تكون مفيدة





السلام عليكم ورحمة الله وبركاته


الملفات المرفقة
.rar   Union 3 Images In One Cell DataGridView.rar (الحجم : 965.58 ك ب / التحميلات : 67)
الرد }}}}
تم الشكر بواسطة:
#4

السلام عليكم ورحمة الله وبركاته




وهذا مثال آخر بشرط تساوي أحجام الصور





السلام عليكم ورحمة الله وبركاته


الملفات المرفقة
.rar   Union 3 Images In One Cell DataGridView-02.rar (الحجم : 988.33 ك ب / التحميلات : 46)
الرد }}}}
تم الشكر بواسطة:
#5
اول مرة اكون عاجز عن الشكر او حتي الثناء عموما انا الموضوع مكنتش بفكر فية ولكن بعد الرابط دة اتغير تفكيري

http://stackoverflow.com/questions/14476...dview-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
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد تحول الكود لفيجوال 2008 abudawoodd 6 153 15-01-17, 02:11 PM
آخر رد: abudawoodd
  اريد كود غلق الفورم الحالى وفتح فورم اخر ali.alfoly 8 2,828 04-01-17, 09:18 PM
آخر رد: jojo2014
  كيف يتم جعل اول سطر فى الداتا جريد فيو يظهر الرصيد السابق السيد الجوهري 7 258 27-12-16, 11:24 PM
آخر رد: السيد الجوهري
  مساعده اريد كود لحذف عدد من الصفوف من الداتا قرد فيو وكذلك تنحذف من قاعدة البيانات معتز الجازوي 2 103 25-12-16, 01:44 PM
آخر رد: thevirus
  حشر سطر فى الداتا جريد فيو السيد الجوهري 8 154 23-12-16, 11:14 PM
آخر رد: السيد الجوهري
  اريد كود لفتح ملف صوتى فى اداة ويندوز ميديا بلير من ملف الريسورس المبرمج الاسطورى 5 573 23-12-16, 03:16 PM
آخر رد: silverlight
  تحميل قيم اكبرid فى الداتا جريد فيو داخل تسكت بوكس araxis 8 236 20-12-16, 08:42 PM
آخر رد: ابراهيم النعيمي
  [VB.NET] سؤالى عن new Tabpage اريد نسخ جميع المحتوى والاكواد فى تاب جديد elhon.tec 1 91 20-12-16, 09:10 AM
آخر رد: amgad525
  [VB.NET] اريد إضافة صورة للموظف في جدول أخر بنفس قاعدة البيانات أبووسم 11 559 18-12-16, 07:15 PM
آخر رد: أبووسم
  ما هو كود حفظ البيانات من الداتا جريد فيو إلى قاعدة البيانات kofa 4 266 18-12-16, 05:00 AM
آخر رد: zinom

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم