Gadget ›› ImageGadget

ImageGadget

構文

ID=ImageGadget (number, x , y , Width , Height, [ imageID=0] )

Function ImageGadget(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 ExSyle As Long =0, byval Style As Long = SS_BITMAP) As HWND

内容

ビットマップ静的画像を表示するために使われるガジェット
ButtonImageGadget とは、使えるスタイルが異なる点に注意です。

オプション

ID - ガジェット・ハンドル

gadget(Number) - 識別子(ID Number) (任意の正の自然数 1,2,3,4 など)

x,y,w,h - ガジェットの位置とサイズ

imageId - 画像のハンドル。最初のパラメータは 0（ゼロ）。後で SetImageGadget 関数を使って、画像を挿入できます。

ExSyle - （Windows のみ）TRUEの場合、ガジェットはフレーム付きになります

Style - （Windows のみ）次の2つのスタイルのいずれかになります:

    SS_BITMAP - ガジェットにビットマップ画像を含めることができます

    SS_ICON - ガジェットはアイコンに対応できます

プラットホーム

Windows , Linux

例１:

#Include "window9.bi"
Dim As integer event
#Ifdef __FB_WIN32__
Var iStyle = SS_ICON
#Else
Var iStyle = 0
#EndIf
OpenWindow("1",300,10,200,150)
ImageGadget(1,10,10,32,32,Load_icon("fblogo.ico"),,iStyle)
ImageGadget(2,50,10,32,32,Load_image("Transpar.png"))
Do
   event=WaitEvent()
   If event=EventClose Then End
Loop

結果

例２:

#Include "window9.bi"

Dim As integer hwnd,event
hwnd=OpenWindow("1",300,10,100,200)
'ImageGadget(1,10,10,80,80,Load_image("C:\WINDOWS\system32\oobe\images\merlin.gif"))
ImageGadget(1,10,10,80,80,Load_image("merlin.gif"))

Do
  event=WaitEvent()
  If event=EventClose Then End
Loop

!! 注意：お使いのシステムには、画像 merlin.gif がないかもしれません。任意の画像に置き換えてください。

例３:

#Include "window9.bi"

Dim As integer hwnd,event
hwnd=OpenWindow("1",300,10,100,200)
ImageGadget(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"))
    EndIf
  EndIf
Loop

http://mneniya.ucoz.ru/