Code-Beispiel

Zwischenablage lesen und schreiben

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

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="FreeBasic"



WriteClipboard(a)

Print ReadClipboard

Sleep



Sub WriteClipboard(Text As String)

  Dim As Any Ptr lpMem, hGlobalClip

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

  OpenClipboard(NULL)

  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(NULL)

  hGlobal=GetClipboardData(CF_TEXT)

  If hGlobal Then

    pGlobal=GlobalLock(hGlobal)

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

    lstrcpy(StrPtr(txt), pGlobal)

  End If

  Function = txt

  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 07.05.2013 von Volta 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.