Менять прозрачность картинки

[percilacus]

Доброго времени суток!
Пусть имеется картинка на форме:

Код: Выделить всё

Dim Gr As Graphics = Me.CreateGraphics
Dim kartinka As New Bitmap("D:\docs\foto.jpg")
Gr.DrawImage(kartinka, 0, 0)

Спрашивается, как быстро одним оператором изменить прозрачность картинки?
Можно, конечно, перебирать пикселы этой картинки в цикле и менять там ARGB составляющие, но, во-первых, это гемор, во-вотрых, это долго
Зы: VB2005 .NET

[MIT]

http://dotnet-club.ru/viewtopic.php?f=9&t=52
Пункт "Установка общей прозрачности"

[percilacus]

http://dotnet-club.ru/viewtopic.php?f=9&t=52
Пункт "Установка общей прозрачности"

Я же сказал не перебирать пикселы в цикле, а то долго вычисляется.
Идея такова, чтобы при наведении мышкой на картинку ее прозрачность плавно увеличивалась от 50% до 100% примерно за 2 сек, а когда мышку прочь, то прозрачность снова плавно уменьшалась до 50%

[MIT]

Ты пробовал мой алгоритм? Я почти уверен, что написать быстрее не получиться. Если руки прямые, то там хоть 1000х1000 прозрачность в реалтайме меняй.

А без перебора пикселей (у меня, кстати, идет прямая работа с памятью, а не с пикселями) тебе не обойтись в любом случае, ибо кнопочки "шоб нажал и хотелка исполнилась" не существует.

[Joo]

http://dotnet-club.ru/viewtopic.php?f=9&t=52
Пункт "Установка общей прозрачности"

Я же сказал не перебирать пикселы в цикле, а то долго вычисляется.
Идея такова, чтобы при наведении мышкой на картинку ее прозрачность плавно увеличивалась от 50% до 100% примерно за 2 сек, а когда мышку прочь, то прозрачность снова плавно уменьшалась до 50%

Ты проверь сначала!!! Не нравится? Я где-то я видел API AlphaBlend из "msimg32.dll"

[MIT]

долго вычисляется

wa_transparent_sample.rar

Вот тебе долго. Смотри.

(11.83 Кб) Скачиваний: 100

[Ronin]

OFFTopic: WPF рулит

[percilacus]

Ты проверь сначала!!! Не нравится? Я где-то я видел API AlphaBlend из "msimg32.dll"

Не нравится! И че??

[percilacus]

Сколько не рыл MSDN так и не нашел быстрого способа.
Видимо, на чистом VB так и придется перебирать пикселы, правильно сказал MIT

[Joo]

Ты проверь сначала!!! Не нравится? Я где-то я видел API AlphaBlend из "msimg32.dll"

Не нравится! И че??

Х... через плечо, извиняюсь перед администрацией, не сдержался! Гугли AlphaBlend

или

Код: Выделить всё

Dim cm as new ColorMatrix()
cm.Matrix33=(значение в пределах 0f - 1f)
Dim ia as ImageAttributes()
ia.SetColorMatrix(cm)
e.Graphics.DrawImage(imagea, бла-бла-бла)
e.Graphics.DrawImage(imageb,бла-бла-бла, ia) 'Используем ImageAttributes...