Pegar un PictureBox en otro

Fecha: 28/Ene/2004 (27-01-2004)
Autor: Carles Tricuera [email protected]

Tuve que desarrollar un aplicativo que a partir de un fichero de base de datos Access (.mdb), acababa dibujando un organigrama. Dado que el tama�o de dicho organigrama era imprevisible debido a que depend�a de ciertas selecciones previas del usuario, me lo mont� todo en un control "PictureBox" aprovechando los m�todos gr�ficos de �ste. Hasta ah�, ning�n problema; �stos surgieron a la hora de querer incluir en alg�n lugar de la imagen final, un logotipo.
Si a�ad�a un control "Image" u otro control "Picture" en el inicial (los controles picture son contenedores) con la imagen del logotipo previamente cargada, me encontraba con que por pantalla se mostraban tanto los controles contenidos como los elementos creados por m�todos gr�ficos pero a la hora de imprimir los resultados o guardarlos en un fichero de imagen (BMP, JPG, etc.) solo se reflejaban los gr�ficos; los controles eran como sino existieran.
Prob� con las diversas funciones de las que dispone la API y que hacen referencia a los contextos de dispositivo y consegu� imprimir y guardar gr�ficos y controles a la vez pero s�lo los que se encuentran visibles en la pantalla; los que quedaban fuera de los l�mites de esta eran ignorados por lo que las funciones API, pese a su potencia tampoco me solucionaron el problema.

Al final "se me encendi� la bombilla"

Alg�n sabio dijo: "Lo m�s r�pido, seguro y eficaz es siempre lo m�s sencillo" y es curioso comprobar lo cierta que resulta la cita sobre todo en el mundo de la inform�tica.
Se me ocurri� que si cargaba el logotipo en un peque�o PictureBox invisible, le�a sus pixeles con el m�todo Point y los pintaba sobre el Picture de destino con el m�todo Pset, la cosa podr�a funcionar. Y as� fue; el problema quedaba resuelto con un par de bucles FOR NEXT anidados.

El poco c�digo necesario es el siguente:

  Dim DatoPixel As Long, X As Integer, Y As Integer, DestinoX As Integer, DestinoY As Integer

  ' Los valores de DestinoX y DestinoY pueden ser cualquier coordenada en pixels
  ' que esten dentro de los l�mites del picture de destino.
  
  DestinoX = 50: DestinoY = 100


  ' Nos aseguramos de interpretar las medidas i coordenadas en "pixeles"
  
  Origen.ScaleMode = 3 ' "Origen" es el picture que contiene la imagen que queremos "pegar"
  Destino.ScaleMode = 3 ' "Destino" es el picture en el cual queremos "pegar" el origen
  
  
  '"escaneamos" la imagen de origen que vamos a "pegar" en destino"
  
  For X = 0 To Origen.ScaleWidth - 1
    For Y = 0 To Origen.ScaleHeight - 1
      DatoPixel = Origen.Point(X, Y)  'leemos el color del pixel de origen
      Destino.PSet (DestinoX + X, DestinoY + Y), DatoPixel  'pintamos el pixel leido, en Destino
     Next
  Next

Este m�todo es particularmente eficaz cuando la imagen de origen es de reducidas dimensiones. En im�genes extensas, los bucles pueden tomarse su tiempo pero en general las im�genes o porciones de imagen que se "pegan" en otras no acostumbran a ser muy grandes.
Si lo que queremos "pegar" es solo una porci�n de la imagen de origen, no tenemos m�s que "jugar" con los valores de inicio y final de las variables X e Y de los bucles; adem�s, podemos hacer que un color o colores determinados de la imagen de origen sean transparentes simplemente con no pintarlos en destino.

Formulario de ejemplo.

En el peque�o ejemplo que adjunto se incluyen los procedimientos para "hacer" colores transparentes as� como para "salvaguardar" el �rea donde se "pegar�" la imagen de origen para poder hacer "marcha atr�s" si es necesario.

Nada m�s. Espero que todo ello os resulte de utilidad.