Господа,
Открываю диалог Выбора цвета
CommonDialog1.ShowColor
потом получаю выбранный цвет
RGBColor = CommonDialog1.Color
А как мне теперь получить в отдельные переменные отдельно Red, Green и Blue????
Помогите с RGB!!!!!!!
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 3
• Страница 1 из 1
- Cheese
- Новичок
- Сообщения: 35
- Зарегистрирован: 06.12.2002 (Пт) 9:20
- Откуда: Russia
Помогите с RGB!!!!!!!
Cheese » 02.06.2003 (Пн) 8:29
- Cyrax
- Cyberninja
-
- Сообщения: 891
- Зарегистрирован: 25.04.2002 (Чт) 21:20
- Откуда: Magnitogorsk, Russia
Cyrax » 02.06.2003 (Пн) 8:35
Ты это ему расскажи. Я уже пять болтов отвинтил, и конца не видно... (озадаченно) А это в какую сторону тянуть? Ну-ка... Ага, этот был лишний, этот вообще не отсюда, и этот... Точно, два болта.
Welcome to IRC
Welcome to IRC
- Urvin
- Постоялец
-
- Сообщения: 518
- Зарегистрирован: 04.06.2003 (Ср) 10:47
- Откуда: с Марса
Urvin » 07.06.2003 (Сб) 6:26
- Код: Выделить всё
Function TakeRGB(ByVal Colors As Long, ByVal Index As Byte) As Long
IndexColor = Colors
Red = IndexColor - Int(IndexColor / 256) * 256: IndexColor = (IndexColor - Red) / 256
Green = IndexColor - Int(IndexColor / 256) * 256: IndexColor = (IndexColor - Green) / 256
Blue = IndexColor
If Index = 0 Then TakeRGB = Red
If Index = 1 Then TakeRGB = Green
If Index = 2 Then TakeRGB = Blue
End Function
И Юзаешь эту функцию.
Не так страшен русский танк, как его пьяный экипаж
Сообщений: 3
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 123