Gadget ›› GroupGadget

GroupGadget

構文

GroupGadget(gadget,x,y,width,height,[string=""])

Function GroupGadget(ByVal gadget As long, ByVal x As long, ByVal y As long, ByVal w As long, ByVal h As long, ByRef text As String="") As HWND

説明

テキストを持つガジェットのフレームで、他のガジェットを配置することができます。

SetGadgetText 関数で、フレーム・ヘッダにテキストを設定できます。

GetGadgetText 関数で、タイトルのテキストを取得できます。

SetGadgetColor 関数で、タイトルの色を設定できます。
GTK2サブシステムを備えたLinuxでは、テキストの色のみを設定できます。

GetGadgetColor 関数で、ヘッダーの色を取得できます。
GTK2サブシステムを備えたLinuxでは、テキストの色しか取得できません。

SetGadgetFont 関数で、フォント・ヘッダーを設定できます。

オプション

gadget - ガジェット番号（ゼロより大きい任意の自然数、1、2、3、4など）

x,y,width,height - 位置とサイズ

string -ボックスのタイトル

プラットホーム

Windows , Linux

例:

#Include "window9.bi"
Dim As integer event
OpenWindow("1",300,10,300,300)
GroupGadget(1,10,10,260,240,"Group")
ButtonGadget(2,100,100,60,30,"button")
TextGadget(3,150,150,60,30,"Text")
SetGadgetFont(1,LoadFont("arial",15))
SetGadgetColor(1,255,50000000,3)
Do
  event=WaitEvent()
  If event=EventClose Then End
  If event=eventgadget Then MessBox("メッセージ","これはボタンです")
Loop

http://mneniya.ucoz.ru/