Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共2 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:[分享]字符串(颜色名称/十六进制) 转Color类型

1楼
zhutangxin 发表于:2024/10/6 16:11:00

' 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
2楼
有点蓝 发表于:2024/10/7 9:54:00
无需这么复杂:

Dim c As Color = ColorTranslator.FromHtml("#32CD32") '十六进制颜色
dim s as string = ColorTranslator.ToHtml(c) '颜色转十六进制
共2 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .01563 s, 2 queries.