المثال لم يعمل لدي لان اصداري 2008 لكن من الصوره فهمت
اللون الي غيرته انته كان لون المتغير وليس الخاصية
بعد ماتضيف الكلاس اعمل Build للمشروع تلاحظ ظهرت الاداة في صندوق الادوات بعدها اضف الاداة الى الفورم ومن الخصائص راح تلاقي الخاصية SelectionColor اختار منها اللون الي تحب
الف شكر
اخي 3booody
على توضيحك وتواصلك معي
نعم استطعت والحمد لله من اضافة الاداة، واضفتها الى النمودج، وجعلت لون العنصر المحدد اصفر ، وقد نجح الامر
ولكـــــــــن
طبقت على النمودج نوعين من الليست فيو
1- التي بالاعلى هي من النوع listview
2- والتي بالاسفل هي من النوع ab-listview
وتم تطبيق ذات الكود الذي يعمل على تحميل العناصر على كلا النوعين من الليست فيو
ا
لقيم ظهرت على الليست فيو من النوع العادي، ولكنها لم تظهر على الليست فيو من النوع الذي تفضلت به حضرتك
وفيما يلي كود
كود :
Sub PopulateListView()
With ListView1
.Clear()
.View = View.Details
.Columns.Add("Beda_id", 0, HorizontalAlignment.Center)
.Columns.Add("م", 60, HorizontalAlignment.Left)
.Columns.Add("اســم المـــادة", 250, HorizontalAlignment.Left)
.Columns.Add("سعر الشــراء", 100, HorizontalAlignment.Left)
.Columns.Add("سعر المبيـع", 100, HorizontalAlignment.Left)
.Columns.Add("ربح المـادة", 100, HorizontalAlignment.Left)
.Columns.Add("ملاحظــــات", 265, HorizontalAlignment.Left)
.GridLines = False
.FullRowSelect = True
.Cursor = Cursors.Hand
.BackColor = System.Drawing.ColorTranslator.FromHtml(My_BackColor_Listview)
.ForeColor = Color.Black
Dim Lst As New ListViewItem
Lst = New ListViewItem()
Lst.SubItems.Add("1")
Lst.SubItems.Add("كوسا محشي")
Lst.SubItems.Add(500)
Lst.SubItems.Add(900)
Lst.SubItems.Add(400)
Lst.SubItems.Add("بلديـــــــة")
.Items.Add(Lst)
End With
End Sub
هو مشابه تماما للكود المذكور اعلاه
كود :
Sub PopulateListView1()
With Ab_ListView1
.Clear()
.View = View.Details
.Columns.Add("Beda_id", 0, HorizontalAlignment.Center)
.Columns.Add("م", 60, HorizontalAlignment.Left)
.Columns.Add("اســم المـــادة", 250, HorizontalAlignment.Left)
.Columns.Add("سعر الشــراء", 100, HorizontalAlignment.Left)
.Columns.Add("سعر المبيـع", 100, HorizontalAlignment.Left)
.Columns.Add("ربح المـادة", 100, HorizontalAlignment.Left)
.Columns.Add("ملاحظــــات", 265, HorizontalAlignment.Left)
.GridLines = False
.FullRowSelect = True
.Cursor = Cursors.Hand
.BackColor = System.Drawing.ColorTranslator.FromHtml(My_BackColor_Listview)
.ForeColor = Color.Black
Dim Lst As New ListViewItem
Lst = New ListViewItem()
Lst.SubItems.Add("1")
Lst.SubItems.Add("كوسا محشي")
Lst.SubItems.Add(500)
Lst.SubItems.Add(900)
Lst.SubItems.Add(400)
Lst.SubItems.Add("بلديـــــــة")
.Items.Add(Lst)
End With
End Sub
على تواصلك معي
بارك الله فيك
السبب ان الاداة مصممه لرسم Items مستقله وليس رسم Columns تحتاج الى تطوير الاداة بشكل افضل لترسم كل ما على الاداة
[b]السلام عليكم
إقتباس :السبب ان الاداة مصممه لرسم Items مستقله وليس رسم Columns تحتاج الى تطوير الاداة بشكل افضل لترسم كل ما على الاداة
شكر اخي الكريم على اجابتك
ولكن سؤالي اليست الاداة التي تفضلت بها مشتقة من الليست فيو
ولماذا لم ترث كل صفات الاداة القياسية لليست فيو
وهل بالامكان تطوير تلك الاداة، فأنا مازلت مبدئ وصعب علي الموضوع
والف الف شكر
[/b]
صراحة اخي ماتوقعت ان في اختلاف اذا كانت Columns
ان شاء الله بعد ما انتهي من عملي احاول اعدل عالاداة بحيث ترسم الكل
الف شكر
ونحن بالانتظار
بارك الله فيك
اخيرآآ ارتحت وكملتها والنتائج مرفقة بصوره
تفضل اخي صارت تعمل بجميع الحالات بإذن الله
كم وضعت خاصية لتغيير لون الهيدر للــColumns وايضآآ لون النص فيها
المكتبة في داخل المثال
موفق
السلام عليكم
الف مبروك اخي 3booody على استحقاقك على وسام المقال
اخي الكريم
حاولت ان اجعل الترويسة تحمل اسماء عربية ( الاسم العمر البلد)
وحين عدلت على الكود، لاحظت انني مضطر على ادخال اسماء الاعمدة بالمقلوب اي من اليسار الى اليمين، حتى تنجح
كود :
With .Columns
.Add("البلد", 100, HorizontalAlignment.Center)
.Add("العمر", 100, HorizontalAlignment.Center)
.Add("الاسم", 100, HorizontalAlignment.Center)
End With
لم اعرف ماهي الخاصية التي تتحكم بارتفاع رأس الليست فيو، هل هي موجودة بالاداة وما اسم الخاصية
ارجو التوضيح
والف شكر
السلام عليكم
قمت باضافة
1- اداة listview
2- اداة ab_listview
ووضعت الاكواد المناسبة المتشابهة لتحميل نفس البيانات على كلا الاداتين، من اجل المقارنة بينهما
مالاحظته اخي الكريم وبكل وضوح
ان الاداة ab_listview لا تدعم الخاصية العربية
ارجو تطوير الاداة ab_listview
بحيث توافق اللغة العربية
والف الف شكر