Gadget ›› PanelGadget

PanelGadget

構文

PanelGadget(gadget,x,y,[width=0],[height=0],[sizeicon=16],[style=0])

Function PanelGadget(ByVal gadget As Long, ByVal x As Long, ByVal y As Long, ByVal w As Long=0, ByVal h As Long=0, ByVal SizeIcon As Long=16, ByVal style As Long=0) As HWND

説明

コントロールのTAB（タブ）に基づいています。
タブの集合体を表すガジェット。タブのクリック処理は、イベント Eventlbdown、Eventrbdown で発生します。イベント内のガジェット番号は、EventNumber で定義されます。

オプション

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

x,y,width,height - ガジェットの位置と寸法

sizeicon -（Windowsのみ）アイコンのサイズ (既定値 16)。
Linuxでは、サイズは画像のサイズによって異なります。

style - （Windowsのみ）(下記参照)

プラットホーム

Windows , Linux

例:

#Include "window9.bi"
Dim As Integer event
Dim As HWND hwnd,dd,ff
hwnd=OpenWindow("Hello",10,10,500,500) : CenterWindow(hwnd)
PanelGadget(1,0,0,,,32)

dd=AddPanelGadgetItem(1,0,"1",Extract_Icon(GetSystemDir & "\SetupAPI.dll",22),1)
WindowColor(dd,255): ShowWindow(dd,1)
CalendarGadget(2,100,100,200,200)
ff=AddPanelGadgetItem(1,1,"2",Extract_Icon(GetSystemDir & "\SetupAPI.dll",23),1)
WindowColor(ff,&hff0000)
EditorGadget(3,0,0,300,300,"Hello"):SetGadgetColor(3,&hFFFF,&hD71FE0,3)
ButtonGadget(4,320,50,100,30,"1 button")
ButtonGadget(5,320,100,100,30,"2 button")
Do
   event=WaitEvent
Loop Until event=EventClose

Style:（Windowsのみ）

TCS_BUTTONS タブがあることを指定します。 ボタンとして表示され、表示領域の周囲に境界線はありません。
TCS_FIXEDWIDTH すべてのタブが、同じ幅であることを指定します。このスタイルは、スタイル TCS_RIGHTJUSTIFY と組み合わせることはできません。
TCS_FOCUSNEVER ブックマークバーが、入力フォーカスを取得することがないことを示します。
TCS_FOCUSONBUTTONDOWN タブがあることを指定します。クリックしたときに入力フォーカスを受け取ります。
TCS_FORCEICONLEFT テーブルの左端に沿って表示されるアイコンを整列します。このスタイルは、TCS_FIXEDWIDTH スタイルだけで使えます。
TCS_FORCELABELLEFT ラベルをテーブルの左端に揃え、中央に配置する代わりにアイコンの説明を表示します。このスタイルは、スタイル TCS_FIXEDWIDTH だけで使用でき、TCS_FORCEICONLEFT のスタイルを意味します。
TCS_MULTILINE すべてのタブが一度に表示されるように、複数の行にあるすべてのタブを表示します。
TCS_OWNERDRAWFIXED プロシージャ内のTABの表示を自分で行う必要があるが、独自のTABを描画することはできます。
TCS_RAGGEDRIGHT タブの各行を、コントロールの幅全体を埋めるように伸ばしません。これはデフォルトのスタイルです。
TCS_RIGHTJUSTIFY 必要に応じて、タブの各列で、各タブの幅を増加させます。タブコントロールの幅全体を埋めます。このスタイルは、ウィンドウスタイル TCS_MULTILINE が定義されていない場合は、無視されます。
TCS_SINGLELINE 1行のタブのみ表示されます。タブを表示するには、ユーザは必要に応じて、スクロールします。これはデフォルトのスタイルです。
TCS_TABS タブが、タブとして表示されることを示し、境界線は表示の周囲に描かれます。 これはデフォルトのスタイルです。
TCS_TOOLTIPS タブがあることを指定します。 ツールヒントを使用することができます。

また、いくつかのタブのスタイルを借りることができます。OpenWindow を参照下さい!

http://mneniya.ucoz.ru/