通過「刷」

Question

我想所有的刷子的循環，這基本上是僞代碼，這將解釋什麼是我想要做的事：

For Each B in Brushes 
    'Something with Brushes 
End For 

刷是一種類型，但這樣我怎麼就能夠要做到這一點？

Answer 1

不使用反射：

Dim brushes = [Enum].GetValues(GetType(KnownColor)) _ 
    .Cast(Of KnownColor)() _ 
    .Where(Function(k) k >= KnownColor.Transparent AndAlso k < KnownColor.ButtonFace) _ '//Exclude system colors 
    .Select(Function(k) New SolidBrush(Color.FromKnownColor(k))) 

編輯（托馬斯評論）

爲了獲得顏色名稱（用於刷）

Dim brushColorNames = [Enum].GetValues(GetType(KnownColor)) _ 
    .Cast(Of KnownColor)() _ 
    .Where(Function(k) k >= KnownColor.Transparent AndAlso k < KnownColor.ButtonFace) _ '//Exclude system colors 
    .Select(Function(k) k.ToString()) 

Answer 2

你能做到這一點嗎？

dim brush as new Brush() 'needs a proper brush instance, not sure where there is one, so this line won't work 
Dim type As Type = GetType(System.Drawing.Brushes) 
Dim properties As PropertyInfo() = type.GetProperties(BindingFlags.Static) 
For Each [property] As PropertyInfo In properties 
    Console.WriteLine("{0} = {1}", [property].Name, [property].GetValue(brush, Nothing)) 
Next 

Answer 3

這取決於你想要用刷子做什麼。

For Each b in GetType(Brushes).GetProperties 
    Dim colorName = b.Name ' If you want color names (AliceBlue through YellowGreen) 
    Dim brushValue = b.GetValue(Nothing, Nothing) ' Gives you a Brush 
    Dim brushColor = brushValue.Color ' Gives you the hex color of the brush (AliceBlue = #FFF0F8FF) 
Next