[3booody]

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

احببت ان اقوم بإنشاء هذا الموضوع الممتع الذي لايعرفه كثير من المبرمجين وهو عبارة عن اضافة جميع الالوان الى ListView او كومبوبوكس او ليست بوكس حسب ماتحب ثم تغير لون خلفية الفورم منها.

[ATTACH=CONFIG]3802[/ATTACH]

اخترت في مثالي الاداةListView حتى تظهر الوان النصوص بشكلها ايضآ
بعد اضاة الليست فيو..

اولآ نقوم بوضع هذا الكود في الحدث Form1_Load

كود :

For KC As KnownColor = KnownColor.ActiveBorder To KnownColor.YellowGreen
            If Not KC.ToString = "Transparent" Then
                ListView1.Items.Add(KC.ToString).ForeColor = Color.FromName(KC.ToString)
            End If
        Next

الكود السابق يقوم بوضع جميع اسماء الالوان الى ListView بلونها طبعآ كما واضح

ثم نكتب الكود التالي في الحدث ListView1_SelectedIndexChanged

كود :

Me.BackColor = Color.FromName(ListView1.FocusedItem.Text)

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