SetImageGadget

Синтаксис

sub SetImageGadget(ByVal gadget As long, ByVal imageID As HBITMAP)

Описание

Позволяет вставлять изображение в гаджеты: ButtonImageGadget и ImageGadget

Параметры

gadget - номер гаджета

imageID - хендл изображения

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As integer event
OpenWindow("1",300,10,200,200)
ButtonImageGadget(1,10,10,80,80)
Do
  event=WaitEvent()
  If event=EventClose Then End
  If event=eventgadget Then
     If eventnumber()=1 Then
        SetImageGadget(1,Load_image("1.png"))
     EndIf
  EndIf
Loop

Результат

Created with the Personal Edition of HelpNDoc: Produce Kindle eBooks easily