Функции, обратные RGB

[SHURUP]

Здраствуйте, в своих начинаниях столкнулся с проблемой:
в vb Есть функция RGB, которая дает код цвета по составляющим, а есть как из этого числа получить отдельно Red,Green,Blue?
Да и хорошо было бы Контрасность, Яркость, Цветность узнать.
Обрадуюсь любому методу: АПИ, формулы, соды, ссылки, алгоритмы.

[alibek]

А как ты уже пытался это сделать?

[tyomitch]

Вот вариант, который корректно обрабатывает "специальные" цвета:

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

Private Type RGB
    Red As Byte
    Green As Byte
    Blue As Byte
    Reserved As Byte
End Type
Private Declare Function OleTranslateColor Lib "oleaut32" (ByVal lOleColor As Long, ByVal lHPalette As Long, lColorRef As RGB) As Long

'использование
    Dim C As RGB
    OleTranslateColor Color, 0, C


[Ennor]

Допустим, в Clr as Long у тебя цвет. Тогда:
Red = Clr and &HFF
Green = Clr and &HFF00
Blue = Clr and &HFF0000
Старший байт, насколько я помню, используется под альфа-канал, но как с ним работать - спрашивай у Темыча, это он все знает .

[alibek]

Ennor, ты забыл сдвиг битов или деление

[Ennor]

Да, действительно, забыл...
Green = (Clr and &HFF00) / &H100
Blue = (Clr and &HFF0000) / &H10000
Остальное правильно.

На самом деле, у меня в такой задаче используется LSet, но для него пример дюже длинный писать пришлось бы...

[SHURUP]

Альфа мне не нужна, а за это СПАСИБО!

Ой, а как же с Контрасность, Яркость, Цветность. Я так понимаю что-то типа OleTranslateColor должно быть!

[Ennor]

Если у тебя винда не очень старая (или IE, по крайней мере), то подойдет вот это:

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

VOID ColorRGBToHLS(
    COLORREF clrRGB,
    WORD *pwHue,
    WORD *pwLuminance,
    WORD *pwSaturation
);


Если же очень (типа NT 3.5 / Win95), то ищи в Knowledge Base - Q29240

[SHURUP]

Ennor, винда у меня довольно новая, но по-моему это обьявление на "С", а можно как-то через Declare, чтобы с lib ? Я к нему более привык.

[tyomitch]

SHURUP, лови:

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

Option Explicit
Private Declare Sub ColorRGBToHLS Lib "shlwapi" (ByVal clrRGB As Long, pwHue As Integer, pwLuminance As Integer, pwSaturation As Integer)

Private Sub Main()
Dim h As Integer, l As Integer, s As Integer
ColorRGBToHLS vbBlue, h, l, s
Debug.Print h, l, s
End Sub


[SHURUP]

ЗАДАЧА РЕШАЕМА! УРА! ВСЕМ СПАСИБО!

Ennor, ты забыл сдвиг битов или деление

А вообще в VB есть оператор сдвига битов? Или опять надо делить/умножать на (2^n) и хвостиками мучаться?

[Ennor]

Надо, надо...

[alibek]

Умножать/делить. Сдвига, как такового, нет.

[Ennor]

Кстати, сорри за оффтоп - а в VB.NET сдвиг появился? И если да, то наскольно он, так сказать, нативен?

[tyomitch]

Афаик в .net ничего нативного нет - один только фреймворк.

[GSerg]

Не знаю как насчёт нативности, но операторы << и >> в VB 2003 есть