Gadget ›› SetImageGadget

SetImageGadget

構文

SetImageGadget(gadget, imageID)

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

説明

ButtonImageGadget ガジェットと ImageGadget ガジェットに、画像を挿入します。
画像を差し替えたいときは、FreeGadget と組み合わせて使います。

オプション

gadget - 画像を挿入するガジェット番号

imageID - 画像のハンドル

プラットホーム

Windows , Linux

例:

#Include "window9.bi"

Dim As integer hwnd,event
hwnd= 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("merlin.gif"))
    EndIf
  EndIf
Loop

http://mneniya.ucoz.ru/