Ejemplos usando el Api de windows para Visual basic

5 - Pegar imagen del portapapeles en un Picture con el Api

Como dice el título mediante el Api CopyImage y las funciones SetClipboardData, EmptyClipboard, OpenClipboard y CloseClipboard que se utilizan para el manejo del portapapeles de windows, se muestra como copiar una imagen del clipboard en un picture por ejemplo o un formulario.

En este ejemplo de muestra primero agregamos un Picture1 cargado con una imagen que será la que copiaremos al portapapeles mediante la función Api CopyImage.

Luego colocamos en un Picture2 en donde se copiará la imagen del portapapeles. Podemos especificar el ancho y alto de la copia mediante los parámetros de CopyImage.

Controles

Colocar 2 PictureBox
Un Command1
2 TextBox (Text1 y Text2)

Copiar al portapapeles una imagen con el Api Copyimage

Código en un formulario:

Option Explicit 'Constantes para pasar a la función Api CopyImage Private Const IMAGE_BITMAP = 0 Private Const LR_COPYRETURNORG = &H4 Private Const CF_BITMAP = 2 'Funciones Api para el manejo del portapapeles Private Declare Function SetClipboardData Lib "user32" ( _ ByVal wFormat As Long, _ ByVal hMem As Long) As Long Private Declare Function EmptyClipboard Lib "user32" () As Long Private Declare Function CloseClipboard Lib "user32" () As Long Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long 'Función Api CopyImage para copiar una imágen Private Declare Function CopyImage Lib "user32" ( _ ByVal handle As Long, _ ByVal imageType As Long, _ ByVal newWidth As Long, _ ByVal newHeight As Long, _ ByVal lFlags As Long) As Long Private Sub Command1_Click() Dim hNew As Long 'Creamos una copia de la imágen y la asignamos a un long. _ El parámetro 3 y 4 indican el ancho y alto de la imagen que _ se copiará en el portapapeles hNew = CopyImage(Picture1.Picture, _ IMAGE_BITMAP, _ Val(Text1), _ Val(Text2), _ LR_COPYRETURNORG) 'Abrimos el portapapeles pasandole el hwnd de nuestra aplicación OpenClipboard Me.hwnd 'Borramos el contenido del portapapeles con _ EmptyClipboard para luego pegar la imagen EmptyClipboard 'Pegamos la imagen con el Api SetClipBoardData _ indicando que es un mapa de bits y le enviamos _ el handle de la imagen obtenido anteriormente SetClipboardData CF_BITMAP, hNew 'Cerramos el portapapeles usando el Api CloseClipboard CloseClipboard 'Recuperamos y Pegamos la imagen de tipo 2(BMP) en el _ picture2 con la función de Visual Basic ClipBoard usando el método GetData Picture2.Picture = Clipboard.GetData(2) End Sub Private Sub Form_Load() Text1 = "" Text2 = "" Command1.Caption = "Copiar a picture2" On Error Resume Next Picture1 = LoadPicture("c:\windows\a pescar.bmp") End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If IsNumeric(Chr(KeyAscii)) Or KeyAscii = 8 Then KeyAscii = KeyAscii Else KeyAscii = 0 End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) ' solo números If IsNumeric(Chr(KeyAscii)) Or KeyAscii = 8 Then KeyAscii = KeyAscii Else KeyAscii = 0 End If End Sub

Enlaces relacionados:

Api GetClipboardData - obtener datos del portapapeles de Windows

Buscar en Recursos vb