(08-12-20, 11:20 PM)عبدالكريم رشدان كتب : السلام عليكم 

لدي flowlaypanel تقوم بتوليد الازرار والكود ناحج لكن احتاج الي تغيير لون كل زر علي حدا 


مثال الصورة المرفقة

(09-12-20, 05:01 AM)muharam كتب :

(08-12-20, 11:20 PM)عبدالكريم رشدان كتب : السلام عليكم 

لدي flowlaypanel تقوم بتوليد الازرار والكود ناحج لكن احتاج الي تغيير لون كل زر علي حدا 


مثال الصورة المرفقة

اين الكود الناجح ليتم معرفه مكان تغيير اللون فيه مع تحديد شرط التغيير ولون الكتابه ام لون الخلفيه؟

(09-12-20, 05:01 AM)muharam كتب :

(08-12-20, 11:20 PM)عبدالكريم رشدان كتب : السلام عليكم 

لدي flowlaypanel تقوم بتوليد الازرار والكود ناحج لكن احتاج الي تغيير لون كل زر علي حدا 


مثال الصورة المرفقة

اين الكود الناجح ليتم معرفه مكان تغيير اللون فيه مع تحديد شرط التغيير ولون الكتابه ام لون الخلفيه؟

(10-12-20, 01:00 AM)عبدالكريم رشدان كتب :

(09-12-20, 05:01 AM)muharam كتب :

(08-12-20, 11:20 PM)عبدالكريم رشدان كتب : السلام عليكم 

لدي flowlaypanel تقوم بتوليد الازرار والكود ناحج لكن احتاج الي تغيير لون كل زر علي حدا 


مثال الصورة المرفقة

اين الكود الناجح ليتم معرفه مكان تغيير اللون فيه مع تحديد شرط التغيير ولون الكتابه ام لون الخلفيه؟

لم تحدد ما تريد تغيير لونه هل الخلفيه او الكتابه

سافترض انك تريد تغيير نو الخلفيه
اضف السطر تغيير التالي ضمن كود اضافه الزر

كود :

btn.Backcolor=color.Red

(10-12-20, 01:06 AM)muharam كتب :

(10-12-20, 01:00 AM)عبدالكريم رشدان كتب :

(09-12-20, 05:01 AM)muharam كتب :

(08-12-20, 11:20 PM)عبدالكريم رشدان كتب : السلام عليكم 

لدي flowlaypanel تقوم بتوليد الازرار والكود ناحج لكن احتاج الي تغيير لون كل زر علي حدا 


مثال الصورة المرفقة

اين الكود الناجح ليتم معرفه مكان تغيير اللون فيه مع تحديد شرط التغيير ولون الكتابه ام لون الخلفيه؟

لم تحدد ما تريد تغيير لونه هل الخلفيه او الكتابه

سافترض انك تريد تغيير نو الخلفيه
اضف السطر تغيير التالي ضمن كود اضافه الزر

كود :

btn.Backcolor=color.Red

---

ايضا ستحتاج اضافة حدث click
اضف السطر التالي ضمن كود اضافه الزر

كود :

AddHandler btn.click, Addressof btn_Click

وهذا كود الحدث

كود :

Private sub btn_Click(sender As object, e As Eventargs)
   dim btn As Button=sender
   Msgbox(btn.text)
End sub

(10-12-20, 01:20 AM)عبدالكريم رشدان كتب :

(10-12-20, 01:06 AM)muharam كتب :

(10-12-20, 01:00 AM)عبدالكريم رشدان كتب :

(09-12-20, 05:01 AM)muharam كتب :

(08-12-20, 11:20 PM)عبدالكريم رشدان كتب : السلام عليكم 

لدي flowlaypanel تقوم بتوليد الازرار والكود ناحج لكن احتاج الي تغيير لون كل زر علي حدا 


مثال الصورة المرفقة

اين الكود الناجح ليتم معرفه مكان تغيير اللون فيه مع تحديد شرط التغيير ولون الكتابه ام لون الخلفيه؟

لم تحدد ما تريد تغيير لونه هل الخلفيه او الكتابه

سافترض انك تريد تغيير نو الخلفيه
اضف السطر تغيير التالي ضمن كود اضافه الزر

كود :

btn.Backcolor=color.Red

---

ايضا ستحتاج اضافة حدث click
اضف السطر التالي ضمن كود اضافه الزر

كود :

AddHandler btn.click, Addressof btn_Click

وهذا كود الحدث

كود :

Private sub btn_Click(sender As object, e As Eventargs)
   dim btn As Button=sender
   Msgbox(btn.text)
End sub

هذا الكود يجعل خلفية الازرار نفس اللون انا اجتاج الي كود يجعل تعدد بالالوان وليس لون واحد

(10-12-20, 01:23 AM)muharam كتب :

(10-12-20, 01:20 AM)عبدالكريم رشدان كتب :

(10-12-20, 01:06 AM)muharam كتب :

(10-12-20, 01:00 AM)عبدالكريم رشدان كتب :

(09-12-20, 05:01 AM)muharam كتب : اين الكود الناجح ليتم معرفه مكان تغيير اللون فيه مع تحديد شرط التغيير ولون الكتابه ام لون الخلفيه؟

لم تحدد ما تريد تغيير لونه هل الخلفيه او الكتابه

سافترض انك تريد تغيير نو الخلفيه
اضف السطر تغيير التالي ضمن كود اضافه الزر

كود :

btn.Backcolor=color.Red

---

ايضا ستحتاج اضافة حدث click
اضف السطر التالي ضمن كود اضافه الزر

كود :

AddHandler btn.click, Addressof btn_Click

وهذا كود الحدث

كود :

Private sub btn_Click(sender As object, e As Eventargs)
   dim btn As Button=sender
   Msgbox(btn.text)
End sub

هذا الكود يجعل خلفية الازرار نفس اللون انا اجتاج الي كود يجعل تعدد بالالوان وليس لون واحد

لابد من وجود شرط تبني عليه اختيار اللون

---

اذا اردت الوان عشوائيه بناء على المرفق جرب هذا

كود :

Public Class Form1



   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim clrs() As Color = {Color.Red, Color.Green, Color.Blue, Color.Plum, Color.RosyBrown}

       Dim btn As New Button
       btn.Text = "Button" & FlowLayoutPanel1.Controls.Count + 1
       btn.Width = 50
       btn.Height = 50

       btn.BackColor = clrs(FlowLayoutPanel1.Controls.Count Mod clrs.Count)
       AddHandler btn.Click, AddressOf btn_Click

       FlowLayoutPanel1.Controls.Add(btn)


   End Sub

   Private Sub btn_Click(sender As Object, e As EventArgs)
       Dim btn As Button = sender
       MsgBox(btn.Text)
   End Sub

End Class