Gadget ›› TreeViewGadget

TreeViewGadget

構文

TreeViewGadget( gadget , x , y , Width , Height ,[Parametr=0],[Parametr2=0],[SizeIcon=16] )

Function TreeViewGadget(ByVal gadget As Long, ByVal x As Long, ByVal y As Long, ByVal w As Long, ByVal h As Long, ByVal Style As Long= 0, ByVal ExStyle As Long=0, ByVal SizeIcon As Long=16)As HWND

説明

ツリーディレクトリのガジェット。
項目の一覧が、階層順で含まれます。

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

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

SetGadgetFont ガジェットのフォントを設定する関数

オプション

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

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

Parametr と Parametr2 - パラメータ（下記参照）

SizeIcon - (Windowsのみ) 表示するアイコンのサイズ (既定値 16)

プラットホーム

Windows , Linux

例:

#Include "window9.bi"

Dim As Integer event
Dim As HWND hwnd,tree

hwnd=OpenWindow("TreeView",10,10,180,200) : CenterWindow(hwnd)
Dim As HBITMAP hbmp = Extract_Icon( "Shell32.DLL", 3 )'
Dim As HBITMAP hbmp1 = Extract_icon( "Shell32.DLL", 45 )'
tree=TreeViewGadget(4,10,10,140,140, TVS_HASLINES or TVS_HASBUTTONS or TVS_LINESATROOT,WS_EX_CLIENTEDGE,32)
Var Pos_=AddTreeViewItem(4,"1",hbmp,hbmp1,1)
AddTreeViewItem(4,"1-1",hbmp,hbmp1,1,Pos_)
Pos_=AddTreeViewItem(4,"2",hbmp,hbmp1,4)
AddTreeViewItem(4,"2-1",hbmp,hbmp1,3,Pos_)

Do
  event=waitevent
  If event=EventClose Then end
Loop

Parametr:(Windows のみ)

TVS_DISABLEDRAGDROP
リスト項目で、ドラッグ・アンド・ドロップ操作を禁止

TVS_EDITLABELS
リスト内の項目の名前を変更できる

TVS_HASBUTTONS
子要素を持つ要素の左に、サブ要素のリストを開閉するための小さなボタンを持つ

TVS_HASLINES
リストの子要素は、親の行に接続されている。トップレベルの要素は、接続されていません。

TVS_LINESATROOT
トップレベルの要素は、相互に接続されている

TVS_SHOWSELALWAYS
ウィンドウがフォーカスを失った場合でも、選択された項目はそのまま

Parametr2: (Windows のみ)
(WS_EX_CLIENTEDGEにのみ使うのでなく、書き込みのすべてのスタイルで使う)

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

http://mneniya.ucoz.ru/