SetClipBoardImage

Синтаксис

Sub SetClipBoardImage(ByVal hbmp As HBITMAP)

Описание

Отправляет изображение(битмап) в буфер обмена

Параметры

hbmp - хендл битмапа

Платформы

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 help authoring environment