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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية ترقيم تلقائي ريبورت لعمود واحد عمور2016 5 225 11-01-21, 11:07 AM
آخر رد: عمور2016
  [VB.NET] كيف يمكنني إعداد ترقيم تلقائي ويتجدد الترقيم في كل يوم Osama_NY 6 356 10-12-20, 09:33 PM
آخر رد: قناص المدينة
  [VB.NET] ما الأداة الأخف لتصميم أشكال هندسية Button أم Label sniperjawadino 4 240 06-12-20, 03:51 PM
آخر رد: Anas Mahmoud
  مساعدة في كود انشاء الـ Button VB.NET 23 6,248 04-12-20, 11:52 PM
آخر رد: عبدالكريم رشدان
  ازاي اعمل تثبيت تلقائي اليوم السابع 0 156 14-11-20, 02:53 AM
آخر رد: اليوم السابع
  تغيير نص التكست بوكس في كريستال ريبورت Mohammed Nafa 0 256 27-10-20, 08:56 PM
آخر رد: Mohammed Nafa
  اضافة button في مكان محدد علي قورم atefkhalf2004 9 737 05-10-20, 10:08 AM
آخر رد: atefkhalf2004
  [سؤال] ممكن كود فتح موقع على انترنت عند فتح الاداة تلقائي jam3h 2 318 24-09-20, 08:01 PM
آخر رد: jam3h
  [سؤال] تغيير خط ليبال من داخل مجلد السورس عبد الهادي بهاب 9 752 28-08-20, 08:50 AM
آخر رد: Anas Mahmoud
  طلب مساعدة في تغيير كلمة المرور resali 6 608 12-08-20, 02:33 AM
آخر رد: resali

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


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