Блин… как узнать каждую из составляющих RGB-цыета?

[TNT]

Я знаю шестнадцатиричое число, как мне из него узнать каждый из цыетов (красный/зелёный/синий)? Подскажите, пожалуйста, какую функцию необходимо использовать…

p.s. Что-то совсем Бэйсик забыл...

[Партизан]

Функция RGB, подробнее можешь посмотреть в справке....

[GSerg]

? hex$((&hf655cc) / 65535)
F6
? hex$((((&hf655cc) / 256) and &hff)-1)
55
? hex$(&hf655cc and &hff)
CC

[skiperski]

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

Public Function GetByte(ByVal Value As Long, ByVal ByteNr As Long) As Long
    GetByte = Value / 2 ^ ((ByteNr - 1) * 8) And &HFF
End Function

?GetByte(rgb(50,100,200), 3)
200
?GetByte(rgb(50,100,200), 2)
100
?GetByte(rgb(50,100,200), 1)
50

[Cyrax]

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

Public Function GetRGB(Color As OLE_COLOR, Red, Green, Blue)
    'gets Red, Green, and Blue values of a c
    '     olor
    'I think i saw this on www.PlanetSourceC
    '     ode.com
    TranslateColor Color, 0, Color
    Red = Color And &HFF
    Green = (Color And &HFF00&) / 255
    Blue = (Color And &HFF0000) / 65536
End Function

значения возвращаются в Red, Green, Blue соответственно

[GoGosha]

Только что понадобилось...

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

Function GetRGB(Color, R,G,B)
    R = Color And &Hff
    G = (Color / &h100) And &hFF
    B = (Color / &h10000) And &hFF
End Function


[RayShade]

Уважаемые!!!

Что ж вы одно и то же тут излагаете каждый на свой лад Ну прямо Камасутра какая то получается

[skiperski]

Уважаемые!!!
Что ж вы одно и то же тут излагаете каждый на свой лад Ну прямо Камасутра какая то получается

Да пока я писал, да проверял уже GSerg с опережением в три минуты справился. Не удалять же.

[RayShade]

Ну да, а все остальные тоже, значит все это дело писали и с разницей всего в 3 часа запостили? Про тебя то как раз речь не идет

[gaidar]

Забей, они так самовыражаются. надо же хоть что-то, что знают сюда запостить.

[Urvin]

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

Function TakeRGB(ByVal Colors As Long, ByVal Index As Byte) As Long
    IndexColor = Colors
    Red = IndexColor - Int(IndexColor / 256) * 256: IndexColor = (IndexColor - Red) / 256
    Green = IndexColor - Int(IndexColor / 256) * 256: IndexColor = (IndexColor - Green) / 256
    Blue = IndexColor
    If Index = 0 Then TakeRGB = Red
    If Index = 1 Then TakeRGB = Green
    If Index = 2 Then TakeRGB = Blue
End Function

Все понятно?

[Terarist]

Самый простой и гениальный способ всех времян и народо, метод "тыка"...