Ejemplos usando el Api de windows para Visual basic

49 - Api BitBlt para copiar una imagen como mosaico en PictureBox o formularios

Contenido

Ejemplo 1 ( Utilizando el Api)
Ejemplo 2 ( Sin utilizar el Api)
Relacionados

Ejemplo 1 - Con Api

Código fuente de ejemplo que usa el Api BitBlt para copiar una imagen cargada en un PictureBox. El efecto de mosaico se puede realizar en un formulario o en un Picture ya que poseen la propiedad HDC,

En este ejemplo la imagen se copia como fondo en un formulario.

Vista del form

Función Api BitBit para copiar imagenes como fondo en los controles que poseen Hdc

En el ejemplo la función Mosaico lleva 2 parámetros, el primero es el Control PictureBox o Formulario de destino (donde se copiará el fondo), el segundo parámetro es el Control (formulario o PictureBox) que contiene el gráfico cargado.

Para ocultar el Picture se podría sacarlo de la pantalla, es decir del área visible para que de esta forma no se vea.

Nota: como dije, aunque las variable en el parámetro de la Rutina Mosaico se llame Frm y paresca que se puede solo enviar un formulario, se puede utilizar para enviar un Picture, ya que la variable está declarada como de tipo Object y no como de tipo Form.

Código fuente en un form

Option Explicit 'Función Api Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC 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 dwRop As Long) As Long 'constante para el Api BitBlt Const SRCCOPY = &HCC0020 Private Sub Command1_Click() Mosaico Me, Picture1 End Sub Private Sub Form_Load() 'Cargamos una imagen With Picture1 .Picture = LoadPicture("c:\windows\plumas.bmp") .AutoSize = True End With End Sub Sub Mosaico(frm As Object, Pic As Object) Dim AnchoPic As Integer Dim AltoPic As Integer, AnchoForm As Integer, AltoForm As Integer Dim x As Integer, y As Integer Dim ret As Integer, ScaleAnterior As Integer 'recuperamos el ancho y alto del PictureBox en pixeles ScaleAnterior = Pic.ScaleMode Pic.ScaleMode = 3 AnchoPic = Pic.ScaleWidth AltoPic = Pic.ScaleHeight Pic.ScaleMode = ScaleAnterior 'recuperamos el ancho y alto del formulario en pixeles AnchoForm = frm.Width / Screen.TwipsPerPixelX AltoForm = frm.Height / Screen.TwipsPerPixelY 'realizamos la copia. En el bucle Y se copia de arriba a abajo, y en x de izq a derecha For x = 0 To AnchoForm Step AnchoPic For y = 0 To AltoForm Step AltoPic 'Le pasamos los Hdc a BitBlt y las dimenciones y coordenadas de la copia ret = BitBlt(frm.hDC, x, y, AnchoPic, AltoPic, Pic.hDC, 0, 0, SRCCOPY) Next Next End Sub

Ejemplo 2 - Sin usar el Api

La siguiente función , crea unos image en tiempo de ejecución con el método Add de la colección Controls de vb y los posiciona uno al lado del otro para colocar la imagen como BackGround en mosaico

A la función , pasarle en el primer parámetro el objeto ( Un form o PicBox ). El segundo parámetro es la ruta del archivo de imagen que se utilizará.

En un Form

Public Sub Mosaico(Ctl As Object, ByVal Ruta As String) Dim ArrayDeImage() As VB.Image ReDim Preserve ArrayDeImage(1) ' crea el primer control en tiempo de ejecución Set ArrayDeImage(0) = Ctl.Controls.Add("VB.image", "img") ' le carga el mapa de bits ArrayDeImage(0).Picture = LoadPicture(Ruta) ' ancho y alto de la pantalla hmax = Screen.Width / ArrayDeImage(0).Width + 2 Ancho = Screen.Height / ArrayDeImage(0).Height + 2 For l = 1 To Ancho ' ancho del form o picture For h = 1 To hmax ' indice cpt = cpt + 1 ' redimensiona el array para crear otro ReDim Preserve ArrayDeImage(cpt) ' lo crea Set ArrayDeImage(cpt) = Ctl.Controls.Add("VB.image", "img" & cpt) With ArrayDeImage(cpt) .Visible = True ' lo hace visible ' le asigna la imagen .Picture = ArrayDeImage(0).Picture ' posición top y posición izquierda .Top = l * .Height - (.Height) .Left = h * .Width - (.Width) End With Next Next End Sub Private Sub Form_Load() ' le pasa el formulario actual y la ruta del gráfico Call Mosaico(Me, "c:\windows\plumas.bmp") End Sub

Relacionados

Buscar en Recursos vb