没有合适的资源?快使用搜索试试~ 我知道了~
首页字符串类型颜色转换为Color函数
字符串类型颜色转换为Color函数

图形处理过程中保存Color类型到数据库,如果选择字符串的方式保存,Color.tostring,在需要读取的时候可以通过自己写的小函数来进行转换。 Function GetColor(Color字符串) as Color 字符串转换为Color类型
资源详情
资源评论
资源推荐

“Color [A=255, R=0, G=0, B=0]”
Public Function getcolor(ByVal colorstring As String) As Color
Dim resultcolor As Color '"Color [A=255, R=210,
G=10, B=9]"
Dim i, r, g, b As Integer
Dim forestr, strr, strg, strb As String
For i = 0 To colorstring.Length - 1
Select Case colorstring.Chars(i)
Case "R"
r = i
Case "G"
g = i
Case "B"
b = i
End Select
Next
strr = Mid(colorstring, r + 3, g - r - 1 - 3)
strg = Mid(colorstring, g + 3, b - g - 1 - 3)
strb = Mid(colorstring, b + 3, colorstring.Length - 1 - b - 1 -
1)
r = Val(strr)
g = Val(strg)
b = Val(strb)
resultcolor = Color.FromArgb(r, g, b)
Return resultcolor
End Function


















安全验证
文档复制为VIP权益,开通VIP直接复制

评论3