Какой формат кодирования цвета?

[JohnK]

Какой формат кодирования цвета передает свойство Point?
Color = Pic_color.Point(x, y)

Нужен RGB! как?

[tyomitch]

Поиском по форуму, блин.
Младший байт Color - R, следующий - G, третий - B.

[vvs_adm]

JohnK

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

Red = Color mod 256
Green = Color /256 mod 256
Blue = Color / 65536


[JohnK]

Мне нужно получаемый цвет вставить в HTML документ, когда напрямую посылаю код цвета полученного из пикчербокса - то получается ерунда

[Amed]

MsgBox "#" & Format$(Hex(r), "00") & Format$(Hex(G), "00") & Format$(Hex(B), "00")

[JohnK]

Учитывая вышеизложенное получил:

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

Public Function FormatColor(inCol As Long) As String
FormatColor = "#" & Format$(Hex(inCol Mod 256), "00") & Format$(Hex((inCol / 256) Mod 256), "00") & Format$(Hex(inCol / 65536), "00")
End Function


Но тоже выдает глупости в HTML!

[JohnK]

PS Вернее 50% по градиенту отображает правильно, а 50% - нет.
В частности белый выдает за маниновый и тд..
В чем бародень?

[Amed]

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

Dim rgb As Long, r As Long, g As Long, b As Long

rgb = Pic_color.Point(X, Y)

r = &HFF& And rgb
g = (&HFF00& And rgb) \ 256
b = (&HFF0000 And rgb) \ 65536

MsgBox "#" & Format$(Hex(r), "00") & Format$(Hex(g), "00") & Format$(Hex(b), "00")

[JohnK]

Все супер!!! Спасибо всем. Respect to Amed!
Вопрос исчерпан.