انتخاب رنگ از بین آیتم های یک ToolStripMenuItem

[ROSTAM2]

در این آموزش رنگ ها از کلاس Brush به آیتم های DropDown از یک ToolStripMenuItem اضافه می شه و رنگ هر Brush بصورت دایره ای برای هر آیتم ترسیم می شه و با انتخاب آیتم رنگ زمینه Form تغییر می کنه ....

https://aparat.com/v/U9j6V (https://aparat.com/v/U9j6V)

155009 (https://aparat.com/v/U9j6V)

Dim Img As Image
Dim B As Brush
With Me.ChooseColorToolStripMenuItem
For Each P As PropertyInfo In GetType(Brushes).GetProperties
Img = New Bitmap(16, 16)
Dim g As Graphics = Graphics.FromImage(Img)
B = P.GetValue(P, New Object() {})
g.FillEllipse(B, 0, 0, 16, 16)
With .DropDownItems.Add(P.Name, Img)
.Tag = B
End With
Next
End With