ROSTAM2
جمعه 14 مهر 1402, 08:36 صبح
در این ویدئوی آموزشی به FlowLayoutPanel آیتم های سفارشی رنگ با رویداد سفارشی اضافه شده که برای استفاده از آیتم ها و بکارگیری رویدادشون توضیح داده شده....
https://aparat.com/v/U3gxo154992
Dim Box As ColorBox
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
For Each Prop As PropertyInfo In GetType(Brushes).GetProperties()
If Prop.GetValue(Prop, New Object() {}) Is Brushes.Transparent Then Continue For
Box = New ColorBox
Box.Color = Color.FromName(Prop.Name)
AddHandler Box.ButtonClicked, AddressOf ButtonClicked
Me.FlowLayoutPanel1.Controls.Add(Box)
Next
End Sub
https://aparat.com/v/U3gxo154992
Dim Box As ColorBox
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
For Each Prop As PropertyInfo In GetType(Brushes).GetProperties()
If Prop.GetValue(Prop, New Object() {}) Is Brushes.Transparent Then Continue For
Box = New ColorBox
Box.Color = Color.FromName(Prop.Name)
AddHandler Box.ButtonClicked, AddressOf ButtonClicked
Me.FlowLayoutPanel1.Controls.Add(Box)
Next
End Sub