GetClipBoardImage

Синтаксис

Function GetClipBoardImage() As HBITMAP

Описание

Достает изображение(битмап) из буфера обмена. Возвращает хендл изображения.

Параметры

нет

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As Integer event
Dim As Hwnd hwnd
hwnd=OpenWindow("",10,10,100,100) : CenterWindow(hwnd)
ImageGadget(1,0,0,100,100)
Var hbmp=Load_image("1.png")
SetClipboardImage(hbmp)
SetImageGadget(1,GetClipboardImage())
Do
  event=WaitEvent()
  If Event=EventClose Then End
Loop

Результат

Created with the Personal Edition of HelpNDoc: Free iPhone documentation generator