Ejemplos usando el Api de windows para Visual basic

18 - Aplicar transparencia a imágenes - Api AlphaBlend

Contenido

Ejemplo 1
Ejemplo 2
Relacionados

Ejemplo 1

Este ejemplo lo hice basado en parte a un ejemplo del Api Guide, y muestra como podemos aplicar a un mapa de bits, por ejemplo de un picture o de un formulario, un cierto grado alpha de transparencia utilizando la función Api AlphaBlend .. que no es nada complicada de usar.

Los valores puden ir de 0 a 255, donde en 0 la imágen no se vé y én 255 la imágen se muestra tal cual. Yo lo adapté para graduarlo mediante un ScrollBar a modo de ejemplo.

Para probar el ejemplo colocar 2 picturebox (Picture1 y Picture2). En los 2 Picture cargar 2 imágenes. De este modo cuando movamos el scrollbar, se copiará la imágen del picture1 en el picture2, pero se copiará con el grado alpha que tenga el scrollbar.Value.

En conclusión se pueden ver las 2 imágenes superpuestas y mezcladas, de acuerdo al grado alpha que le hemos puesto con la barra.

Nota: esto es optativo de usar 2 picturebox y los 2 que estén cargados con imágenes. Por ejemplo, si en el picture2 no ponemos ninguna imágen, el ejemplo funciona igual, pero solo se verá la imágen con el efecto alpha del Picture1. Esto lo podemos usar en cualquier control que tenga la propiedad hdc (PictureBox y formularios).

Por último, si bien está comentado en el código, lo que realmente regula el grado de transparencia es la variable SourceConstantAlpha de la estructura BLENDFUNCTION, que es de tipo byte, osea que el valor máximo puede ser 255 y el minimo 0, cualquier otro valor obviamente dará error de desbordamiento.

Una previa de imágen del ejemplo:

Transparencia de imágenes mediante el Api

Código fuiente en un formulario

'Constantes Const AC_SRC_OVER = &H0 'Estructura para la función Api AlphaBlend Private Type BLENDFUNCTION BlendOp As Byte BlendFlags As Byte SourceConstantAlpha As Byte AlphaFormat As Byte End Type ' Función Api AlphaBlend Private Declare Function AlphaBlend Lib "msimg32.dll" _ (ByVal hdc As Long, _ ByVal lInt As Long, _ ByVal lInt As Long, _ ByVal lInt As Long, _ ByVal lInt As Long, _ ByVal hdc As Long, _ ByVal lInt As Long, _ ByVal lInt As Long, _ ByVal lInt As Long, _ ByVal lInt As Long, _ ByVal BLENDFUNCT As Long) As Long Private Declare Sub RtlMoveMemory Lib "kernel32.dll" _ (Destination As Any, _ Source As Any, _ ByVal Length As Long) Private Sub HScroll1_Change() 'Mostramos el valor en el caption del formulario Me.Caption = "Valor de la transparencia Alpha: " & HScroll1.Value 'Cada ves que cambia el valor del Scroll borramos lo anterior en el Picture2 Picture2.Cls Dim BF As BLENDFUNCTION, lBF As Long Picture1.AutoRedraw = True Picture2.AutoRedraw = True Picture1.ScaleMode = vbPixels Picture2.ScaleMode = vbPixels 'Establecemos los parametros de la estructura With BF .BlendOp = AC_SRC_OVER .BlendFlags = 0 'Acá establecemos el valor del alpha mediante el scroll .SourceConstantAlpha = HScroll1.Value .AlphaFormat = 0 End With 'Copiamos la estructura a un long Call RtlMoveMemory(lBF, BF, 4) 'Llamamos a Alphablend para copiar el picture1 en el picture2 'el primer parametro es el hdc del control de destino, osea el picture2 'El parámetro Hdc es el dispositivo Fuente, es decir en este caso el Picture1 _ 'Los demás parámetros son las coordenadas x1, x2, y1, y2, ancho, alto etc... _ 'similares a la función PaintPicture del Visual Basic Call AlphaBlend(Picture2.hdc, 0, 0, Picture2.ScaleWidth, Picture2.ScaleHeight, _ Picture1.hdc, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, lBF) End Sub

Ejemplo 2 - Efecto animado con Alpha Blending

Este es otro proyecto para descargar creado por Alexander Anikin , que usa dicha función Api para crear un efecto animado de transparencia entre dos imagenes que se superponen. Una de las imagenes está cargada en el form, y otra es la misma imagen cargada en un picture, pero dicho gráfico que está en el picbox está en escala de grises

Descargar

Recursos vb - Ejemplos relacionados

Buscar en Recursos vb