Overlay de
Imágenes Fecha: 09/Sep/2004 (06/Sep/2004) |
Es es un pequeño truco para los que hemos utilizado el metodo overlay del ImageList de VB 6.0 para componer imagenes. Dado que en .NET este método fue eliminado decidi armar el mio.
La rutina es bastante simple. Recibe las dos imagenes a componer y el color a utilizar como transparente y devuelvo la nueva imagen. Si no se especifica el color, .NET utiliza por defecto el color Negro.
Aqui esta el codigo comentado de las funciones:
Public Function Overlay(ByVal SourceImage As Bitmap, ByVal OverlayImage As Bitmap) As Bitmap 'Llama a la version con Color Return Overlay(SourceImage, OverlayImage, Color.Black) End Function Public Function Overlay(ByVal SourceImage As Bitmap, ByVal OverlayImage As Bitmap, ByVal ColorTransparent As Color) As Bitmap Dim g As Graphics 'Obtengo Graphic de la imagen de fondo para poder dibujar sobe ella g = Drawing.Graphics.FromImage(SourceImage) 'Hago trasparente la imagen que vamos a superponer OverlayImage.MakeTransparent(ColorTransparent) 'Dibujo la imagen sobre el fondo g.DrawImage(OverlayImage, 0, 0) 'Elimino manejador grafico g.Dispose() 'Devuelve la imagen mezclada Return SourceImage End FunctionPara utilizar estas rutinas basta con llamarlas desde cualquier lugar del codigo y se obtiene una imagen compuesta de las otras dos.
Espero que les sea útil.
Saludos.
Fichero con el código de ejemplo: cbigentini_OverlayDeImagenes.zip - 18 KB