很简单，如何把形如&H00FEA821&分解成R=?G=?B=?,解决后立即给分，在线1小时。

Question

如体

Answer 1

偶以前的取色则是用forntpag直接取色，调色版上有转换的。只是进制转换问题

Answer 2

r = &H00FEA821 and &HFF&
g = (&H00FEA821 and &HFF00&)\&H100&
b = (&H00FEA821 and &Hff0000&)\&H10000&

Answer 3

以十六进制数来指定色彩，方式为： &HBBGGRR&      BB是指定蓝色的部分，GG是指绿色，RR则为指定红色。
      每个部分都是两位从 00 到 FF 的十六进制数。中间值为 80。
      因此，以下的数值将指定灰色，它属于三种色彩的中间部分：&H808080&上述二种色彩表示方式对应如下：色彩常数 值 中文描述 英文描述 色块样板 
vbRed &H0000FF& 红色 Red  
vbGreen &H00FF00& 绿色 Green  
vbBlue &HFF0000& 蓝色 Blue  
vbBlack &H000000& 黑色 Black 　 
vbYellow &H00FFFF& 黄色 (红+绿) Yellow  
vbMagenta &HFF00FF& 洋红色 (红+蓝) Magenta  
Cyan &HFFFF00& 青绿色 (绿+蓝) Cyan  
vbWhite &HFFFFFF& 白色 White
下面给你段参考代码Option Explicit
Private Sub ReturnRGB(ByVal lngColor As Long, intRed As Integer, intGreen As Integer, intBlue As Integer)
    intRed = lngColor Mod 256
    intGreen = (lngColor \ 256) Mod 256
    intBlue = lngColor \ 256 \ 256
End SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim lngColor                        As Long             ' 颜色值
    Dim intRed                          As Integer          ' 红色值
    Dim intGreen                        As Integer          ' 绿色值
    Dim intBlue                         As Integer          ' 蓝色值
    lblComponents.Caption = "&&H" & Format(Hex(Me.Point(X, Y)), "0") & "&&"
    lngColor = Me.Point(X, Y)
    ReturnRGB lngColor, intRed, intGreen, intBlue
    lblColor.Caption = Format(lngColor, "0")
    lblColor_R.Caption = Format(intRed)
    lblColor_G.Caption = Format(intGreen)
    lblColor_B.Caption = Format(intBlue)
    lblBackcolor_R.BackColor = RGB(intRed, 0, 0)
    lblBackcolor_G.BackColor = RGB(0, intGreen, 0)
    lblBackcolor_B.BackColor = RGB(0, 0, intBlue)
    lblBackcolor.BackColor = RGB(intRed, intGreen, intBlue)
End SubPrivate Sub Form_Paint()
    Me.Cls
    '制作样板色块
    Me.Print ""
    Me.ForeColor = &H0&
    Me.Print "  测试色块"
    Me.ForeColor = &HFF&
    Me.Print "      红●"
    Me.ForeColor = &HFF00&
    Me.Print "      绿●"
    Me.ForeColor = &HFF0000
    Me.Print "      蓝●"
    Me.ForeColor = &H0&
    Me.Print "      黑●"
    Me.ForeColor = &HFFFF&
    Me.Print "      黄●"
    Me.ForeColor = &HFF00FF
    Me.Print "  洋红●"
    Me.ForeColor = &HFFFF00
    Me.Print "  青绿●"
    Me.ForeColor = &HFFFFFF
    Me.Print "      白●"
End Sub

Answer 4

十六进制转十进制我知道&H00FFFFFF&这种东西
如果前边是H00的话把后边的6位倒过来2位一组就是RGB,
如果是H*0的我就不知道怎么转了