Как получить RGB из значения с типом Long

[XairOn]

Здравствуйте, у меня такой вопрос: в моей программе у пользователя есть возможность выбрать цвет (неважно чего), нажав на соответсвующую кнопку открывается окно выбора цвета (CommonDialg, ShowColor) после нажатия на кнопку OK в Color возвращается значение цвета типа Long, а мне нужно из этого значения получить его представление в RGB... как это сделать???

[GSerg]

Как из Long получить Long? Это очень сложный вопрос... Не знаю

[Amed]

Код: Выделить всё

Dim c As Long, r As Long, g As Long, b As Long

c = RGB(255, 155, 255)

r = c \ 65536
g = (c - r * 65536) \ 256
b = (c - r * 65536) - g * 256

MsgBox r & " " & g & " " & b


[XairOn]

2 GSerg > Очень смешно... ну неправильно выразился... нужно было спросить, как из этого значения выделить каждую составляющую цветов RGB, но на этот вопрос мне уже ответил Amed, за что ему большое спасибо!!!

[vvs_adm]

Код: Выделить всё


Red = Color Mod &HFF
Green = (Color \ &H100) Mod &HFF
Blue = (Color \ &H10000) Mod &HFF

А так не лучше?