VPF::Определение цвета обратного данному

Rostik Ultra

Дата 11.1.2005, 08:33 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 201
Регистрация: 16.12.2004

Репутация: нет
Всего: нет

Как програмно определить цвет обратный данному на цветовом круге ( например наводишь мышку на label и он меняет forecolor на обратный по отношению к своему первоначальному цвету )

--------------------

-Mikle-

Дата 11.1.2005, 09:24 (ссылка)

(нет голосов)

Загрузка ...

Невидимка Vingrad'а

Профиль
Группа: Экс. модератор
Сообщений: 1672
Регистрация: 22.6.2003
Где: Казахстан, Астана

Репутация: 8
Всего: 59

Инвертировать что-ли?

Можно так:

Код

ColorResult = ColorSource XOR &hFFFFFF&

Подходит?

--------------------

Если тебе плюют в спину, значит ты впереди...

Gannibal

Дата 11.1.2005, 19:36 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 742
Регистрация: 15.4.2003
Где: 010101

Репутация: 18
Всего: 17

-Mikle-
а что такое

Цитата

&hFFFFFF&

что этот параметр определяет? всё работает проверял smile

--------------------

Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!

cardinal

Дата 11.1.2005, 20:11 (ссылка)

(нет голосов)

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99

M.E.G.U.S
&hFFFFFF это 111111111111111111111111 в бинарной системы счисления. То есть все единицы. XOR это логическая операция, которая делает из
0,1->1
1,1->0
1,0->1
0,0->0
Тебя интересуют первые два случая. Если ты внимательно посмотришь, то увидишь, что нолик (левая сторона) превращается в единичку и наоборот.
-Mikle-, только вот один прокол может получиться

Код


Option Explicit

Private Sub Command1_Click()
Dim colorresult As Long

colorresult = 33554431
colorresult = colorresult Xor &HFFFFFF
Debug.Print colorresult
End Sub

Код


Option Explicit

Private Sub Command1_Click()
Dim colorresult As Long

colorresult = 33554431
colorresult = colorresult Xor &HFFFFFFFF
Debug.Print colorresult
End Sub

и вообще числовых трехбайтных переменных в VB6 нет smile

--------------------

Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие

-Mikle-

Дата 13.1.2005, 17:05 (ссылка)

(нет голосов)

Загрузка ...

Невидимка Vingrad'а

Профиль
Группа: Экс. модератор
Сообщений: 1672
Регистрация: 22.6.2003
Где: Казахстан, Астана

Репутация: 8
Всего: 59

Цитата(cardinal @ 11.1.2005, 23:11)

и вообще числовых трехбайтных переменных в VB6 нет

Ну это естественно smile

Просто я написал &hFFFFFF вместо &hFFFFFFFF, для того чтоб было яснее, что ксорить нужно только три младших байта, т.е. те самые, которые содержат значения трех составляющих цвета. Ошибки тут нет smile

.... это для наглядности... smile

--------------------

Если тебе плюют в спину, значит ты впереди...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »