تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تغيير لون button تلقائي
#1
السلام عليكم 

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


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


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة: ابو روضة
#2
(08-12-20, 11:20 PM)عبدالكريم رشدان كتب : السلام عليكم 

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


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

اين الكود الناجح ليتم معرفه مكان تغيير اللون فيه مع تحديد شرط التغيير ولون الكتابه ام لون الخلفيه؟
الرد
تم الشكر بواسطة: ابو روضة
#3
(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 تقوم بتوليد الازرار والكود ناحج لكن احتاج الي تغيير لون كل زر علي حدا 


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

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


الملفات المرفقة
.rar   WAp_Btn.rar (الحجم : 69.26 ك ب / التحميلات : 29)
الرد
تم الشكر بواسطة: ابو روضة
#4
(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
الرد
تم الشكر بواسطة: ابو روضة
#5
(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

هذا الكود يجعل خلفية الازرار نفس اللون انا اجتاج الي كود يجعل تعدد بالالوان وليس لون واحد
الرد
تم الشكر بواسطة: ابو روضة , مصمم هاوي
#6
(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

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

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

اذا اردت الوان عشوائيه بناء على المرفق جرب هذا
كود :
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
الرد
#7
(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
بارك الله فيك ومشكور باش مهندس
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] كود اذا لم يقم بتسجيل الدخول خلال 3 دقائق فانه سيتم الخروج من البرنامج بشكل تلقائي Rasha Hasanain 1 73 , 04:31 PM
آخر رد: messry
  طريقة لفتح نوافذ مبيعات مختلفة في نفس الوقت وكل فاتورة لها رقم تلقائي tfarejdz 1 82 15-04-21, 07:48 PM
آخر رد: messry
  [سؤال] اعادة ترتيب الصفوف في ليست فيو دون تغيير العمود الاول asmarsou 2 260 02-04-21, 09:40 AM
آخر رد: asmarsou
  [سؤال] BackgroundImage تغيير لزر sayyad 1 193 03-03-21, 01:50 AM
آخر رد: عبد الهادي بهاب
  [VB.NET] اغلاق زر Button ahmed.zaki 5 291 02-03-21, 03:04 AM
آخر رد: ahmed.zaki
  سؤال حول Button ahssan 3 302 28-02-21, 10:26 PM
آخر رد: ابراهيم ايبو
  [VB.NET] تفعيل زر button كل سنة alim54 2 275 27-02-21, 06:27 PM
آخر رد: alim54
  [VB.NET] الكود الخاص ب بتعديل قاعدة البيانات عند تغيير ال Datagridview mmaalmesry 5 407 30-01-21, 10:15 AM
آخر رد: سعود
  اضافة button في مكان محدد علي قورم atefkhalf2004 10 1,024 28-01-21, 03:58 PM
آخر رد: mbk2006
  كيفية ترقيم تلقائي ريبورت لعمود واحد عمور2016 5 507 11-01-21, 11:07 AM
آخر رد: عمور2016

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم