| Вопрос: Кодирование web цветов | Добавлено: 17.10.04 21:22 |
Автор вопроса:  BUG(O)R | Web-сайт: hunger.ru | ICQ: 827887 |
| Народ, помогите, я уже в лепёшку разбился, но никак не могу понять как мне из RGB кода перейти в web и наоборот, если кто знат, плиз, подскажите!!! |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #1 | Добавлено: 18.10.04 10:26 |
| Из 255, 128, 64 в #FF8040, что ли? Hex не помогает? | ||
|
Номер ответа: 2 Автор ответа: ZagZagICQ: 295002202 Вопросов: 87 Ответов: 1684 |
Профиль | | #2 | Добавлено: 18.10.04 13:27 |
|
Private Type TColorRGB
Red As Byte Green As Byte Blue As Byte End Type Private Function LongToRGB(ByVal Index As Long) As TColorRGB 'Разложить системный цвет в RGB LongToRGB.Red = Index And 255 LongToRGB.Green = (Index And 65280) \ 256 LongToRGB.Blue = (Index And 16711680) \ 65535 End Function Public Function LongToHTML(lngColor As Long) As String Dim bytR As Byte Dim bytG As Byte Dim bytB As Byte bytR = lngColor And 255 bytG = (lngColor And 65280) \ 256 bytB = (lngColor And 16711680) \ 65535 If bytR < 15 Then LongToHTML = "0" LongToHTML = LongToHTML & Trim(Hex(bytR)) If bytG < 15 Then LongToHTML = LongToHTML & "0" LongToHTML = LongToHTML & Trim(Hex(bytG)) If bytB < 15 Then LongToHTML = LongToHTML & "0" LongToHTML = LongToHTML & Trim(Hex(bytB)) End Function Public Function HTMLToLong(strColor As String) As Long Dim lngR As Long Dim lngG As Long Dim lngB As Long lngR = CDec("&H" & Mid$(strColor, 2, 2)) lngG = CDec("&H" & Mid$(strColor, 4, 2)) * 256 lngB = CDec("&H" & Mid$(strColor, 6, 2)) * 256 ^ 2 HTMLToLong = lngR Or lngG Or lngB End Function А обратно, сам мучай 
|
||
|
Номер ответа: 3 Автор ответа: ZagZagICQ: 295002202 Вопросов: 87 Ответов: 1684 |
Профиль | | #3 | Добавлено: 18.10.04 13:56 |
|
Сорри "обратно" я тоже оказывается выложил, а думал что не нашел
|
||
Страница: 1 |