Gadget ›› RebarGadget

RebarGadget

構文

RebarGadget(Number,[Style1=下記参照],[Style2=0] )

Function RebarGadget(ByVal gadget As Long, ByVal Style As Integer = WS_CLIPCHILDREN Or WS_CLIPSIBLINGS Or RBS_VARHEIGHT Or RBS_AUTOSIZE Or RBS_BANDBORDERS Or CCS_ADJUSTABLE Or CCS_TOP Or CCS_NODIVIDER, ByVal ExStyle As Integer = 0) As HWND

説明

ドラッグとサイズ変更ができる、子要素の固有のコンテナ。
SetGadgetFont 関数でガジェットにフォントをインストールできます。

オプション

Number - ガジェット番号 (任意の正の整数 1,2,3,4 など)

Style1 - 既定値 :(WS_CLIPCHILDREN Or WS_CLIPSIBLINGS Or RBS_VARHEIGHT Or RBS_AUTOSIZE Or RBS_BANDBORDERS Or CCS_ADJUSTABLE Or CCS_TOP Or CCS_NODIVIDER)

以下を使えます:

RBS_AUTOSIZE - RebarGadget は自動的にバンドサイズや位置の変更の場所が変更されます。
変化が起こると、RBN_AUTOSIZE 通知が送信されます。
RBS_BANDBORDERS - 隣とを区切る細い線を表示します。
RBS_DBLCLKTOGGLE - RebarGadget は、ユーザーがグループをダブル・クリックすると、最大と最小の状態が切り替わります。
このスタイルを使わないと、シングル・クリックで、切り替わります。
RBS_FIXEDORDER - バンド RebarGadget は、同じ順序で常に見える状態です。
バンドを異なる行に移動できますが、グループの順序は、保持されます。
RBS_REGISTERDROP - RebarGadget は、メッセージ通知 RBN_GETOBJECT WM_NOTIFY のコードを生成します。
これを使うためには、OleInitialize または CoInitialize を使って、OLE インターフェースを初期化する必要があります。
RBS_VARHEIGHT - 可能な場合、RebarGadget バーは、最低限必要な高さになります。
RBS_VERTICALGRIPPER - クラッチサイズが、縦に表示されます。
このスタイルは、スタイル CCS_VERT を持たない RebarGadget では、無視されます。
CCS_ADJUSTABLE このスタイルでは、ユーザは、管理体の構成を変更することができます。
CCS_BOTTOM コントロールは、ウインドウの内側の、下部に配置されます。
CCS_TOP コントロールは、ウィンドウの内側の、上部に配置されます。
CCS_NODIVIDER 管理体の上部に、2ピクセルの幅の境界線を描画しません。
CCS_NOHILITE 管理体の上部に、1ピクセルの線を描画しません。
CCS_NOMOVEY WM_SIZE メッセージに応じて、管理体はその水平方向のサイズを変えて、水平に動きます。 しかし、垂直方向の寸法は、同じままです。
CCS_NOPARENTALIGN コントロールを、自動的に親ウィンドウの上部または下部に移動しません。
CCS_NORESIZE 初期サイズが、指定されたサイズにならない場合は、デフォルトのサイズになります。
アプリケーションは、明示的に管理体のサイズを指定する必要があります。
CCS_RIGHT コントロールは、ウィンドウの右側の、内側に配置されます。
CCS_LEFT コントロールは、ウィンドウの左側の、内側に配置されます。

Style2 - 以下を指定できます

• WS_EX_ACCEPTFILES - このスタイルで作成されたウィンドウは、"ドラッグ・アンド・ペースト"情報技術を使ってファイルを受け入れるように指定します。
• WS_EX_APPWINDOW - ウィンドウが最小化されると、タスクバーで、トップレベルのウィンドウをアクティブにします。
• WS_EX_CLIENTEDGE - ウィンドウは、深い縁のフレームを持つことを指定します。
• WS_EX_CONTEXTHELP - タイトルバーに、疑問符が付きます。
  ユーザーが疑問符をクリックすると、カーソルが、疑問符のポインタに変化します。
  ユーザーが子ウィンドウをクリックした場合、子ウィンドウは、メッセージ WM_HELP を受信します。
  子ウィンドウは、親ウィンドウのプロシージャに、メッセージを渡します。
  親ウィンドウのプロシージャは、コマンド HELP_WM_HELP を使用し、WinHelp を呼び出します。
  アプリケーションは、通常、子ウィンドウのヘルプが含まれるヘルプのポップアップウィンドウを、示します。
  WS_EX_CONTEXTHELP は、スタイル WS_MAXIMIZEBOX または WS_MINIMIZEBOX で使うことはできません。
• WS_EX_CONTROLPARENT - ユーザーは、[Tab] キーを使って、メインウィンドウの子ウィンドウ間を移動できます。
• WS_EX_DLGMODALFRAME - 二重枠を持つウィンドウを作成します。
  ウィンドウは、オプションで、パラメータ WS_CAPTION の dwStyle スタイルを定義したタイトルを作成することができます。
• WS_EX_LEFT - ウィンドウは、一般的な、"左揃え"のプロパティを使用します。
  これは、デフォルトです。
• WS_EX_LEFTSCROLLBAR - シェル言語が、ヘブライ語、アラビア語や、読み上げ順序をサポートする他の言語の場合、垂直スクロールバーは、もしあれば、作業領域の左側に表示されます。
  他の言語については、スタイルは無視され、エラーとして扱われません。
• WS_EX_LTRREADING - ウィンドウのテキストは、左-右の読み取り順序のプロパティを使用して表示されます。
  これは、デフォルトです。
• WS_EX_MDICHILD - MDI 子ウィンドウを作成します。
• WS_EX_NOPARENTNOTIFY - このスタイルで作成された子ウィンドウは、これが作成または破棄されるときに、メッセージ WM_PARENTNOTIFY を親ウィンドウに送信しないことを指定します。
• WS_EX_OVERLAPPEDWINDOW - スタイル WS_EX_CLIENTEDGE と WS_EX_WINDOWEDGE をマージします。
• WS_EX_PALETTEWINDOW - スタイル WS_EX_WINDOWEDGE、WS_EX_TOOLWINDOW、WS_EX_TOPMOST をマージします。
• WS_EX_RIGHT - ウィンドウは、一般の"右揃え"プロパティを使用します。
  これは、ウィンドウクラスに依存します。
  このスタイルは、シェルの言語が、ヘブライ語、アラビア語や、読書のための別の手順の配置をサポートする言語の場合にのみ、効果があります。
  それ以外の場合、スタイルは無視され、エラーとして扱われません。
• WS_EX_RIGHTSCROLLBAR - 垂直スクロールバーが、もしあれば、ワークスペースの右側に配置されます。
  これは、デフォルトです。
• WS_EX_RTLREADING - シェル言語が、ヘブライ語、アラビア語や、読むための別の順序の配置をサポートする言語の場合、右-左読みの順序のプロパティを使用して、ディスプレイにテキストを表示します。
  他の言語については、スタイルは無視され、エラーとして扱われません。
• WS_EX_STATICEDGE - 項目に使う、3次元スタイルボックスを持つウィンドウを作成します。
  ユーザーが入力した情報を取得することはありません
• WS_EX_TOOLWINDOW - ツールボックスを作成します。これは、ウィンドウは、フローティング・ツールバーとして使用されます。
  ツールウィンドウは、通常のタイトルバーより短いタイトルバーを持っており、ウィンドウタイトルは小さいフォントを使用して表示されます。
  ツールウィンドウは、タスクバーまたは、ダイアログボックスで表示されません。ユーザが Alt + Tab キーを押すと、表示されます。
• WS_EX_TOPMOST - このスタイルで作成されたウィンドウは、ウィンドウが非アクティブになったときでも、すべての非最上位ウィンドウの上に配置され、それらの上に滞在することを指定します。
  このスタイルを追加または削除するには、SetWindowPos を使用します。
• WS_EX_TRANSPARENT - このスタイルで作成されたウィンドウは、透明であることを指定します。
  つまり、ウィンドウの外の任意のウィンドウは、このウインドウに影を落としません。
  このスタイルで作成されたウィンドウは、そのウィンドウの下にある兄弟ウィンドウがすべて更新された後にだけ、WM_PAINT メッセージを受け取ります。
• WS_EX_WINDOWEDGE - ウィンドウが、隆起した端のフレームを持つことを指定します。

プラットホーム

Windows , Linux

例:

#Include "window9.bi"
Dim As Integer event
Dim as HWND hwnd
hwnd=OpenWindow("Hello",10,10,300,300) : CenterWindow(hwnd)
TextGadget(1,10,10,100,20,"Text")
ButtonGadget(2,10,10,100,20,"Button")
RebarGadget(3)
AddRebarTab(3,2)
AddRebarTab(3,1)

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

http://mneniya.ucoz.ru/