以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求字符型转换为brush类型的代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=79484)
--  作者：百灵
--  发布时间：2016/1/2 21:49:00
--  求字符型转换为brush类型的代码
求字符型转换为brush类型的代码
--  作者：有点酸
--  发布时间：2016/1/3 8:57:00
--  

Dim s As String = "255,255,192,203"
Dim vs() As String = s.split(","c)
Dim br1 As Brush = New SolidBrush(Color.FromARGB(cint(vs(0)),cint(vs(1)),cint(vs(2)),cint(vs(3))))

 

 

或：

 

Dim c As Color
Dim converter As System.ComponentModel.TypeConverter =  System.ComponentModel.TypeDescriptor.GetConverter(c)
c = converter.ConvertFromString("Green")
Dim b As New SolidBrush(c)

 

 
--  作者：百灵
--  发布时间：2016/1/3 11:38:00
--  
太给力了