没有合适的资源?快使用搜索试试~ 我知道了~
首页字符串类型颜色转换为Color函数
字符串类型颜色转换为Color函数
5星 · 超过95%的资源 需积分: 49 34 下载量 91 浏览量
更新于2023-03-16
评论
收藏 16KB DOCX 举报
图形处理过程中保存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
星辰大海--37037361
- 粉丝: 0
- 资源: 3
上传资源 快速赚钱
- 我的内容管理 收起
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
会员权益专享
最新资源
- zigbee-cluster-library-specification
- JSBSim Reference Manual
- c++校园超市商品信息管理系统课程设计说明书(含源代码) (2).pdf
- 建筑供配电系统相关课件.pptx
- 企业管理规章制度及管理模式.doc
- vb打开摄像头.doc
- 云计算-可信计算中认证协议改进方案.pdf
- [详细完整版]单片机编程4.ppt
- c语言常用算法.pdf
- c++经典程序代码大全.pdf
- 单片机数字时钟资料.doc
- 11项目管理前沿1.0.pptx
- 基于ssm的“魅力”繁峙宣传网站的设计与实现论文.doc
- 智慧交通综合解决方案.pptx
- 建筑防潮设计-PowerPointPresentati.pptx
- SPC统计过程控制程序.pptx
资源上传下载、课程学习等过程中有任何疑问或建议,欢迎提出宝贵意见哦~我们会及时处理!
点击此处反馈
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功
评论3