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

[EUGY]

Все возможно. Только боюсь, погрязнете с отладкой в сабклассинге.
Насколько это задание важно?

[fyedor]

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

Насколько это задание важно?

Очень важно

[EUGY]

Эта форма имеет один экземпляр или возможен случай, когда открыты две и более формы с теми же или ,может, разными данными. Я это к тому, что легче написать оконную процедуру, если окно одно. Иначе придется перенаправлять вызов в конкретный экземпляр класса.

[fyedor]

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

Эта форма имеет один экземпляр или возможен случай, когда открыты две и более формы с теми же или ,может, разными данными. Я это к тому, что легче написать оконную процедуру, если окно одно. Иначе придется перенаправлять вызов в конкретный экземпляр класса.

Ну в один момент форма может иметь только один экземпляр. Но одновременно с ней может быть открыта другая форма..

[EUGY]

Поставил-таки я акцесс, чтобы видеть подводные камни.
Вообщем так:
Добавляем модуль в проект:

Option Compare Database
Option Explicit
Public Function Subclass(ByVal hwnd As Long) As Boolean
  If GetProp(hwnd, "PRVPROC") <> 0 Then Exit Function
  SetProp hwnd, "PRVPROC", GetWindowLong(hwnd, GWL_WNDPROC)
  SetWindowLong hwnd, GWL_WNDPROC, AddressOf proc
  Subclass = True
End Function

Public Sub UnSubclass(ByVal hwnd As Long)
  SetWindowLong hwnd, GWL_WNDPROC, GetProp(hwnd, "PRVPROC")
  RemoveProp hwnd, "PRVPROC"
End Sub

Public Function proc(ByVal hwnd As Long, ByVal umsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
   Select Case umsg
   Case WM_PAINT
        Dim pa As PAINTSTRUCT
        BeginPaint hwnd, pa
              Dim rc As RECT
              rc.Right = 50
              rc.Bottom = 60
              ' что-то рисуем на контексте
              FillRect pa.hdc, rc, GetSysColorBrush(COLOR_ACTIVECAPTION)
        EndPaint hwnd, pa
   End Select
   proc = CallWindowProc(GetProp(hwnd, "PRVPROC"), hwnd, umsg, wParam, lParam)
End Function

В коде формы:

Private Sub Form_Load()
    Subclass hwnd ' возможно будет нужен не этот хендл, а какого-нибудь дочернего окна
End Sub

Private Sub Form_Unload(Cancel As Integer)
    UnSubclass hwnd
End Sub

Обязательно компилируем проект, чтобы сразу видеть ошибки, иначе при кривом сабклассинге приложение будет вылетать.
Закрываем редактор VBA !!!.
Проверяем.

Это конечно болванка, и нюансов будет еще много, но Вам будет от чего оттолкнуться.

[fyedor]

Большое спасибо!

Только при запуске формы приложение полность вылетает.

Предположительно вылетает на строчке:

SetWindowLong hwnd, GWL_WNDPROC, AddressOf Proc

предварительно выполнив ее.

[EUGY]

welcome to subclassing!
Ищите. Малейшая ошибка, и вылет. Предварительная компиляция отловит 90 % ошибок, остальные 10 случаются в рантайме. Создайте отдельную базу и проект с одной формой, чтобы не было ничего лишнего, потренеруйтесь.

[fyedor]

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

welcome to subclassing!
Ищите. Малейшая ошибка, и вылет. Предварительная компиляция отловит 90 % ошибок, остальные 10 случаются в рантайме. Создайте отдельную базу и проект с одной формой, чтобы не было ничего лишнего, потренеруйтесь.

Хехе. Глупый вопрос: что значит предварительная компиляция?

Вроде явных ошибок нет, а приложение полностью слетает, т.е. Access закрывается полностью.

[EUGY]

что значит предварительная компиляция?

В редакторе кода VBA меню: Debug > Compile

PS. Убедитесь, что есть Option Explicit в начале каждого модуля и класса, что все константы в коде имеют объявления, вызов функций не противоречит их декларациям.

Вот даже здесь помарка:
Вы писали:

Предположительно вылетает на строчке:
Код:

SetWindowLong hwnd, GWL_WNDPROC, AddressOf Proc
предварительно выполнив ее.

у меня в примере функция proc - у вас Proc.
Для vba это не имеет значения, но позволяет сделать предположение, что где-то в коде допускается еще большая небрежность.
Я ведь не вижу, что у Вас на экране.

[fyedor]

Предварительная компиляция не выдала ошибок.

Вот тут есть пример:
http://www.vbmigration.com/detknowledgebase.aspx?id=51

В нем в процедуру CallWindowProc первым параметром посылается результат работы процедуры SetWindowLong. У вас иначе сделано.

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