Страница: 1 |
Я столкнулся с очень интересной проблемой. Я разрабатываю приложение для создания html файлов. Так вот, для страницы нужно задать цвет. Я попробовал сделать это через Common Dialog Color, но этот Комон Диалог выводит цвет не в формате RGB, который понимает броузер, а совершенно в другом (десятиричном). Как можно сходу перевести формат цвета в RGB и в этом же формате записать в файл html?
Пользуйся ) Функция возвращает строковую переменную, разделенную указанными символами, после чего ее можно разбить с помощью Split() Public Function LngToRGB(lngValue As Long, sDelimiter As String) As String Использование: Dim sBuffer as String sBuffer=LngToRGB(120,";") msgbox Split(sBuffer,";")(0) msgbox Split(sBuffer,";")(1) msgbox Split(sBuffer,";")(2) Страница: 1 |
Вопрос: Из десятиричного в RGB
Добавлено: 03.12.02 09:45
Автор вопроса: Pete
Ответы
Всего ответов: 2
Номер ответа: 1
Автор ответа:
ГАТ
Вопросов: 2
Ответов: 117
Web-сайт:
Профиль | | #1
Добавлено: 03.12.02 19:05
Сайты долго грузятся. Ссылку дать не могу. Но недавно эту подобную обсуждали либо здесь, либо на bbs.vbstreets.ru.
Номер ответа: 2
Автор ответа:
sne
Разработчик Offline Client
ICQ: 233286456
Вопросов: 34
Ответов: 5445
Web-сайт:
Профиль | | #2
Добавлено: 31.12.02 01:01
LngToRGB = lngValue - (lngValue \ &H100) * &H100 & sDelimiter & _
(lngValue - (lngValue \ &H10000) * &H10000) \ &H100 & sDelimiter _
& lngValue \ &H10000
End Function