Ejemplos usando el Api de windows para Visual basic

20 - Obtener texto del portapapeles mediante el Api GetClipboardData

Ejemplo del Api guide , que usa las funciones Api:

OpenClipboard (abre el portapapeles)
GetClipboardData (recupera los datos del clipboard)
CloseClipboard que cierra el Clipboard, es decir la referencia, podemos obtener los datos del mismo

En este ejemplo se muestra como rescatar los datos de texto

Nota: para indicar que queremos recuperar datos de texto se le pasa a la función GetClipboardData una constante llamada CF_TEXT que le indica que vamos a recuperar texto del Clipboard

Código fuente en un formulario

Option Explicit ' Declaraciones ''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Esta constante indica que recuperaremos texto Private Const CF_TEXT = 1 'Función para recuperar los datos Private Declare Function GetClipboardData Lib "user32" ( _ ByVal wFormat As Long) As Long ' función Api para cerrar el portapapeles Private Declare Function CloseClipboard Lib "user32" () As Long ' función Api para abrir el portapapeles Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" ( _ ByVal lpString As Long) As Long 'api CopyMemory Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _ pDst As Any, _ pSrc As Long, _ ByVal ByteLen As Long) Private Sub Command1_Click() MsgBox GetClipBoard, vbInformation End Sub ''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Function GetClipBoard() As String Dim hStrPtr As Long Dim lLength As Long Dim sBuffer As String 'Abrimos el Clipboard pasandole el hwnd de nuestro form Call OpenClipboard(Me.hwnd) 'Puntero a los datos del clipboard hStrPtr = GetClipboardData(CF_TEXT) 'Si da 0 dá error If hStrPtr <> 0 Then 'Averiguamos la longitud de la cadena con la API lstrLen _ pasándole como parametro el puntero a los datos del clipboard lLength = lstrlen(hStrPtr) 'Si es mayor a 0 quiere decir que hay texto If lLength > 0 Then 'Creamos un buffer que almacenara los datos devueltos sBuffer = Space$(lLength) 'llenamos el buffer con los datos especificando el _ puntero de memoria en el segundo parametro Call CopyMemory(ByVal sBuffer, ByVal hStrPtr, lLength) 'Retorna GetClipBoard = sBuffer End If End If 'Cerramos el clipboard Call CloseClipboard End Function Private Sub Form_Load() MsgBox "Copia un texto al portapapeles " & _ "y luego presiona el CommandButton", 32 Command1.Caption = "Obtener texto" End Sub

Nota : el equivalente en visual basic, sin usar el Api , podria ser algo por el estilo :

Option Explicit Private Sub Command1_Click() Dim ret As String ret = GetClipBoard If ret <> "" Then MsgBox ret, 32 Else MsgBox "No hay datos de texto", 32 End If End Sub ''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Function GetClipBoard() As String ' constantes de tipo de datos del Clipboard 'vbCFBitmap 'vbCFDIB 'vbCFEMetafile 'vbCFFiles 'vbCFLink 'vbCFMetafile 'vbCFPalette 'vbCFRTF 'vbCFText ' comprueba que el formato delos datos es Texto plano If Clipboard.GetFormat(vbCFText) Then ' retorna los datos GetClipBoard = Clipboard.GetText End If End Function Private Sub Form_Load() MsgBox "Copia un texto al portapapeles " & _ "y luego presiona el CommandButton", 32 Command1.Caption = "Obtener texto" End Sub

Enlaces relacionados

Buscar en Recursos vb