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

[fyedor]

Возник вопрос: кто-нибудь работал с прозрачностью в WinApi применительно к VBA? Какие методы надо использовать?

[LittleFatCat]

Доброго времени суток!

http://excelvba.ru/code/Transparency

Посмотрите вот здесь... Вообще весьма полезный ресурс

[fyedor]

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

Доброго времени суток!

http://excelvba.ru/code/Transparency

Посмотрите вот здесь... Вообще весьма полезный ресурс

Да, полезный, но там речь идем о прозрачности форм и WinApi в Excel. У меня же Access и прорачность нужно выставить у объектов, созданных с помощью того же WinApi (например, круг).

В принципе, даже построение удалось сделать:

определяю дескриптор окна:

hWnd = FindWindowEx(Me.hWnd, FindWindowEx(Me.hWnd, 0, "OFormSub", ""), "OFormSub", "")

Устанавливаю кисть и заливку:

MyPen = apigetPen(5, 2, RGB(255, 0, 0))
Call apiSelectObject(hdc, MyPen)

MyBrash = ApiGetBrush(4, RGB(255, 0, 0))
Call apiSelectObject(hdc, MyBrash)

Применяемые функции определены с использованием библиотек user32.dll и gdi32.dll.

Ну и в конце произвожу построение сектора, по установленным координатам:

Call apiPie(hdc, X1, Y1, X2, Y2, 4500, 250, 130, 150)

Проблемы:

1. Плохое определение координат сектора. Что я имею в виду? Я имею в виду то, что если прокрутить форму Access вниз и вновь нарисовать сектор его координаты примут значения другие...а хотелось бы, чтобы координаты были жестко привязаны к форме и не изменялись при ее прокрутке.

2. При выходе сектора за область окна экрана происходит его обрезание. Тут видимо нужно как-то реагировать на изменение размеров окна приложения и вызывать обновление (refresh).

3. Хотелось бы реализовать прозрачность сектора. Есть метод AlphaBlend...но его применяют для прозрачности рисунков на форме, а у меня объект, созданный с помощью WinApi.

[EUGY]

3. Хотелось бы реализовать прозрачность сектора. Есть метод AlphaBlend...но его применяют для прозрачности рисунков на форме, а у меня объект, созданный с помощью WinApi.

А Вы создайте контекст в памяти / CreateCompatibleDC / нарисуйте на нем нужный элемент, сектор или что у Вас там, а потом сделайте наложение на hdc формы через AlphaBlend.

[fyedor]

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

А Вы создайте контекст в памяти / CreateCompatibleDC / нарисуйте на нем нужный элемент, сектор или что у Вас там, а потом сделайте наложение на hdc формы через AlphaBlend.

Если я Вас правильно понял, должно получиться что-то наподобии этого:

hMemDC = apiCreateCompatibleDC(hdc)
    
With bfn
  .BlendOp = AC_SRC_OVER
  .BlendFlags = 0
  .SourceConstantAlpha = 128
  .AlphaFormat = 0
End With
    
RtlMoveMemory LBF, BF, 4
Call apiAlphaBlend(hdc, 0, 0, 10000, 10000, hMemDC, 0, 0, 10000, 10000, LBF)
Call apiPie(hdc, X1, Y1, X2, Y2, 4500, 250, 130, 150)

Где bfn - переменная, созданного мною типа данных для хранения требуемой структуры:

Private Type BLENDFUNCTION
  BlendOp As Byte
  BlendFlags As Byte
  SourceConstantAlpha As Byte
  AlphaFormat As Byte
End Type

Dim bfn As BLENDFUNCTION

Но такая реализация не делает мой объект прозрачным...

[EUGY]

Не так быстро
Я воздержусь приводить код, но за свои слова отвечаю.
Вам надо создать совместимый контекст /CreateCompatibleDС/, создать битмэп нужного размера /CreateCompatibleBitmap/, выбрать его в контексте /SelectObject/
нарисовать Pie на этом новом контексте, а не на контексте формы, как пытались сделать Вы. И вот только после этого /AlphaBlend/. И кроме того, еще должен быть рисунок/маска. Вообщем принцип, как у /DrawIcon/.
И еще бы посоветовал не делать синонимы alias Api-функций типа
CreateCompatibleDC >> apiCreateCompatibleDC.
Конечно это дело хозяйское, но я бы все апи-декларации забил бы в TLB c помощью midl, и подключал бы через References в VB/VBA.

[fyedor]

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

Не так быстро

Ну давайте по порядку

' Создал совместимый контекст
hMemDC = apiCreateCompatibleDC(hdc)

' Создал битмэп нужного размера. Вопрос: 1. Контекст совместимый применять?
CompatibleBitmap = CreateCompatibleBitmap(hMemDC, 1000, 1000)

'  Выбираю битмэп. Опять же, 2. какой применять контекст?
Call apiSelectObject(hMemDC, CompatibleBitmap)

' Кисть и заливка. 3. Применять совместимый контекст?
MyPen = apigetPen(5, 2, RGB(255, 0, 0))
Call apiSelectObject(hMemDC, MyPen)
MyBrash = ApiGetBrush(4, RGB(255, 0, 0))
Call apiSelectObject(hMemDC, MyBrash)
    
RtlMoveMemory LBF, BF, 4

' Рисую сектор. Опять же, 4. какой контекст?    
Call apiPie(hMemDC, X1, Y1, X2, Y2, 4500, 250, 130, 150)

' Ну и здесь 5. какой контекст?
Call apiAlphaBlend(hMemDC, 0, 0, 10000, 10000, hMemDC, 0, 0, 10000, 10000, LBF)

' 6. Что значит должен быть рисунок/маска?

[EUGY]

deskDC = GetDC(0) // Не забыть потом ReleaseDC
hMemDC = apiCreateCompatibleDC(deskDC)

' Создал битмэп нужного размера.
CompatibleBitmap = CreateCompatibleBitmap(deskDC, 1000, 1000)
......
......
Call apiAlphaBlend(hdc,.........., hMemDC,...........

Наложение прозрачное ?

[fyedor]

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

Наложение прозрачное ?

Есть форма Access, на ней рисунок (некая карта местности), на карту наносится фигура (например, сектор). Вот эта фигура должна быть полупрозрачной, чтобы можно было видеть саму карту.

[fyedor]

Сделал вот так:

 deskDC = apiGetDC(0) 
 hMemDC = apiCreateCompatibleDC(deskDC)

CompatibleBitmap = CreateCompatibleBitmap(deskDC, 1000, 1000)
Call apiSelectObject(deskDC, CompatibleBitmap)
    
 MyPen = apigetPen(5, 2, RGB(255, 0, 0))
 Call apiSelectObject(hdc, MyPen)

 MyBrash = ApiGetBrush(4, RGB(255, 0, 0))
 Call apiSelectObject(hdc, MyBrash)

 With bfn
    .BlendOp = AC_SRC_OVER
    .BlendFlags = 0
    .SourceConstantAlpha = 128
    .AlphaFormat = 0
 End With

 RtlMoveMemory LBF, BF, 4

 Call apiPie(hdc, X1, Y1, X2, Y2, 4500, 250, 130, 150)
 Call apiAlphaBlend(hdc, 0, 0, 100, 100, hMemDC, 0, 0, 100, 100, LBF)

Он выводит сектор, но не прозрачный, хотя в поле SourceConstantAlpha указано 128. Что не так?