PB 電子会議室
| 発言No. | 更新日 | 題名（クリックすると発言内容と関連するコメントが表示されます） |
|---|---|---|
| 1515 | 98/05/18 17:30:26 | RE(2):うちはこんな関数を作りました By kin |
| 1514 | 98/05/18 17:27:26 | RE(1):ツリービューでのFindItem関数について教えてください。 By kin |
| 1511 | 98/05/18 11:11:37 | ツリービューでのFindItem関数について教えてください。 By ichi |
カテゴリ：旧電子会議室
日付：1998年05月18日 17:30 発信者：kin
題名：RE(2):うちはこんな関数を作りました
うちはこんな関数を作りました。（コメントは省きました。PB5.0.03）
引数：pm1_level（開きたいレベル）
long ll_handle1,ll_handle2
TreeviewItem ltvi_item01
ll_handle2 = tv_1.FindItem(CurrentTreeItem!,0)
Do until ll_handle2 <= 0
ll_handle1 = ll_handle2
tv_1.GetItem(ll_handle1,ltvi_item1)
if ltvi_item1.Level >= pm1_level then
if ltvi_item1.Expanded then
tv_1.CollapseItem (ll_handle1)
end if
ll_handle2 = tv_1.FindItem(NextTreeItem!,ll_handle1)
else
if not ltvi_item1.Expanded then
tv_1.ExpandItem (ll_handle1)
end if
ll_handle2 = tv_1.FindItem(ChildTreeItem!,ll_handle1)
if ll_handle2 <= 0 then
tv_1.GetItem(ll_handle1,ltvi_item1)
ltvi_item1.Children = False
tv_1.SetItem(ll_handle1,ltvi_item1)
ll_handle2 = tv_1.FindItem(NextTreeItem!,ll_handle1)
end if
end if
Do until ll_handle2 > 0 or ltvi_item1.Level = 1
ll_handle2 = tv_1.FindItem(ParentTreeItem!,ll_handle1)
ll_handle1 = ll_handle2
tv_1.GetItem(ll_handle1,ltvi_item1)
ll_handle2 = tv_1.FindItem(NextTreeItem!,ll_handle1)
Loop
Loop
さらにYield()でいつでも中止できるようにしました。
付加情報：
PowerBuilder Version (記載なし)
Client SoftWare
OS (記載なし)
DBMS (記載なし)
Browser (記載なし)
Server SoftWare
OS (記載なし)
DBMS (記載なし)
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.