Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Из десятиричного в RGB Добавлено: 03.12.02 09:45  

Автор вопроса:  Pete

Я столкнулся с очень интересной проблемой. Я разрабатываю приложение для создания html файлов. Так вот, для страницы нужно задать цвет. Я попробовал сделать это через Common Dialog Color, но этот Комон Диалог выводит цвет не в формате RGB, который понимает броузер, а совершенно в другом (десятиричном). Как можно сходу перевести формат цвета в RGB и в этом же формате записать в файл html?

Ответить

  Ответы Всего ответов: 2  

Номер ответа: 1
Автор ответа:
 ГАТ



Вопросов: 2
Ответов: 117
 Web-сайт: www.mail.ru
 Профиль | | #1
Добавлено: 03.12.02 19:05
Сайты долго грузятся. Ссылку дать не могу. Но недавно эту подобную обсуждали либо здесь, либо на bbs.vbstreets.ru.

Ответить

Номер ответа: 2
Автор ответа:
 sne



Разработчик Offline Client

ICQ: 233286456 

Вопросов: 34
Ответов: 5445
 Web-сайт: hw.t-k.ru
 Профиль | | #2
Добавлено: 31.12.02 01:01

Пользуйся :))

Функция возвращает строковую переменную, разделенную указанными символами, после чего ее можно разбить с помощью Split()

Public Function LngToRGB(lngValue As Long, sDelimiter As String) As String
    LngToRGB = lngValue - (lngValue \ &H100) * &H100 & sDelimiter & _
        (lngValue - (lngValue \ &H10000) * &H10000) \ &H100 & sDelimiter _
        & lngValue \ &H10000
End Function

Использование:

Dim sBuffer as String

sBuffer=LngToRGB(120,";")

 

msgbox Split(sBuffer,";")(0)

msgbox Split(sBuffer,";")(1)

msgbox Split(sBuffer,";")(2)

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам