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群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
- 【Access定时打开查询】A...(08.19)
- Access生成固定数量的记录...(08.13)
- Access怎样才能实现日期时...(08.12)
- Access利用导航窗体控件对...(08.03)
学习心得
最新文章
- Access表中的字段名、字段标题...(09.19)
- Access快速开发平台--更改“...(09.18)
- 【中秋及国庆优惠】Access培训...(09.15)
- Access如何将日期型的数值转换...(09.14)
- 英文输入法输入数据中存在单引号引起...(09.11)
- 【Access选项卡示例】Acce...(09.09)
- 让Access光标停留在指定的控件...(09.07)
- 关于Access查询条件里使用通配...(09.06)
- Access报表偷懒制作法--Ac...(09.05)
- Access快速开发平台--窗体数...(09.04)