如何把CommonDialog.Color返回的值转换为RGB色的值

Question

http://www.freevbcode.com/code/color_func.zip

Answer 1

Private Sub Command1_Click()
    CommonDialog1.ShowColor
End SubPrivate Sub Command2_Click()
    Dim fColor As Long
    Dim cBlue As Long
    Dim cGreen As Long
    Dim cRed As Long
    fColor = CommonDialog1.Color
    cBlue = fColor \ 65536
    cGreen = (fColor - 65536 * cBlue) \ 256
    cRed = fColor - 65536 * cBlue - 256 * cGreen
    Debug.Print fColor, cBlue, cGreen, cRed
    
End Sub