Как получить RGB из colorchoser'а?

[[Zeus]]

Всем привет! Кто нить знает как получить RGB из диалогового окна для выборацвета? Оно возвращает большое число, а чего с ним делать не знаю.

[GSerg]

Этот вопрос обсуждался настолько часто, что за любой ответ, кроме ПОИСК!, надо сразу банить.

[alibek]

Полностью согласен с GSerg. И так как он нарушает свое же правило, то его надо забанить. Меня, впрочем, тоже. Вот

[Konst_One]

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

Public Sub GetRGB(ByVal Color As Long, Red As Byte, Green As Byte, Blue As Byte)
    Dim c As Long
   
    c = (Color And &HFF&)
    Red = CByte(c)
   
    c = ((Color And &HFF00&) / &H100&)
    Green = CByte(c)
   
    c = ((Color And &HFF0000) / &H10000)
    Blue = CByte(c)
   
End Sub

[Konst_One]

а черт
пока искал, уже посты пропустил
надеюсь не забанят

[[Zeus]]

Приношу свои извенения! Просто по времени не успевал воспользоваться поиском! Спасибо за помощь!!

[FaKk2]

[Zeus]
Парадокс... Времени нажать на Поиск и ввести RGB - нет. А время зайти на форум, нажать Создать тему, ввести вопрос - есть.

Поразительно...

[[Zeus]]

Время нажать на поиск есть, а вот раскапывать кучу сообщений времени небыло!

[FaKk2]

[Zeus]
Брось...

Темы, Как получить RGB из значения с типом Long и КАК ПЕРЕВЕСТИ RGB цвет в HTML цвет? видны невооруженным глазом на первой странице поиска.

Ты главное, не бойся искать. Потратить две минуты на поиск не стоит новой темы, где тебе к тому же надо ждать ответа.