كيفية تغيير لون العنصر المحدد ضمن الليست فيو ؟

myListView.Items[0].UseItemStyleForSubItems = false

myListView.Items[0].SubItems[1].ForeColor = Color.Red

في اي حدث نضع الاكواد التي تفضلت بها اخي الكريم

سؤال غريب .... انت حضرتك عاوز لون Item يتغير امتى ؟

السلام عليكم

انا لا اريد تغيير لون ال item

ولكن ما اريده هو تغيير لون الشريط ( السماوي) الذي يتحرك، على عناصر الليست فيو

لو اطلعت على الصورة او قمت بتشغيل المثال .......... فسوف يتضح لك بسهولة مغزى سؤالي

ارجو من الاخوة الكرام المساعدة في ايجاد حل ؟

والسلام عليكم

طيب انت جربت الكود ده :

[ltr]For Each lvi As ListViewItem In ListView1.Items
lvi.ForeColor = Color.Red
lvi.ForeColor = Color.Blue
Next[/ltr]

؟

فكرة رائعة .. وإليك الحل .. تابع الصور القادمة ..

الكود كاملاً :

Private Sub ListBox1_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles ListBox1.DrawItem
        e.DrawBackground()
        If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
            e.Graphics.FillRectangle(Brushes.Red, e.Bounds)
        End If
        Using b As New SolidBrush(e.ForeColor)
            e.Graphics.DrawString(ListBox1.GetItemText(ListBox1.Items(e.Index)), e.Font, b, e.Bounds)
        End Using
        e.DrawFocusRectangle()
    End Sub

تحياتي  ^_^ 

التجربة ..

الف الف شكر

اخي bahbah

على اجابتك وشرحك الاكثر من رائع
بارك الله فيك

ولكن انا ما اريده هو تغيير العنصر المحدد لليست فيو وليس لليست بوكس

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

e.DrawBackground()
        If e.Item.Selected = True Then
            e.Graphics.FillRectangle(Brushes.Yellow, e.Bounds)
            e.DrawText(TextFormatFlags.TextBoxControl)
        Else
            e.Graphics.FillRectangle(Brushes.White, e.Bounds)
            e.DrawText(TextFormatFlags.TextBoxControl)
        End If


        Using b As New SolidBrush(e.ForeColor)
            e.Graphics.DrawString(ListView1.GetItemText(ListView1.Items(e.Index)), e.Font, b, e.Bounds)
        End Using
        e.DrawFocusRectangle()

الا ان الامر لم ينجح

ارجو رجاء حار، نطراً لاهمية الموضوع بالنسبة لي ايجاد حل لتلك المشكلة العويصة

والف الف شكر

WindowsApplication5.rar

في المرفقات مثال بسيط + لا يرسم أسماء الأعمدة بشكل جيد

وتستطيع أن ترسمها جيداً بالنظر إلى هذا الموضوع : http://msdn.microsoft.com/en-us/library/system.windows.forms.listview.ownerdraw(v=vs.110).aspx

تحياتي :)

WindowsApplication2.rar

الف شكر

اخي bahbah

على تواصلك معي

ونظرا لاهمية الموضوع القصوى بالنسبة لي، حيث صار لي فترة طويلة وانا ابحث بالمنتديات عن حل

وبما ان ما تفضلت به، فيه مشكلة من جهة الرأسية

فخطر ببالي حل للتغلب على رأس الليست فيو ( مكان المشكلة) بالغاء ترويسة الليست فيو، والاستعاضة عن برسمها عن طريق وضع عدة ليبلات ووضع التسميات بها

قمت بوضع 2  listview على ذات النموذج

1- الاولى التي باعلى النموذج، ووضعت الاكواد التي تفضلت بها، وقمت بتعبئة البيانات اليها يدويا

2- الثانية التي باسفل النموذج، ايضا وضعت الاكواد التي تفضلت بها حضرتك، ولكن تم تعبئة البيانات بها برمجيا ( عن طريق الاتصال بقاعدة البيانات)

ما لاحظته على الليست فيو الثانية ( والتي سوف تكون اساس لمنطلق العمل مستقبلا ان شاء الله) وجود مشكلة تتمثل، في حال اقتراب الماوس من فوق عناصر تلك الليست فيو، تختفي العناصر، ولا تظهر الى ان اقوم بالضغط على الليست فيو.... عندئد يظهر عنصر عنصر من تلك القيم

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

 حيث ان الحل اقترب كثيرا بادن الله

والف شكر

Data_Kafi.zip

Kafi.rar

السلام عليكم ..

هل يمكنك إعادة رفع الملفات .. لا أستطيع تحميلها :) ..

تم رفع الملفات

هل تتذكر الحدث DrawColumnHeader ..

إحذف الكود الذي بداخله وضع فقط هذا الكود :

e.DrawText()

وأعد كتابة الأعمدة التي حذفتها .. وأخبرني بالنتائج ..

تحياتي :)

شكرا اخي على تواصلك

لم يتغير شي بعد وضع الكود الاخير الذي تفضلت به حضرتك

على فكرة العناصر تظهر محملة ضمن الليست فيو، عند فتح النموذج

بعد ذلك، تختفي العناصر عنصر عنصر، كما اقترب مؤشر الماوس منها

بعد ذلك عن الضغط على الليست فيو، تبدأ العناصر بالظهور عنصر عنصر ............وتثبت ولا تعود تختفي

ارجو ان تكون صورة المشكلة قد اتضحت اكثر

والف شكر

المشكلة في الملفات التي أرفقتها .. أنه هناك أخطاء كثيرة تظهر لي :)

سأرى ما المشكلة ..

تحياتي :)

تفضل مثال بسيط .. وأرجوا أن يعجبك ..

تحياتي  ^_^

DataBase.rar

أعجبني الموضوع .. فصممت تصميماً آخر ..

وهذا هو الكود :

    Private Sub ListView1_DrawColumnHeader(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawListViewColumnHeaderEventArgs) Handles ListView1.DrawColumnHeader
        e.DrawBackground()
        e.Graphics.FillRectangle(Brushes.IndianRed, e.Bounds)
        e.Graphics.FillRectangle(Brushes.Black, e.Bounds.X, e.Bounds.Y, 2, e.Bounds.Height)
        e.DrawText()
    End Sub

    Private Sub ListView1_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawListViewItemEventArgs) Handles ListView1.DrawItem
        e.DrawBackground()
        If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
            e.Graphics.FillRectangle(Brushes.DarkOrange, e.Bounds)
        Else
            e.Graphics.FillRectangle(Brushes.DarkRed, e.Bounds)
        End If
        e.Graphics.FillRectangle(Brushes.Black, e.Bounds.X, e.Bounds.Y, 2, e.Bounds.Height)
        e.DrawFocusRectangle()
    End Sub

    Private Sub ListView1_DrawSubItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawListViewSubItemEventArgs) Handles ListView1.DrawSubItem
        e.DrawText()
        e.Graphics.FillRectangle(Brushes.Black, e.Bounds.X, e.Bounds.Y, 2, e.Bounds.Height)
    End Sub

تحياتي  ^_^ 

اخي / bahbah

شكرا على تواصلك معي واستمرارك بمحاولة ايجاد حل للمشكلة العويصة

بالنسبة للمثال الذي ارفقته، فلم استطع ان اشغله واعطى رسالة خطأ......اظن سببها عدم ارفاق ملف قاعدة البيانات مع المثال

ثانيا : الاكواد الجديدة التي تفضلت بها حضرتك من جديد، تم وضعها من جديد بمثالي، ولكن المشكلة ما زالت قائمة، عند تقريب مؤشر الماوس تختفي العناصر..........ولا تعود الا بعد الضغط على الليست فيو....وفي كل ضغطة من الماوس يعود صف

ارجو ايجاد حل

والف شكر

نعم كان سببها عدم إرفاق قاعدة البيانات ..

في المرفقات البرنامج الجديد ..

تحياتي  ^_^

DataBase.rar

شكرا اخي

bahbah

 على اجابتك

تم تشغيل المثال الدي ارفقته، وقمت بتعريب الاسماء العائدة لرؤوس الاعمدة، وجعلت الاتجاه على اليمين

كما هو المفروض ان يكون، لان برامجنا سوف تكون برامج عربية

انظر اخي الكريم، ماذا حصل والى عدم وجود توافق في حال التعريب

لا اعرف اخي الكريم، فيما اذا كنت قد استطعت تشغيل المثال الذي ارفقته ام لا

لانني بانتظار معرفة السبب الذي يجعل الاسطر في الليست فيو تختفي عند اقتراب حركة الماوس منها.......لانني بدأت اشعر بالاحباط .......وان لاحل على مايبدو لمشكلة تغيير اللون للعنصر الفعال في ظل استخدام واجهة عربية

ارجو التوضيح

السلام عليكم ..

الملفات الذي أرفقتها لم أستطع فتحها ..

ولكن ما المشكلة في اللغة العربية .. قمت بنفس إعدادات العربية .. ولكن ما زالت تعمل .. لم أرى أي خلل..

تحياتي :)

وعليكم السلام

المثال الدي ارسلته معمول على فيجوال بيسك 12

ومحتاج ربط مع قاعدة البيانات حتى يعمل

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

ارجو ان تحاول ان تجد طريقة لفتح المثال الذي ارسلته، حتى تتأكد من كلامي

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