Code-Beispiel

Zwischenablage lesen und schreiben

Lizenz:	Erster Autor:	Letzte Bearbeitung:
k. A.	Mao	13.06.2007

Mit diesen beiden Funktionen kann man Text in die Zwischenablage schreiben bzw. aus ihr lesen.

#include "windows.bi"



Declare Sub WriteClipboard(Text As String)

Declare Function ReadClipboard() As String



Dim As String a



Input a

WriteClipboard(a)

Print ReadClipboard



Sub WriteClipboard(Text As String)

  Dim As Any Ptr lpMem, hGlobalClip



  hGlobalClip=GlobalAlloc(GMEM_MOVEABLE Or GMEM_SHARE, Len(Text)+1)

  OpenClipboard(0)

  EmptyClipboard()

  lpMem=GlobalLock(hGlobalClip)

  lstrcpy(lpMem, strptr(Text))

  GlobalUnlock(lpMem)

  SetClipboardData(CF_TEXT, hGlobalClip)

  CloseClipboard()

End Sub



Function ReadClipboard() As String

  Dim As Any Ptr hGlobal, pGlobal

  Dim As String txt



  OpenClipboard(0)

  hGlobal=GetClipboardData(1)

  If hGlobal then

    pGlobal=GlobalLock(hGlobal)

    txt=Space(lstrlen(pGlobal)) ' txt auf die Länge des Clipboards bringen

    lstrcpy(strptr(txt), pGlobal)

    ReadClipboard=txt

  End If

  CloseClipboard()

End Function

Quelle: fb@rchiv
Autor: Michael Frey

Zusätzliche Informationen und Funktionen

Das Code-Beispiel wurde am 13.06.2007 von Mao angelegt.
Die aktuellste Version wurde am 13.06.2007 von Mao gespeichert.

Bearbeiten

Versionen

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.