اضافه کردن رنگ ها در آیتم های سفارشی به FlowLayoutPanel

در این ویدئوی آموزشی به FlowLayoutPanel آیتم های سفارشی رنگ با رویداد سفارشی اضافه شده که برای استفاده از آیتم ها و بکارگیری رویدادشون توضیح داده شده....

https://aparat.com/v/U3gxo

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