تقييم الموضوع :
  • 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 ك ب / التحميلات : 35)
الرد }}}
تم الشكر بواسطة: ابو روضة
#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
بارك الله فيك ومشكور باش مهندس
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تغيير على كود الحفظ محمد خيري 6 147 منذ 27 دقيقة مضت
آخر رد: محمد خيري
  تغيير اسم حقل او تغيير نوع البيان atefkhalf2004 5 292 31-01-24, 04:09 PM
آخر رد: atefkhalf2004
  [سؤال] undo/redo button mohamed sabry 1 156 15-01-24, 11:33 AM
آخر رد: تركي الحلواني
  [سؤال] اريد تغيير اسم حقل ضمن جدول بقاعدة بيانات اكسس mh66 1 358 08-11-23, 08:16 AM
آخر رد: justforit
Star [VB.NET] كود لتوليد الارقام تلقائي في text box Raaf 5 619 08-11-23, 03:03 AM
آخر رد: VIP_YEMEN
  ممكن كود ترقيم تلقائي في الداتا غريد فيو المبرمج البسيط 16 10,576 08-11-23, 01:44 AM
آخر رد: الحزين اليماني
  [VB.NET] كيف يمكنني إعداد ترقيم تلقائي ويتجدد الترقيم في كل يوم Osama_NY 8 2,755 04-11-23, 01:42 PM
آخر رد: الحزين اليماني
  كود تغيير قيمة تكست بوكس فى تاريخ معين Ahmed.vb 2 906 11-10-23, 10:35 PM
آخر رد: aljzazy
Star [كود] اريد تزويد 45 دقيقة على DateTimePicker1 كل ضغطة Button Ameenh 1 347 01-09-23, 07:13 AM
آخر رد: Asem2
Star [كود] اريد تزويد 45 دقيقة على DateTimePicker1 كل ضغطة Button Ameenh 0 279 01-09-23, 05:56 AM
آخر رد: Ameenh

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


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