PB 電子会議室
| 発言No. | 更新日 | 題名（クリックすると発言内容と関連するコメントが表示されます） |
|---|---|---|
| 3120 | 98/09/04 17:57:48 | RE:RE:RE:RE:PB6: TreeViewの使い方を教えて下さい By S_Kazu |
| 3111 | 98/09/04 16:23:10 | RE:RE:RE:PB6: TreeViewの使い方を教えて下さい By まこと |
| 3101 | 98/09/04 14:01:13 | RE:RE:PB6: TreeViewの使い方を教えて下さい By こてちゅ |
| 3098 | 98/09/04 12:42:08 | RE:PB6: TreeViewの使い方を教えて下さい By gumi |
| 3087 | 98/09/04 10:36:41 | RE:PB6: TreeViewの使い方を教えて下さい By kuro2 |
| 3067 | 98/09/03 16:46:09 | PB6: TreeViewの使い方を教えて下さい By S_Kazu |
カテゴリ：旧電子会議室
日付：1998年09月04日 14:01 発信者：こてちゅ
題名：RE:RE:PB6: TreeViewの使い方を教えて下さい
1階層目のスクリプトは gumi さんのスクリプトでOKではないでしょうか。
2階層目以降は、ItemPoplateイベントに
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
Long row_cnt
Long cnt
TreeViewItem root_,new_,me_
Long hnd
Long cd[]
If GetItem(handle,me_) = -1 Then Return
SetPointer(HourGlass!)
//上位キーを取得
hnd = handle
FOR cnt = 1 TO me_.Level
hnd = FindItem(ParentTreeItem!,hnd)
GetItem(hnd,root_)
cd[cnt] = Long(root_.data)
NEXT
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
を使用して展開しようとしている上位キーを取得し、
それによってDataStorを検索し、
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
For cnt = 1 To row_cnt
new_.label = String(i_ds.Object.areakbn_cd[cnt]) + \":\" + i_ds.Object.areakbn_kj[cnt]
new_.data = i_ds.Object.areakbn_cd[cnt]
new_.children = TRUE
InsertItemLast(handle, new_)
Next
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
などのスクリプトで追加していくとエクスプローラのような他階層型の
ツリービューが表示できます。
また、初期表示の状態からすべてを展開しておきたい時は、
Constractorイベントに
Long root_hnc
root_hnc = This.FindItem(RootTreeItem!, 0)
This .ExpandAll( root_hnc )
を記述しておくとItemPoplateイベントが実行されます。
付加情報：
PowerBuilder Version (記載なし)
Client SoftWare
OS Windows95
DBMS (記載なし)
Browser (記載なし)
Server SoftWare
OS (記載なし)
DBMS (記載なし)
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.