Цвета, цвета, цвета...
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 2
• Страница 1 из 1
- Sirik
- Perspicaz
-
- Сообщения: 2280
- Зарегистрирован: 19.02.2004 (Чт) 16:09
- Откуда: Бердичев, Украина
Цвета, цвета, цвета...
Sirik » 18.10.2004 (Пн) 11:27
Как переести цвет из РЖБ в формат ХТМЛ (например красный=#FF0000)?
- tyomitch
- Пользователь #1352
-
- Сообщения: 12822
- Зарегистрирован: 20.10.2002 (Вс) 17:02
- Откуда: חיפה
tyomitch » 18.10.2004 (Пн) 11:32
"#" & Right("000000" & Hex(Reverse(цвет)), 6)
- Код: Выделить всё
Private Function Reverse(ByVal rgb As Long) As Long
Dim Red As Long, Green As Long, Blue As Long
Red = rgb And 255: rgb = rgb \ 256
Green = rgb And 255: rgb = rgb \ 256
Blue = rgb And 255
Reverse = 65536 * Red + 256& * Green + Blue
End Function
Сообщений: 2
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 14