Gadget ›› SetGadgetStyle

SetGadgetStyle

構文

SetGadgetStyle(gadget,style, [ExStyle = 0], [added = 0])

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

説明

ガジェットのスタイルを変更できます。

オプション

gadget - ガジェット番号

style - ガジェットのスタイル。
追加されたパラメーターがゼロでない場合は、そのスタイルは、既存のパラメーターに追加されます。
追加されたパラメーターがゼロの場合は、古いものが消去され、新しいスタイルが記録されます。

ExStyle - パラメーターがゼロの場合、通常のスタイルのガジェットを変更します。パラメーターが非ゼロの場合は、拡張ウインドウ・スタイル のガジェットを変更します。

added - スタイルを追加するパラメータ（パラメーター・スタイル上記参照）

プラットホーム

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

　→　

http://mneniya.ucoz.ru/