Цветовой фильтр и клик сквозь окна

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Sirik
Perspicaz
Perspicaz
Аватара пользователя
 
Сообщения: 2280
Зарегистрирован: 19.02.2004 (Чт) 16:09
Откуда: Бердичев, Украина

Цветовой фильтр и клик сквозь окна

Сообщение Sirik » 15.02.2010 (Пн) 13:46

В общем есть 2 вопроса:

1. как реализовать данный фильтр к картинке. на рис.1 исходная, на рис.2 полученная

2. как организовать клик мимо окна? окно изначально будет иметь некую прозрачность и будет растянуто на весь экран, надо все клики пропускать сквозь него на те окна, которые лежат за ним

рис.1
Изображение

рис.2
Изображение
Состояний же любви — десять: любовный взгляд, привязанность в мыслях, рождение желания, бессонница, исхудание, отвращение к предметам восприятия, утрата стыда, безумие, потеря сознания и смерть — вот их признаки

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16489
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Re: Цветовой фильтр и клик сквозь окна

Сообщение Хакер » 15.02.2010 (Пн) 14:24

—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

Sirik
Perspicaz
Perspicaz
Аватара пользователя
 
Сообщения: 2280
Зарегистрирован: 19.02.2004 (Чт) 16:09
Откуда: Бердичев, Украина

Re: Цветовой фильтр и клик сквозь окна

Сообщение Sirik » 15.02.2010 (Пн) 15:21

взял за основу данный код:
Atoman писал(а):Поковырявшись немного в стилях вот что получилось.
Код: Выделить всё
Option Explicit

Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32.dll" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Const GWL_EXSTYLE As Long = -20
Private Const WS_EX_LAYERED As Long = &H80000
Private Const WS_EX_TRANSPARENT As Long = &H20&
Private Const LWA_ALPHA As Long = &H2
Private Const HWND_TOPMOST As Long = -1
Private Const SWP_NOMOVE As Long = &H2
Private Const SWP_NOSIZE As Long = &H1

Private Sub Form_Load()
Dim ExStyle As Long
    ExStyle = GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED Or WS_EX_TRANSPARENT
    Call SetWindowLong(Me.hwnd, GWL_EXSTYLE, ExStyle)
    Call SetLayeredWindowAttributes(Me.hwnd, 0, 120, LWA_ALPHA)
    Call SetWindowPos(Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)
End Sub


как сделать чтобы хотя бы кнопка реагировала? или любой компонент, естественно, что он должен остаться полупрозрачным
Состояний же любви — десять: любовный взгляд, привязанность в мыслях, рождение желания, бессонница, исхудание, отвращение к предметам восприятия, утрата стыда, безумие, потеря сознания и смерть — вот их признаки

Mikle
Изобретатель велосипедов
Изобретатель велосипедов
Аватара пользователя
 
Сообщения: 4158
Зарегистрирован: 25.03.2003 (Вт) 14:02
Откуда: Туапсе

Re: Цветовой фильтр и клик сквозь окна

Сообщение Mikle » 15.02.2010 (Пн) 16:54

Фильтр, на глазок, похоже, что берётся зелёная составляющая и передаётся в красную.

Sirik
Perspicaz
Perspicaz
Аватара пользователя
 
Сообщения: 2280
Зарегистрирован: 19.02.2004 (Чт) 16:09
Откуда: Бердичев, Украина

Re: Цветовой фильтр и клик сквозь окна

Сообщение Sirik » 15.02.2010 (Пн) 17:16

не знаю правильно ли я сделал, но сделал вот так: просто задал светло красный фон для полупрозрачной формы
Состояний же любви — десять: любовный взгляд, привязанность в мыслях, рождение желания, бессонница, исхудание, отвращение к предметам восприятия, утрата стыда, безумие, потеря сознания и смерть — вот их признаки

Mikle
Изобретатель велосипедов
Изобретатель велосипедов
Аватара пользователя
 
Сообщения: 4158
Зарегистрирован: 25.03.2003 (Вт) 14:02
Откуда: Туапсе

Re: Цветовой фильтр и клик сквозь окна

Сообщение Mikle » 15.02.2010 (Пн) 18:30

Вообще это похоже на съёмку инфракрасной камерой, простым фильтром не решить.

Antonariy
Повелитель Internet Explorer
Повелитель Internet Explorer
Аватара пользователя
 
Сообщения: 4824
Зарегистрирован: 28.04.2005 (Чт) 14:33
Откуда: Мимо проходил

Re: Цветовой фильтр и клик сквозь окна

Сообщение Antonariy » 15.02.2010 (Пн) 18:42

Mikle писал(а):Вообще это похоже на съёмку инфракрасной камерой, простым фильтром не решить.
Но ведь более теплые объекты должны на ней быть светлее, правильно? Соответственно светлые стены здания должны быть темнее, чем темная фигня на их фоне, ибо отражают больше солнечных лучей и меньше нагреваются. А по краю крыши должна быть яркая полоса, потому что крыша греется очень сильно. Или виновата инфракрасная подсветка?
Лучший способ понять что-то самому — объяснить это другому.

Mikle
Изобретатель велосипедов
Изобретатель велосипедов
Аватара пользователя
 
Сообщения: 4158
Зарегистрирован: 25.03.2003 (Вт) 14:02
Откуда: Туапсе

Re: Цветовой фильтр и клик сквозь окна

Сообщение Mikle » 15.02.2010 (Пн) 22:05

Или стоит холодная погода, а дом отапливается.

Sirik
Perspicaz
Perspicaz
Аватара пользователя
 
Сообщения: 2280
Зарегистрирован: 19.02.2004 (Чт) 16:09
Откуда: Бердичев, Украина

Re: Цветовой фильтр и клик сквозь окна

Сообщение Sirik » 16.02.2010 (Вт) 9:08

мне подошла простая полупрозрачная форма и backcolor темно-красный)
оказалась, что человеку нужен был не совсем тот эффект, что указан на рисунках: просто надо было, чтобы ночью глаза не раздражились ярким светом с монитора
для адаптации глаз к темноте не раздражая их ярким светом, считается что красный свет нейтрален и намного меньше раздражает их
Состояний же любви — десять: любовный взгляд, привязанность в мыслях, рождение желания, бессонница, исхудание, отвращение к предметам восприятия, утрата стыда, безумие, потеря сознания и смерть — вот их признаки

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16489
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Re: Цветовой фильтр и клик сквозь окна

Сообщение Хакер » 16.02.2010 (Вт) 9:16

Тогда фикси гамму экрана, а не создавай «спиритическое» окно.
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

Sirik
Perspicaz
Perspicaz
Аватара пользователя
 
Сообщения: 2280
Зарегистрирован: 19.02.2004 (Чт) 16:09
Откуда: Бердичев, Украина

Re: Цветовой фильтр и клик сквозь окна

Сообщение Sirik » 16.02.2010 (Вт) 13:22

попробую уговорить)
Состояний же любви — десять: любовный взгляд, привязанность в мыслях, рождение желания, бессонница, исхудание, отвращение к предметам восприятия, утрата стыда, безумие, потеря сознания и смерть — вот их признаки


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: AhrefsBot и гости: 16

    TopList