| Вопрос: Анти RGB | Добавлено: 06.08.06 18:29 |
Автор вопроса:  VβÐUηìt | Web-сайт: смекаешь.рф
|
|
Кто знает, как лонг в три цвета преобразовать?
R = Color Mod 255: Color = Color / 255 G = Color Mod 255: Color = Color / 255 B = Color - глючит, если разложить светло-зеленый и опять сэргэбешить, получается темно-синий - чё за фегня? Заранее спасибо |
| Ответы | Всего ответов: 16 |
|
Номер ответа: 1 Автор ответа:  Sacred Phoenix ICQ: 304238252 Вопросов: 52 Ответов: 927 |
Профиль | | #1 | Добавлено: 06.08.06 18:33 |
| поиск, поиск, поиск, поиск, поиск, поиск, поиск, поиск, поиск и ещё раз поиск! Совсем недавно обсуждалось! | ||
|
Номер ответа: 2 Автор ответа: Sacred PhoenixICQ: 304238252 Вопросов: 52 Ответов: 927 |
Профиль | | #2 | Добавлено: 06.08.06 20:04 |
| кста, нашёл тему: http://www.vbnet.ru/forum/show.aspx?id=115246. Пост #2. Только значения надо немного изменить... | ||
|
Номер ответа: 3 Автор ответа: LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #3 | Добавлено: 07.08.06 12:12 |
| Про автозагрузку? Как жызнинна... | ||
|
Номер ответа: 4 Автор ответа: Sacred PhoenixICQ: 304238252 Вопросов: 52 Ответов: 927 |
Профиль | | #4 | Добавлено: 07.08.06 12:24 |
|
Про автозагрузку? Как жызнинна... да не, про пользование поиском... Я ж и говорю, значения полей нада поменять: вместо "автозагрузка" писать что-нить вроде "разложение цветов" и т.д...
|
||
|
Номер ответа: 5 Автор ответа: VβÐUηìtВопросов: 246 Ответов: 3333 |
Web-сайт: Профиль | | #5 | Добавлено: 08.08.06 11:11 |
| :| | ||
|
Номер ответа: 6 Автор ответа: Sacred PhoenixICQ: 304238252 Вопросов: 52 Ответов: 927 |
Профиль | | #6 | Добавлено: 08.08.06 13:36 |
мля, а ваще фигею!  (
2 VBD: я сделал тебе медвежью услугу: 1. Ищем в браузере адресную строку. 2. Стираем в ней всё, что есть. 3. Набираем "http://www.yandex.ru/". 4. Жмём линк "Расширенный поиск". 5. В поле "Находятся на сайте" пишем "http://www.vbnet.ru/". 6. В поле "Я ищу" набираем "Разложить цвета". 7. Жмем пипу "Искать". 8. Смотрим рез-таты. 9. Кликаем на 2ом рез-тате (или каким он там будет?..), линк на который ведет на топик «Автозагрузка», авторства тов. SnowWolf, от 21.07.06 00:26. И наконец, смотрим пост #4, авторства тов. [root]. |
||
|
Номер ответа: 7 Автор ответа: Sacred PhoenixICQ: 304238252 Вопросов: 52 Ответов: 927 |
Профиль | | #7 | Добавлено: 08.08.06 13:37 |
|
идем далее, см. пост #5, тов. LamerOnLine, который даст тебе исчерпывающий ответ на твой вопрос.
ЗЫ. Ты в этой теме, кстати, оставил оффтопный пост, неужели ты забыл?.. |
||
|
Номер ответа: 8 Автор ответа: Sacred PhoenixICQ: 304238252 Вопросов: 52 Ответов: 927 |
Профиль | | #8 | Добавлено: 08.08.06 13:38 |
|
на который ведет на топик «Автозагрузка» мля, на топик «Коды цветов»
|
||
|
Номер ответа: 9 Автор ответа: [root]Вопросов: 45 Ответов: 1212 |
Web-сайт: Профиль | | #9 | Добавлено: 08.08.06 13:47 |
|
Sacred Phoenix откуда столько злости, расслабься!
Вот линк на топик, где тема обсуждалась: http://vbnet.ru/forum/show.aspx?id=113974 |
||
|
Номер ответа: 10 Автор ответа: Sacred PhoenixICQ: 304238252 Вопросов: 52 Ответов: 927 |
Профиль | | #10 | Добавлено: 08.08.06 19:07 |
|
Вот линк на топик, где тема обсуждалась:
я хотел, чтобы до этого линка добрался VBD, сам.
http://vbnet.ru/forum/show.aspx?id=113974 ЗЫ. Sacred Phoenix откуда столько злости да вот... скопилось... 
|
||
|
Номер ответа: 11 Автор ответа:  [root]Вопросов: 45 Ответов: 1212 |
Web-сайт: Профиль | | #11 | Добавлено: 09.08.06 07:16 |
|
Аффтар потерял сознание и добраться не смог.
Нада поспокойнее, себе дороже А тема действительно уже разжевана, я еще где то читал, правда забыл где
|
||
|
Номер ответа: 12 Автор ответа: Bombardier ICQ: 42305746 Вопросов: 2 Ответов: 67 |
Web-сайт: Профиль | | #12 | Добавлено: 09.08.06 10:55 |
|
я давно уже вот этой процедуркой пользуюсь, работает нормально, даже переписывать влом )
через строки хотя конечно неправильно ))) Sub Long2RGB(ByVal inColor As Long, ByRef r As Byte, ByRef g As Byte, ByRef b As Byte)
Dim tColor As String tColor = Right("000000" & Hex(inColor), 6) b = Int("&H" & Mid(tColor, 1, 2)) g = Int("&H" & Mid(tColor, 3, 2)) r = Int("&H" & Mid(tColor, 5, 2)) End Sub |
||
|
Номер ответа: 13 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #13 | Добавлено: 09.08.06 11:11 |
|
:lol:
Объявляем конкурс на самое нерациональное решение
|
||
|
Номер ответа: 14 Автор ответа: BombardierICQ: 42305746 Вопросов: 2 Ответов: 67 |
Web-сайт: Профиль | | #14 | Добавлено: 09.08.06 11:39 |
|
ну вот простейшее тогда ))) пришлось переписать
Sub Long2RGB(ByVal inColor As Long, ByRef r As Byte, ByRef g As Byte, ByRef b As Byte) r = inColor And 255 g = (inColor And 65280) / 256 b = (inColor And 16711680) / 65536 End Sub |
||
|
Номер ответа: 15 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #15 | Добавлено: 09.08.06 12:14 |
|
Все равно убого.
Хранить составляющие одного цвета в трех разных переменных... Нунах! |
||