KB-13594: Obtendo combinação RGB a partir de um valor absoluto.

Descrição:

Como fazer para, a partir de um valor em decimal absoluto, retornar os valores RGB?

Solução:

Para encontrar a combinação RGB, é necessário utilizar scripts. O exemplo abaixo foi aplicado no evento Click de um botão:

Dim ColorValue, R, G, B
ColorValue = Screen.Item("Retangulo1").ForegroundColor
B = Int(ColorValue /
65536)
G = Int((ColorValue - 65536 * B) / 256)
R = ColorValue - (65536 *
B + 256 * G)
MsgBox "R = " & R & Chr(13) & "G = " & G
& Chr(13) & "B = " & B
Print Friendly, PDF & Email

Este artigo foi útil? Was this helpful?

Classificação média - Average rating 0 / 5. Count: 0

Leave a Reply

Your email address will not be published.Required fields are marked *