| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [分享]字符串(颜色名称/十六进制) 转Color类型 (http://foxtable.com/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 |