Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

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

Страница: 1 |

 

  Вопрос: Перевод цвета в RGB. Добавлено: 01.11.08 16:17  

Автор вопроса:  Abiron
Есть цвет типа 7475799 нужно, его в виде RGB получить. А еще лучше, подскажите, как найти оттенки цвета?

Ответить

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

Номер ответа: 1
Автор ответа:
 Серёга



ICQ: 262809473 

Вопросов: 17
Ответов: 561
  Web-сайт: houselab.narod.ru
 Профиль | | #1 		Добавлено: 01.11.08 19:19
  1. Sub GetRGB(ByVal LngCol As Long, retR As Long, retG As Long, retB As Long)
  2.   If LngCol < 0 Then LngCol = TranslateColor(LngCol)
  3.   Dim c As Long
  4.   c = LngCol
  5.   retR = c Mod &H100
  6.   c = c \ &H100
  7.   retG = c Mod &H100
  8.   c = c \ &H100
  9.   retB = c Mod &H100
  10. End Sub


  1. Function TranslateColor(inCol As OLE_COLOR) As Long
  2.   Dim retCol As Long
  3.   OleTranslateColor inCol, 0&, retCol
  4.   TranslateColor = retCol
  5. End Function


  1. Public Declare Function OleTranslateColor Lib "oleaut32.dll" (ByVal lOleColor As Long, ByVal lHPalette As Long, lColorRef As Long) As Long

Ответить

Номер ответа: 2
Автор ответа:
 Серёга



ICQ: 262809473 

Вопросов: 17
Ответов: 561
  Web-сайт: houselab.narod.ru
 Профиль | | #2 		Добавлено: 01.11.08 19:20
как найти оттенки цвета?

- в смысле?

Ответить

Номер ответа: 3
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | | #3 		Добавлено: 02.05.09 10:50
Чувак хочет HSB

Ответить

Страница: 1 |

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



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