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

[EUGY]

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

Угу.
И поэтому нужен сабклассинг двух окон.
И как я представляю, обработка WM_VSCROLL родительского окна будет заключаться просто в вызове InvalidateRect для дочернего.
А в дочернем при WM_PAINT надо выяснять текущую позицию скролла родителя через GetScrollBarInfo и в соответствии с этими данными перерисовывать содержимое.

[fyedor]

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

обработка WM_VSCROLL родительского окна будет заключаться просто в вызове InvalidateRect для дочернего.

А не могли бы точно описать функцию InvalidateRect, а то там есть параметр CONST RECT *lpRect. Я что-то не понимаю, как его в VBA можно объявить...

У меня есть:

1.

Dim SBI As SCROLLBARINFO

Case WM_PAINT

GetScrollBarInfo Form_Form1.hwnd, 1, SBI

где
Form_Form1.hwnd - идентификатор родительского окна.

2.

Dim RC As Long

Case WM_HSCROLL Or WM_VSCROLL

newhwnd = FindWindowExA(hwnd, FindWindowExA(hwnd, 0, "OFormSub", ""), "OFormSub", "")
InvalidateRect newhwnd, RC, False

где
hwnd - идентификатор родительского окна.
newhwnd - идентификатор дочернего окна

[EUGY]

Часто InvalidateRect объявляется так:

Public Declare Function InvalidateRect Lib "user32" Alias "InvalidateRect" (ByVal hwnd As Long, lpRect As RECT, ByVal bErase As Long) As Long

Но в описании в msdn говорится, что второй параметр может быть нулем, если нужно перечертить всю зону окна. Поэтому я в тлб описал так:

Public Declare Function InvalidateRect Lib "user32" Alias "InvalidateRect" (ByVal hwnd As Long, ByVal lpRect As long, ByVal bErase As Long) As Long

И это позволит вызывать функцию двояко:

InvalidateRect hWnd, 0, False
Dim rc As RECT
rc.Right = 10
rc.bottom = 20
InvalidateRect hWnd, VarPtr(rc), False

[fyedor]

Замечательно!

InvalidateRect отрабатывает почти на ура.

Я его использую пока без вызова GetScrollBarInfo в WM_PAINT, поэтому фигура перемещается по форме вместе с прокруткой. Но к сожалению в конце прокрутки она исчезает почему-то и появляется только когда начинаю прокручивать вверх.

[fyedor]

Кстати,


метод GetScrollBarInfo hwnd As lond, idObject As Long, psbi As SCROLLBARINFO

Второй его параметр idObject - это id на рассматриваемый объект? Или что-то другое. Если да, то откуда его можно достать?

[EUGY]

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

GetScrollBarInfo- полнстью описан в мсдн. Второй параметр это одна из трех констант
OBJID_CLIENT OBJID_HSCROLL OBJID_VSCROLL
Если ставится первая константа OBJID_CLIENT, то хендл окна в первом параметре должен указывать на окно класса SCROLLBAR
Думаю вам надо не ее, а другие две. Хотя что мешает получить хендл непосредственно скролбара. Поставьте утилитку spy++,
с ней можно изучить структуру окон и отслеживать обмен сообщений.

[fyedor]

Да, читал про это.

Пробовал константу OBJID_VSCROLL. Но она не объявлена в вашей библиотеке. И не понятно, какое ей присваивать значение. Написано 0xFFFFFFFB, но не понятно как присваивать такие значения...

Разобрался, вот так:

Private Const OBJID_VSCROLL = &HFFFFFFFB

[EUGY]

Походу мне было влом..

Const OBJID_WINDOW = &H0
Const OBJID_SYSMENU = &HFFFFFFFF
Const OBJID_TITLEBAR = &HFFFFFFFE
Const OBJID_MENU = &HFFFFFFFD
Const OBJID_CLIENT = &HFFFFFFFC
Const OBJID_VSCROLL = &HFFFFFFFB
Const OBJID_HSCROLL = &HFFFFFFFA
Const OBJID_SIZEGRIP = &HFFFFFFF9
Const OBJID_CARET = &HFFFFFFF8
Const OBJID_CURSOR = &HFFFFFFF7
Const OBJID_ALERT = &HFFFFFFF6
Const OBJID_SOUND = &HFFFFFFF5

[fyedor]

Прописал метод:

GetScrollBarInfo Form_Form1.hwnd, OBJID_VSCROLL, SBInfo

где

Dim SBInfo As SCROLLBARINFO

но структура не заполняется данными...

[EUGY]

Функция хочет знать размер структуры.
SBInfo.cbSize = lenB(SBInfo)