求教，如何在VB中根据16进制的颜色值得到该颜色的RGB值？

[mycareer2000]

求教，如何在VB中根据16进制的颜色值得到该颜色的RGB值？

[mycareer2000]

谢谢fq1，问题已经解决。

[fq1]

那就给分吧?:)

[Red_Ice]

作者：唐宏冰
主页：http://jmtk.xiloo.com
作品：决战单词——让我们告别背单词的苦恼！
邮件：[e-mail]


一、在C或Pascal中的实现方法。
因为C语言和Pascal语言能支持计算机比较底层的操作，提供了位运算和指针，所以实现起来相当的容易和高效。
1、用位运算来实现。
我们只要通过位运算分别取出32位色彩值的第一字节、第二字节和第三字节即可。Red、Green和Blue所分别对应这三个字节。例如C语言中可以是这样的：

/*定义位运算所需的掩码*/
#define MASK_R 0xFF
#define MASK_G 0xFF00
#define MASK_B 0xFF0000
/*函数的第一个形参是32位长整型色彩值，其余的参数分别返回红、绿、蓝的色彩值。*/
void GetRGB(long int color,char *r,char *g,char *b)
{
*r=color & MASK_R; //取出第一字节给红色
*g=(color & MASK_G)>>8; //取出第二字节给绿色
*b=(color & MASK_B)>>16;//取出第三字节给蓝色

}

2、用指针运算来实现。使指针指向不同的内存空间来获得红绿蓝的色彩值。
void GetRGB(long int color,char *r,char *g,char *b)
{
long int *pcolor;
char * ptemp; //声明一个字符指针，只能指向一个字节。
pcolor=&color;
ptemp=(char *)pcolor; //临时指针指向长整型色彩值的第一位
*r=*ptemp; //第一位即为红色
*g=*(++ptemp); //指向第二个字节，得到绿色
*b=*(++ptemp); //指向第三个字节，得到蓝色
}
二、在Basic这类没有指针、位运算的语言中的实现。
由于Basic语言的先天不足，没有C语言和Pascal语言的指针和位运算，实现起来好像比较因难，最重要的是效率低下。例如，常常是这样：
'过程的第一个参数为颜色总量，其它三个参数返回红绿蓝的值。
Private Sub GetRGB(lColor As Long, bRed As Byte,bGreen As Byte, bBlue As Byte)
bRed = lColor Mod 256
bBlue = lColor \ 65536
bGreen = (lColor And 65535) \ 256

End Sub

那么，有没有效率高、好理解的方法呢？当然有！我们需要一个Windows API函数来帮忙，它的原形是：
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
该函数的作用是把一段内存中的数据拷贝到另一段内存中，Source表示源，Destination表示目标，Length表示拷贝的字节长度。我们由这个函数自然会想到，何不把一个32位色彩值拷贝到一个由4个Byte构成的结构中呢，那么这4个Byte的前3个变量就分别是Red、Green和Blue的值了。例如：
'首先定义一个由4个Byte变量构成的数据类型
Private Type Color32
bRed As Byte
bGreen As Byte
bBlue As Byte
bUnuse As Byte
End Type
Private Sub GetRGB(lColor As Long, bRed As Byte, bGreen As Byte, bBlue As Byte)
Dim TempColor32 As Color32

CopyMemory TempColor32, lColor, 4 '拷贝4个字节到结构中
With TempColor32
bRed = .bRed
bGreen = .bGreen
bBlue = .bBlue
End With

End Sub
用这种方法来实现，相当的直观，更符合思维习惯，执行的速度也更快些，何乐而不为呢？其实这种方法给了我们一个很好的启示，凡是那些需要从某种类型的变量中取出一部分值的操作都可向这样实现了。
本文中的C程序段在TC3.0下通过，Basic程序段在VB6.0下通过。

[jiniang]

将 16进制的颜色值没两位一拆，组成三个16进制数，再分别转化为十进制。

如白色：FFFFFF
FFFFFF -> FF,FF,FF -> 255,255,255
#FFFFF=RGB(255,255,255)

如黑色：000000
000000 -> 00,00,00-> 0,0,0
#000000=RGB(0,0,0)

如橙色：FF8000
FF8000 -> FF,80,00 -> 255,128,0
#FF8000=RGB(255,128,0)

[liangxuan1979]

16进制的颜色值應該為6位.
你先將他們拆份為三組.
如果是"ddfead",則拆成"dd","fe","ad".
然後分別將這三個值轉化成十進值 a,b,c.
然後用RGB(a,b,c)就得到你的顏色RGB值

[mycareer2000]

这我当然知道，我是说VB本身的Color之类的属性值，如按钮表面的值为&H8000000F&,如果转化其为RGB？

[liangxuan1979]

怎样将16进制数转化为10进制数
temp= "RF"
msgbox val("&H"+temp)

[liangxuan1979]

在VB中的色彩假設为：&H00ccbbaa&，那麼實際的顏色為#aabbcc.前三位不用,後面反過來.你試試

[mycareer2000]

不行的，VB中以&H80开头表示调用系统颜色，后面6位表示系统颜色的索引号，此时并非RGB模式，所以我才很想将其转换为RGB格式。

[fq1]

非系统颜色很好转,不多说。
只说说关键的取得系统颜色对应RGB值的方法:

'需一个command1,把command1的backcolor设为&H80开头的系统颜色
Private Declare Function GetSysColor Lib "user32" (ByVal nindex As Long) As Long

Private Sub Form_Load()
Dim a As Long
a = GetSysColor(Command1.BackColor - &H80000000)
Debug.Print Hex(Command1.BackColor)
End Sub

[fq1]

ft,错了!
倒数第二行应该是:
Debug.Print Hex(a)