SetGadgetStyle

Синтаксис

Function SetGadgetStyle(byval gadget As Long, byval style As Integer, byval ExStyle As Bool=0, byval added As BOOL = 0) As Integer

Описание

Позволяет менять стили у гаджета

Параметры

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

style - стиль гаджета. Если параметр added не равен нулю, то стиль добавляется к имеющемуся. Если параметр added равен нулю, то записывается новый стиль , стирая старый

ExStyle - если параметр равен нулю, то изменяется обычный стиль гаджета. Если параметр отличен от нуля, то изменяется расширенный стиль гаджета

added - параметр, от которого зависит добавление стилей (читайте выше параметр style)

Платформы

Windows

Пример

#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

Результат

Created with the Personal Edition of HelpNDoc: Generate EPub eBooks with ease