منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
الاداة ListView بميزة تغيير لون الــSelection - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : الاداة ListView بميزة تغيير لون الــSelection (/showthread.php?tid=1024)

الصفحات: 1 2

RE: الاداة ListView بميزة تغيير لون الــSelection - 3booody - 25-11-13

المثال لم يعمل لدي لان اصداري 2008 لكن من الصوره فهمت
اللون الي غيرته انته كان لون المتغير وليس الخاصية
بعد ماتضيف الكلاس اعمل Build للمشروع تلاحظ ظهرت الاداة في صندوق الادوات بعدها اضف الاداة الى الفورم ومن الخصائص راح تلاقي الخاصية SelectionColor اختار منها اللون الي تحب

RE: الاداة ListView بميزة تغيير لون الــSelection - kafi2030 - 26-11-13

الف شكر
اخي 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


و الكود الدي يعمل على تعبئة القيم على الليست فيو من النوع ab_listview
هو مشابه تماما للكود المذكور اعلاه

كود :
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

ارجو توضيح سبب عدم تحميل القيم على الليست فيو من النوع ab_listview

والف الف شكر
على تواصلك معي
بارك الله فيك

RE: الاداة ListView بميزة تغيير لون الــSelection - 3booody - 26-11-13

السبب ان الاداة مصممه لرسم Items مستقله وليس رسم Columns تحتاج الى تطوير الاداة بشكل افضل لترسم كل ما على الاداة

RE: الاداة ListView بميزة تغيير لون الــSelection - kafi2030 - 26-11-13

[b]السلام عليكم

إقتباس :السبب ان الاداة مصممه لرسم Items مستقله وليس رسم Columns تحتاج الى تطوير الاداة بشكل افضل لترسم كل ما على الاداة

شكر اخي الكريم على اجابتك

ولكن سؤالي اليست الاداة التي تفضلت بها مشتقة من الليست فيو
ولماذا لم ترث كل صفات الاداة القياسية لليست فيو

وهل بالامكان تطوير تلك الاداة، فأنا مازلت مبدئ وصعب علي الموضوع

والف الف شكر
[/b]

RE: الاداة ListView بميزة تغيير لون الــSelection - 3booody - 27-11-13

صراحة اخي ماتوقعت ان في اختلاف اذا كانت Columns
ان شاء الله بعد ما انتهي من عملي احاول اعدل عالاداة بحيث ترسم الكل

RE: الاداة ListView بميزة تغيير لون الــSelection - kafi2030 - 27-11-13

الف شكر
ونحن بالانتظار

بارك الله فيك

RE: الاداة ListView بميزة تغيير لون الــSelection - 3booody - 27-11-13

اخيرآآ ارتحت وكملتها والنتائج مرفقة بصوره

تفضل اخي صارت تعمل بجميع الحالات بإذن الله
كم وضعت خاصية لتغيير لون الهيدر للــColumns وايضآآ لون النص فيها
المكتبة في داخل المثال
موفق

RE: الاداة ListView بميزة تغيير لون الــSelection - kafi2030 - 05-12-13

السلام عليكم
الف مبروك اخي 3booody على استحقاقك على وسام المقال

اخي الكريم
حاولت ان اجعل الترويسة تحمل اسماء عربية ( الاسم العمر البلد)

وحين عدلت على الكود، لاحظت انني مضطر على ادخال اسماء الاعمدة بالمقلوب اي من اليسار الى اليمين، حتى تنجح

كود :
With .Columns
                .Add("البلد", 100, HorizontalAlignment.Center)
                .Add("العمر", 100, HorizontalAlignment.Center)
                .Add("الاسم", 100, HorizontalAlignment.Center)
            End With

لم اعرف ماهي الخاصية التي تتحكم بارتفاع رأس الليست فيو، هل هي موجودة بالاداة وما اسم الخاصية
ارجو التوضيح

والف شكر

RE: الاداة ListView بميزة تغيير لون الــSelection - kafi2030 - 09-12-13

up ....

RE: الاداة ListView بميزة تغيير لون الــSelection - kafi2030 - 19-12-13

السلام عليكم

قمت باضافة
1- اداة listview
2- اداة ab_listview

ووضعت الاكواد المناسبة المتشابهة لتحميل نفس البيانات على كلا الاداتين، من اجل المقارنة بينهما

مالاحظته اخي الكريم وبكل وضوح
ان الاداة ab_listview لا تدعم الخاصية العربية

ارجو تطوير الاداة ab_listview
بحيث توافق اللغة العربية

والف الف شكر