vb/vba颜色和RGB颜色互转
时 间:2019-05-10 08:50:38
作 者:缪炜 ID:24010 城市:江阴
摘 要:vb/vba颜色和RGB颜色互转
正 文:
微软的东西就是要独特另行,很多东西都和其他人不一样。我不排斥个性,但这样会造成很多不必要的麻烦。
这个颜色也是如此。vb/vba中的颜色是一个10进制的数字,Long类型。
通常使用的Web颜色是十六进制表示,即RGB颜色。
例如,纯绿色:
vb/vba:65280
RGB颜色:00FF00
这个绿色在vb/vba中有被定义为常量(在vb/vba代码界面按F2,搜索vbGreen)
这里也可以看出vb/vba的颜色也可以用十六进制表示。无语的是,这个十六进制和RGB颜色的是十六进制不一样。
RGB颜色的以白色为例:FFFFFF。其中头两位FF是代表红色的值,中间两位是代表绿色,后两位是代表蓝色。也就是这六个数字分别是:红红绿绿蓝蓝。
vb/vba颜色十六进制表示方式实际上是它的10进制转化而成的。结果和RGB的顺序不一样,vb/vba的顺序是蓝蓝绿绿红红。红色和蓝色的位置和RGB颜色是相反的。
知道这个规律之后,就可以实现颜色转换了。
vb/vba颜色转RGB颜色代码:
Public Function Vba2RGB(lngVbaColor As Long) Dim strHexColor As String strHexColor = Hex(lngVbaColor) '转为十六进制' '补齐其他颜色值(凑够6位)' strHexColor = String(6 - Len(strHexColor), "0") & strHexColor Dim strR As String Dim strG As String Dim strB As String strR = Right(strHexColor, 2) '得到R颜色值' strG = Mid(strHexColor, 3, 2) '得到G颜色值' strB = Left(strHexColor, 2) '得到B颜色值' '调整位置,拼成RGB颜色' Vba2RGB = strR & strG & strB End Function
Public Function RGB2Vba(strRGBColor As String) Dim strR As String Dim strG As String Dim strB As String strR = Left(strRGBColor, 2) '得到R颜色值' strG = Mid(strRGBColor, 3, 2) '得到G颜色值' strB = Right(strRGBColor, 2) '得到B颜色值' '拼成VBA的颜色值' RGB2Vba = RGB(Val("&H" & strR), Val("&H" & strG), Val("&H" & strB)) End Function
附 件:
图 示:
Access软件网官方交流QQ群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access更新查询】更新查...(05.15)
- 【Access小作品】简单的待...(04.30)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
学习心得
最新文章
- 【Access更新查询】通过更新查...(05.20)
- 精美简单实用的系统面板_完善版(改...(05.18)
- Access提示方法成员未找到的解...(05.17)
- Access运行时错误-21472...(05.15)
- 【Access更新查询】更新查询如...(05.15)
- 日期不为空怎么写表达式?[字段名]...(05.14)
- 附件字段如何判断myPictrue...(05.13)
- Access链接表SQL SERV...(05.11)
- Access快速开发平台企业版--...(05.09)
- 新版铁路工程管理系统V2.0(05.08)