以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [分享]字符串(颜色名称/十六进制) 转Color类型  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=193706)
--  作者：zhutangxin
--  发布时间：2024/10/6 16:11:00
--  [分享]字符串(颜色名称/十六进制) 转Color类型

\' 2024-10-6 将字符串(颜色名称/十六进制) 转Color类型

Dim colorName As String = Args(0) \' "#32CD32" , "red"

\' 创建 ColorConverter
Dim converter As System.ComponentModel.TypeConverter = System.ComponentModel.TypeDescriptor.GetConverter(GetType(Color))

\' 将颜色名称转换为 Color 对象
Dim clr As Color = CType(converter.ConvertFromString(colorName), Color)
Return clr
--  作者：有点蓝
--  发布时间：2024/10/7 9:54:00
--  
无需这么复杂：

Dim c As Color = ColorTranslator.FromHtml("#32CD32") \'十六进制转颜色
dim s as string = ColorTranslator.ToHtml(c) \'颜色转十六进制