SetIconGadget

Синтаксис

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

Created with the Personal Edition of HelpNDoc: Full featured EPub generator