10-12-20, 01:23 AM (آخر تعديل لهذه المشاركة : 10-12-20, 01:52 AM {2} بواسطة 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 كتب :
(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
(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