从System.Drawing.Brushes获取名称和类型的配对列表

Question

我想创建一个BrushInfo列表，该列表具有画笔名称及其来自System.Drawing.Brushes的类型的属性。类似于：

Dim brushList = GetType(Drawing.Brushes) _
                   .GetProperties.Select(Function(p) New BrushInfo With 
                        {.BrushName = p.Name, .BrushValue = GetType(p)})

上面的代码将为我提供笔刷的名称(p.Name)，但不会为我提供笔刷的类型(即System.Drawing.Brushes.AliceBlue)。如何获取笔刷类型？

Answer 1

您希望获取属性的值，而不是属性的类型。而不是：

.BrushValue = GetType(p)

使用：

.BrushValue = CType(p.GetValue(Nothing, Nothing), Brush)

Answer 2

Brush类型为Brush。Brush的名称只是因为它在Brushes中是该名称的属性。除了Brush之外，Brush本身没有更多的类型或名称。