Ejemplos usando el Api de windows para Visual basic

56 - Ejemplo del Api TransparentBlt para copiar una imagen y establecer un color de la misma como transparente

Este ejemplo consiste en copiar una imagen que está ubicada en un control Picture1 a otro Picture2. La imagen copiada con TransparentBlt, se le establece en el último parámetro un valor de color. Ese color lo tomará como transparente en la imagen original, y como resultado en este caso, en el Picture2 esa área no se copiará, es decir será transparente.

Para que este método funcione, la imagen debe contener un área con el mismo color que le pasamos como valor de color.

Por ejemplo como esta imagen que muestra la imagen original con unas regiones en color verde, y en el Picture2 dicha región se copia como transparente.

vista previa del ejemplo que utiliza el api transparentBit para establecer zonas transpaentes en un gráfico cargado en un control Picturebox

Descargar ejemplo

Código en un formulario:

Option Explicit 'Declaración del Api TransparentBlt Private Declare Function TransparentBlt _ Lib "msimg32.dll" ( _ ByVal hdc As Long, _ ByVal x As Long, _ ByVal y As Long, _ ByVal nWidth As Long, _ ByVal nHeight As Long, _ ByVal hSrcDC As Long, _ ByVal xSrc As Long, _ ByVal ySrc As Long, _ ByVal nSrcWidth As Long, _ ByVal nSrcHeight As Long, _ ByVal crTransparent As Long) As Boolean Dim color As Long Private Sub Command1_Click() 'Le pasamos el color verde color = vbGreen Picture2.Refresh End Sub Private Sub Command2_Click() 'Le pasamos al Api TransparentBlt el color rojo color = vbRed Picture2.Refresh End Sub Private Sub Command3_Click() 'Color azul color = vbBlue Picture2.Refresh End Sub Private Sub Command4_Click() 'Blanco color = vbWhite Picture2.Refresh End Sub Private Sub Command5_Click() 'Negro color = vbBlack Picture2.Refresh End Sub Private Sub Form_Load() Picture1.AutoSize = True 'Seteamos el modo de escala en pixeles Picture1.ScaleMode = vbPixels Picture2.ScaleMode = vbPixels 'Le establecemos el mismo ancho y alto a los PictureBox Picture2.Width = Picture1.Width Picture2.Height = Picture1.Height End Sub Private Sub Picture2_Paint() DoEvents 'El primer parámetro es el Hdc original, en este caso del Picture1 'las demás son las cooredenadas y las dimensiones tanto de destino como de origen 'El sexto parámetro s el hdc destino, en este caso el Picture2. _ Por último el color que tomará como transparente TransparentBlt Picture2.hdc, 0, 0, Picture2.ScaleWidth, Picture2.ScaleHeight, _ Picture1.hdc, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, color End Sub

Buscar en Recursos vb