Цвет в HTML - редакторе

[John_mc]

Я пытаюсь сделать свой HTML - Редактор, мне нужно сделать так:
При выборе цвета (например, в стандартном диаловогом окне DommonDialog окна цвета), цвет такойто отображается в RichTextBox'е

Например:
Выбрал я в окне выбора цвета Голубой с оттенком

А в RichTextBox'e должно появиться: #3366CC

[Cyrax]

с кодом пока обломс, но смысл примерно такой:

получаешь из диалога цвет в переменную. потом значение этой переменной делиш на значения состваляющих RGB с помощью вот этого

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

Public Function GetRGB(Color As OLE_COLOR, Red As Integer, Green As Integer, Blue As Integer)
    '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

функция пользуется следующим образом:

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

Dim R As Integer, G As Integer, B As Integer
GetRGB <Цвет_из_диалога>, R, G, B ' переменные R, G и B получат значения составляющих

дальше каждую составляющую переводиш в Hex, склеиваешь в одну строку и вставляешь в RitchText

[GoGosha]

RichTextBox1.SelStart = Len(RichTextBox1.Text)
RichTextBox1.SelText = "#" & Hex(CommonDialog1.Color)

[Cyrax]

RichTextBox1.SelStart = Len(RichTextBox1.Text)
RichTextBox1.SelText = "#" & Hex(CommonDialog1.Color)

это не прокатит
он не полностью число возвращает

например, выберешь чистый красный цвет. RGB = (255,0,0)
Hex вернет тебе FF и все. а если ты такой цвет вставишь в HTML-код он у тебя будет совсем не красным.
нужно чтобы было #RRGGBB

[GoGosha]

RichTextBox1.SelStart = Len(RichTextBox1.Text)
RichTextBox1.SelText = "#" & Hex(Color) + Left("000000", 6 - Len(Hex(Color)))

[John_mc]

Спасибо всем! Работает!
Но всё же иногда "путает" цвета
Как этого можно избежать?

[GoGosha]

Спасибо всем! Работает!
Но всё же иногда "путает" цвета
Как этого можно избежать?

И какой цвет перепутала?

[John_mc]

С "простыми" цветами проблем нет(которые входят в 256), а с разными тонами - путаница. Например, светло - голубой спутал с оттенком оранжевого

[GoGosha]

Что значит

которые входят в 256

все цвета можно разложить на три состовляюшие, каждая из которых НЕ БОЛЬШЕ 255(&HFF)

[RayShade]

Имеется в виду стандартный набор из 256 цветов Т.н. web colors. Их посмотреть можно в Photoshop или же на сайте design.ru

[Dagobert]

Так тут есть один Bug. Если ты используешь Hex$ то она возвращает не совсем RGB. По-моему BBGGRR, хотя могу и ошибаться. Пользуйся советом Cyrax'a, а можешь посмотреть исходник моего класса. http://msvb.boom.ru - раздел исходники, есть и статья того-же толка. Раздел посвящённый графике.

[GSerg]

Почему же баг, всё правильно. VB ожидает цвет в формате &h00BBGGRR, а html - #RRGGBB.
Соответственно, нужно разделить цвет на составляющие и поменять их местами. Про разделение составляющих топик есть, поищи.

[Dagobert]

Не так выразился, извините. Кстати, разве это нельзя считать багом конкретной программы?

[John_mc]

2 Dagobert: Благодарю за Пример (который находится на твоём сайте) - Грамотно сделал.


Есть у кого - нибудь ещё примеры такого рода(желательно с использованием CommonDialog)