18-08-13, 01:35 PM
السلام عليكم ورحمة الله وبركاته
احببت ان اقوم بإنشاء هذا الموضوع الممتع الذي لايعرفه كثير من المبرمجين وهو عبارة عن اضافة جميع الالوان الى ListView او كومبوبوكس او ليست بوكس حسب ماتحب ثم تغير لون خلفية الفورم منها.
[ATTACH=CONFIG]3802[/ATTACH]
اخترت في مثالي الاداةListView حتى تظهر الوان النصوص بشكلها ايضآ
بعد اضاة الليست فيو..
اولآ نقوم بوضع هذا الكود في الحدث Form1_Load
الكود السابق يقوم بوضع جميع اسماء الالوان الى ListView بلونها طبعآ كما واضح
ثم نكتب الكود التالي في الحدث ListView1_SelectedIndexChanged
وهو لتغيير خلفية الفورم حسب اللون المختار
اتمنى ان اكون قد افدتكم
والسلام عليكم ورحمة الله وبركاته
احببت ان اقوم بإنشاء هذا الموضوع الممتع الذي لايعرفه كثير من المبرمجين وهو عبارة عن اضافة جميع الالوان الى 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)
وهو لتغيير خلفية الفورم حسب اللون المختار
اتمنى ان اكون قد افدتكم
والسلام عليكم ورحمة الله وبركاته