Gadget ›› ContainerGadget

プログラム言語 FreeBasic


ContainerGadget

構文

ContainerGadget(Number, x , y , Width , Height , [Style=0])

Function ContainerGadget(ByVal gadget As Long, ByVal x As Long,ByVal y As Long,ByVal w As Long, ByVal h As Long, ByVal parameter As Long=0) As HWND

説明

複数のガジェット用のコンテナです。 ガジェットのグループを、状況により、すべてサイズを変更したり、非表示にするときに、便利です。

ガジェットの色を設定する関数 SetGadgetColor

ガジェットの色を取得する関数 GetGadgetColor

オプション

Number- 識別子 (正の整数 1,2,3,4 など)

x,y,Width,Height- サイズと位置

Style - 選択可能なスタイル (下記参照) Window のみ


プラットホーム

Windows , Linux


例:

#Include "window9.bi"
Dim Shared As HWND ph
ph=OpenWindow("",10,10,500,500)
ContainerGadget(4,100,0,300,300)
ButtonGadget(1,10,10,100,20)
ButtonGadget(2,10,40,100,30)
ImageGadget(3,200,200,100,100,Load_image("E:\WINDOWS\system32\oobe\images\merlin.gif",&hf0f0f0))
Sub tt
  Static As Integer x,y
  x=Rnd*200
  y=Rnd*200
  Resizegadget(4,x,y)
  SetGadgetColor(4,x*Rnd*100000,0,1)
End Sub
SetTimer(ph,1,500,@tt)
Do
  Var ev=WindowEvent
  If ev=EventClose Then End
Loop


Style:



http://mneniya.ucoz.ru/

←リンク元に戻る Window9 トップに戻る FreeBASIC マニュアル トップに戻る
ロシア語オリジナル:https://users.freebasic-portal.de/freebasicru/window9lib/window9.html