类型转换

[CLICK人生]

Dim getvalue As String= "Color.SteelBlue"
Public Sys_Color_Set As Color

Sys_Color_Set = CType(getvalue, Color) '类型转换有错误

请问应如何转换？

[申江渔夫]

应该是RGB格式的才可以转吧。

[hzybc]

Dim getvalue As Color = Color.SteelBlue
Dim Sys_Color_Set As Color
Sys_Color_Set = getvalue

[兔子-顾问]

Dim getvalue As String= "Color.SteelBlue"
Public Sys_Color_Set As Color 
Sys_Color_Set = Color.FromKnownColor(getvalue)

[CLICK人生]

SteelBlue是从ComboBox1中选取的； Dim getvalue As String= "Color."+ ComboBox1.text.trim.tostring Public Sys_Color_Set As Color Sys_Color_Set = CType(getvalue, Color) '转换有错误

[CLICK人生]

引用 2 楼 hzybc 的回复:

Dim getvalue As Color = Color.SteelBlue
Dim Sys_Color_Set As Color
Sys_Color_Set = getvalue

这样转也不行： 从字符串“Color.MidnightBlue”到类型“Integer”的转换无效。