AlphaBlend в Access - Microsoft Office Access

fyedor · 13.02.2013, 13:25

Добрый день.

Возник вопрос: как можно применить функцию WinApi "AlphaBlend" в VBA Access, чтобы сделать картинку, помещенную на форму Access, полупрозрачной?

Заранее спасибо.

Андрэич · 13.02.2013, 23:50

А описание самой функции, параметры, константы есть?

fyedor · 14.02.2013, 07:51

Цитата:

Сообщение от Андрэич

А описание самой функции, параметры, константы есть?

Ну это функция WinApi. Я думаю, кто понимает суть - тому не нужно описание этой функции. Но ладно.

Описание функции я не буду писать - оно в интернете есть. В моем случае, наверное, надо сначала создать битмэп в виде картинки, а вотом вызывать функцию AlphaBlend, с соответствующими параметрами. Но проблема, я не могу понять как создать битмэп в виде картинки в Access..

Будет что-то наподобии:

Код:

AlphaBlend hdc, 0, 0, 300, 300, hMemDC, 0, 0, 300, 300, f.blenfunc

где hdc - индентификатор главного окна,
hMemDC - идентификатор битмпа.

Ну а f - соответствующая структура с параметрами полупрозрачности. Ее описание не важно в данный момент.

fyedor · 14.02.2013, 10:25

Ребята, неужели никто не может помочь? Очень надо.

Андрэич · 14.02.2013, 11:39

Цитата:

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

Ребята, неужели никто не может помочь? Очень надо.

Вам написали, вы ответили "Ну ладно"...

fyedor · 14.02.2013, 11:49

Пробую вот так создавать битмэп:

Код:

MyBitmap = CreateBitmap(KartaTop.Width, KartaTop.Height, 1, 32, KartaTop.Picture)

,
где CreateBitmap - функция WinApi. KartaTop - рисунок на форме Access.

Но программа слетает при выполнении этой функции.

Андрэич · 14.02.2013, 12:39

Цитата:

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

программа слетает при выполнении этой функции.

Что значит "слетает", не со стола же? Ошибку какую пишет - номер, описание? (Это знаете только вы - и точно в интернете не найти

)

Андрэич · 14.02.2013, 12:53

Вторая догадка: слетает - это значит "молча" выходит из процедуры раньше времени. Ставьте брейкпоинты, окно Locals к вашим услугам и т.д. (точно, не мне вас учить, как заниматься отладкой)

fyedor · 14.02.2013, 12:59

Вторая догадка верна.

Отладка не помогает. Причина и так ясна: неправильное использование функций WinApi. И Андрэич, более в ваших услугах не нуждаюсь. Ваши вопросы и фразы проблему не решат. Мне нужен человек, который имел дело с WinApi и может написать что-то внятное и главное, по теме. Вот EUGY, мне хорошо помог. Жаль он давно не появлялся на форуме.

13.02.2013, 13:25	#1
fyedor Пользователь Регистрация: 11.12.2012 Сообщений: 71	AlphaBlend в Access Добрый день. Возник вопрос: как можно применить функцию WinApi "AlphaBlend" в VBA Access, чтобы сделать картинку, помещенную на форму Access, полупрозрачной? Заранее спасибо.

14.02.2013, 11:49	#6
fyedor Пользователь Регистрация: 11.12.2012 Сообщений: 71	Пробую вот так создавать битмэп: Код: `MyBitmap = CreateBitmap(KartaTop.Width, KartaTop.Height, 1, 32, KartaTop.Picture)` , где CreateBitmap - функция WinApi. KartaTop - рисунок на форме Access. Но программа слетает при выполнении этой функции.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
AlphaBlend	mrbadge	Мультимедиа в Delphi	1	13.09.2012 12:55
AlphaBlend и onResize	D][mon	Помощь студентам	0	29.09.2010 22:06
Image и AlphaBlend	Zeraim	Общие вопросы Delphi	4	09.09.2009 12:45
Прозрачность - AlphaBlend	nazavrik	Win Api	5	04.09.2009 02:20
AlphaBlend + ShowModal	Cardagant	Общие вопросы Delphi	2	11.06.2008 15:42

13.02.2013, 23:50	#2
Андрэич Форумчанин Регистрация: 20.05.2012 Сообщений: 311	А описание самой функции, параметры, константы есть?

14.02.2013, 10:25	#4
fyedor Пользователь Регистрация: 11.12.2012 Сообщений: 71	Ребята, неужели никто не может помочь? Очень надо.

14.02.2013, 12:53	#8
Андрэич Форумчанин Регистрация: 20.05.2012 Сообщений: 311	Вторая догадка: слетает - это значит "молча" выходит из процедуры раньше времени. Ставьте брейкпоинты, окно Locals к вашим услугам и т.д. (точно, не мне вас учить, как заниматься отладкой)

14.02.2013, 12:59	#9
fyedor Пользователь Регистрация: 11.12.2012 Сообщений: 71	Вторая догадка верна. Отладка не помогает. Причина и так ясна: неправильное использование функций WinApi. И Андрэич, более в ваших услугах не нуждаюсь. Ваши вопросы и фразы проблему не решат. Мне нужен человек, который имел дело с WinApi и может написать что-то внятное и главное, по теме. Вот EUGY, мне хорошо помог. Жаль он давно не появлялся на форуме.