以下是引用狐狸爸爸在2010-2-22 16:01:00的发言:
将下面的内容复制到全局代码:
Public Function GetBrushFromColorName(ByVal ColorName As String) As System.Drawing.Brush
Dim t As Type = GetType(Color)
Dim p As System.Reflection.PropertyInfo = t.GetProperty(ColorName)
Dim c As Color = p.GetValue(Nothing, Nothing)
Return New System.Drawing.SolidBrush(c)
End Function
以后就可以:
g.DrawString(gjdm,fnt1,GetBrushFromColorName(颜色名称),45,62)
好办法!不知道其它的枚举是否也可以如此?