从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

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

Answer 2

您想要获取属性的值，而不是属性的类型。而不是：

.BrushValue = GetType(p)

使用：

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