Прозрачность в WinApi, применительно к VBA

[EUGY]

А у Вас программа нормально отрабатывает?

Разумеется. Я бы не стал постить непроверенный код. Можете конечно воспользоватся примером по ссылке, по сути тоже самое. Разница в том, что у меня не используются переменные в глобальной видимости, а адрес предыдущей процедуры заносится в "проперть хендла" окна. А в том примере, в глобальную переменную. Хреновый стиль.
/ GetProp, SetProp/ функции доступа к property (вольный перевод - причиндалы) конкретного окна. То есть с хендлом окна можно сопоставить некое значение и писать туда что угодно, хоть телефон бабушки. Я заношу туда адрес родной процедуры окна, чтобы впоследствии считать его и вызвать в CallWindowProc.

[fyedor]

Все понятно

Можете прикрепить свой файл Access? Я создал новый проект, все равно не работает..

[EUGY]

Тлб не забудьте подключить.

ЗЫ.
Чую, не потянете пока сабклассинг.
Предлагаю кардинально другое решение.
Создать окно /CreateWindow/, и сделать его дочерним для формы/SetParent/. Задать ему нужный фон и прозрачность /SetLayeredWindowAttributes/ и обрезать в виде сектора.

[fyedor]

Запустил Ваше приложение - у меня так же все зависло Библиотеку не забыл подключить...

Сообщение от EUGY

Создать окно /CreateWindow/, и сделать его дочерним для формы/SetParent/. Задать ему нужный фон и прозрачность /SetLayeredWindowAttributes/ и обрезать в виде сектора.

Буду пробовать этот вариант

[fyedor]

Сообщение от EUGY

Создать окно /CreateWindow/, и сделать его дочерним для формы/SetParent/. Задать ему нужный фон и прозрачность /SetLayeredWindowAttributes/ и обрезать в виде сектора.

Можете вновь код привести в пример? А то вновь натворю делов.

[EUGY]

При сабклассинге зависает акцесс, если был открыт редактор vba.
Здесь главное, чтобы в пользовательском режиме работало. Скомпилируйте, закройте полностью акцесс и откройте заново.

[fyedor]

Сообщение от EUGY

При сабклассинге зависает акцесс, если был открыт редактор vba.
Здесь главное, чтобы в пользовательском режиме работало. Скомпилируйте, закройте полностью акцесс и откройте заново.

Действительно, работает. Спасибо!

Был бы очень благодарен, если бы объяснили свое второе кординальное решение Запутался на создании окна даже...

[EUGY]

второе кординальное решение

Хотел было написать, но не учел, что в любом случае нужно обрабатывать скроллы окна. А у форм акцесс нет события OnScroll. А значит, в этом случае опять придется отлавливать WM_VSCROLL/WM_HSCROLL в оконной процедуре.
Так что, без сабклассинга решения не вижу. (:

[fyedor]

Сообщение от EUGY

Так что, без сабклассинга решения не вижу. (:

Ну значит будем с помощью его все решать.

Я так понимаю WM_VSCROLL/WM_HSCROLL надо отлавливать, чтобы координаты смещать при прокрутке?

[fyedor]

Сообщение от EUGY

придется отлавливать WM_VSCROLL/WM_HSCROLL в оконной процедуре.

Пробую их отлавливать - не отлавливаются..странно..

Кстати, про идентификатор окна. Я его вот так определяю:

hwnd = FindWindowExA(Me.hwnd, FindWindowExA(Me.hwnd, 0, "OFormSub", ""), "OFormSub", "")

Может я лишь часть окна беру?? В которой как раз нет полосы прокрутки?

Все, разобрался с этой проблемой. Для работы с сообщениями WM_VSCROLL/WM_HSCROLL в качестве индентификатора исполльзую Me.hwnd.