• Home
 · 
• Graphics
 · 
• Extract the Red, Green, and Blue color values from a Long color ID (like those returned from the Po

Extract the Red, Green, and Blue color values from a Long color ID (like those returned from the Po

Extract the Red, Green, and Blue color values from a Long color ID (like those returned from the Point method)

API Declarations


gcRed = 1
gcBlue = 2
gcGreen = 3
End Enum



Rate Extract the Red, Green, and Blue color values from a Long color ID (like those returned from the Po

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    Dim strColor As String
    Select Case ColorPart
        Case gcRed
            strColor = Right$("000000" & Hex$(Color), 6)
            GetRGBColor = Val("&h" & Right$(strColor, 2))
        Case gcBlue
            strColor = Right$("000000" & Hex$(Color), 6)
            GetRGBColor = Val("&h" & Left$(strColor, 2))
        Case gcGreen
            strColor = Right$("000000" & Hex$(Color), 6)
            GetRGBColor = Val("&h" & Mid$(strColor, 3, 2))
    End Select
End Function