问个颜色的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 问个颜色的问题

共有2138人关注过本帖树形打印复制链接主题：问个颜色的问题

blackzhu

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00

问个颜色的问题 发帖心情

Post By：2017/1/21 17:07:00 [只看该作者]

Dim clr As Color = Color.FromARGB(255,255,192,203)

Dim Val AS Integer = clr.ToARGB
Output.Show(Val)

这样我转换是没有问题,

但是我把 255,255,192,203 存到表里面没有转成功,用的是字符型格式,应该怎么写?

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110597 积分：562887 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/1/21 17:16:00 [只看该作者]

字符拆分后转换为数字

Dim s As String = "255,255,192,203"

Dim arr() As String = s.Split(",")

Dim clr As Color = Color.FromARGB(Cint(arr(0)),Cint(arr(1)),Cint(arr(2)),Cint(arr(3)))

Dim Val As Integer = clr.ToARGB

Output.Show(Val)

blackzhu

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2017/1/21 17:24:00 [只看该作者]

明白了

小马甲

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：83 积分：733 威望：0 精华：0 注册：2016/12/2 15:17:00

Post By：2017/1/21 22:25:00 [只看该作者]

颜色和字符串转换可以这样

Dim myColor As Color = Color.FromArgb(200,222,211,113)
'到文本
Dim converter As New ColorConverter
Dim colorAsString As String = converter.ConvertToString(myColor)
Output.show(colorAsString )
'到颜色
Dim co =ctype(converter.ConvertFromString(colorAsString),Color)
Output.show(co.a )

下一主题 >> << 上一主题

主题：问个颜色的问题