Gadget ›› SetIconGadget

SetIconGadget

構文

SetIconGadget(gadget, icon)

Sub SetIconGadget(ByVal gadget As Long, ByVal icon As HICON)

説明

ButtonImageGadget ガジェットと ImageGadget ガジェットに、アイコンを挿入できます。
Linux では、アイコンと他の画像の間に違いがないため、この関数はエイリアス SetImageGadget として記述されています。

オプション

gadget - 画像を挿入したいガジェットの番号

icon - アイコンのハンドル

プラットホーム

Windows , Linux

例１:

#Include "window9.bi"
Dim As integer event
OpenWindow("1",300,10,100,150)
ButtonImageGadget(1,17,10,80,80,0,BS_ICON)
Do
   event=WaitEvent()
   If event=EventClose Then End
   If event=eventgadget Then
      If eventnumber()=1 Then
         SetIconGadget(1,Load_icon("1.ico"))
      EndIf
   EndIf
Loop

例２:

#Include "window9.bi"

Dim As integer event
OpenWindow("1",300,10,100,150)
ButtonGadget(1,17,10,80,80,"Click!!!")

Do
  event=WaitEvent()
  If event=EventClose Then End
  If event=eventgadget Then
    If eventnumber()=1 Then
      SetGadgetStyle(1,BS_ICON Or WS_CHILD Or WS_VISIBLE)   'ButtonImageGadget になります
      SetIconGadget(1,ExtractIcon(0,GetSystemDir & "\SetupAPI.dll",22))
    EndIf
  EndIf
Loop

　→　

http://mneniya.ucoz.ru/