プログラム言語 FreeBasic |
ButtonImageGadget
ID=ButtonImageGadget (number, x , y , Width , Height, [ imageID=0], [Style=0] )
Function ButtonImageGadget(ByVal gadget As Long, ByVal x As Long, ByVal y As Long, ByVal w As Long, ByVal h As Long, ByVal imageId As Any ptr = 0, ByVal Style As Long=BS_BITMAP) As HWND
画像付きのボタン・ガジェット。
デフォルトではボタンに画像はありません。
この関数を呼び出すとき、または後で SetImageGadget関数か SetIconGadget関数を使って、画像やアイコンを設定します。
アイコンを設定するには、Styleパラメータを BS_ICON に指定する必要があります。
ID - ハンドル・ボタン
関連参照→ ButtonGadget(画像の代わりに文字列)gadget(Number) - 識別子(ID Number) (任意の正の自然数。1、2、3、4などにできます。)
x,y,w,h - 位置とサイズ
imageID - 図・アイコンのハンドル。初期パラメータは 0。SetImageGadget を使って、後で画像を挿入できます。
Style - スタイル。 FB_BS_PUSHLIKE(BS_PUSHLIKE) か BS_AUTOCHECKBOX のボタンは、CheckBox (2つのキーの状態) になります。これは、トグル(Toggle) と呼ばれます。
スタイル BS_ICON を設定すると、ガジェットにアイコンを設定できます。
注意 !!: お使いのパソコンには、画像 merlin.gif が無いかもしれません。任意の画像を使って下さい。
Windows , Linux
#Include "window9.bi"
Dim As integer event
OpenWindow("1",300,10,100,200)
Var HIMAGE=Load_image("C:\WINDOWS\system32\oobe\images\merlin.gif")
ButtonImageGadget(1,10,10,80,80,HIMAGE, FB_BS_PUSHLIKE or BS_BITMAP)
Do
event=WaitEvent()
If event=EventClose Then End
Loop
←画像は凸凹になる
#Include "window9.bi"
Dim As integer hwnd,event
hwnd=OpenWindow("1",300,10,100,200)
Var HIMAGE=Load_image("C:\WINDOWS\system32\oobe\images\merlin.gif")
'ButtonImageGadget(1,10,10,80,80,HIMAGE, BS_PUSHLIKE Or BS_AUTOCHECKBOX) '凸凹になるが、BS_BITMAP が未指定なので画像は表示されない
'ButtonImageGadget(1,10,10,80,80,HIMAGE, BS_PUSHLIKE Or BS_BITMAP) '画像は表示されるが、凸凹にならない
ButtonImageGadget(1,10,10,80,80,HIMAGE, FB_BS_PUSHLIKE or BS_BITMAP) '画像が表示され、凸凹になる
Do
event=WaitEvent()
If event=EventClose Then End
Loop
#Include "window9.bi"
Dim As integer hwnd,event
hwnd= OpenWindow("1",300,10,100,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("C:\WINDOWS\system32\oobe\images\merlin.gif"))
SetImageGadget(1,Load_image("merlin.gif")) 'クリックした後、画像が表示される。凸凹にはならない
EndIf
EndIf
Loop
←画像は凸のまま