以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  问个颜色的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95495)
--  作者：blackzhu
--  发布时间：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 存到表里面没有转成功,用的是字符型格式,应该怎么写?
--  作者：有点蓝
--  发布时间：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
--  发布时间：2017/1/21 17:24:00
--  
明白了 
--  作者：小马甲
--  发布时间：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 )