PowerBuilder提供的TreeView控件可以使我们以树形方式分层组织和显示数据，使程序的表现更为灵活，用户的操作更加方便。通常情况下，在TreeView控件中通过展开和折叠各分枝，可以方便地对所需信息进行查找和定位，但是如果该控件中的内容层次较多，用户对其内容又不非常了解时，要让用户逐一展开各分枝进行定位就会使效率降低，这种情况下就需要提供一种自动查询方式，让用户输入要找的信息，由程序来完成在TreeView控件中的查找和定位。
PowerBuilder的TreeView控件没有直接提供完成这一功能的函数或方法，也就是说不能直接在TreeView控件的各节点中查找所需的数据。该控件具有一个FindItem()函数，可用于查找节点项，但该函数不能直接对我们所要找的数据进行查找，例如字符文本或数值数据，它只能基于TreeView控件的某一节点项的句柄进行查找。不过我们可以利用该函数来获得节点项的句柄，再通过该句柄进一步获得节点项的详细信息。FindItem() 函数的语法如下：
treeviewname.FindItem
( navigationcode, itemhandle )
其中，treeviewname是我们要在其中进行查找的TreeView控件的名称；
navigationcode参数是一个TreeNavigation枚举数据类型，用来表明itemhandle参数与要找的节点项之间的关系，有效的取值如下：
RootTreeItem!
查找第一层的第一项；
NextTreeItem!
在同一级中查找itemhandle后的下一项；
PreviousTreeItem!
在同一级中查找itemhandle前面的一项；
ParentTreeItem!
查找itemhandle的父节点；
ChildTreeItem!
查找itemhandle的第一个子节点；
FirstVisibleTreeItem!
查找在TreeView控件中可视的第一项而不论层次；
NextVisibleTreeItem!
查找itemhandle后已展开的第一项，不分层次；
PreviousVisibleTreeItem!
查找itemhandle前已展开的第一项，不分层次；
CurrentTreeItem! 获得当前所选项；
DropHighlightTreeItem!
查找DropHighlighted属性最近被设置过的项。
Itemhandle参数表示节点项的句柄。
该函数返回一个长整形值，若执行成功返回找到的节点的句柄，若失败则返回 -1。除了ChildTreeItem!，FindItem不查找未展开的项。利用FindItem只能获得节点项的句柄，要得到某一节点的详细信息，还需要利用TreeView控件的GetItem()函数。该函数可通过节点项句柄得到节点项的状态信息，如label、picture index、childen等，只有比较 ┳刺畔⑷鏻abel的值，我们才能确定是否已经找到所需的节点项。该函数如下所示：
treeviewname.GetItem ( itemhandle, item)
其中，treeviewname是TreeView控件的名称；itemhandle 是要获取信息的节点项的句柄；item参数是一个TreeViewItem系统对象变量，用于存放节点项的信息。
下面的程序实现在TreeView控件进行自动查找，为了简化篇幅，而不用再建立TreeView控件，我利用PowerBuilder v6.5所提供的Code Examples中的一个现成的例子来建立查询。在PB 6.5的例子中有一个用来说明TreeView控件和Datawindows进行联系的例子，该例子中有一个w_tv_dw_link窗口，该窗口中具有一个TreeView控件和多个Datawindows，原程序已对TreeView控件的相应事件编好了程序，使得运行时TreeView控件中能显示相应的数据并且能展开各分枝。要在该TreeView控件中进行查询，需要在窗口w_tv_dw_link中增加以下几个控件，其属性设置如下：
控件 属性 属性值
StaticText Name ‘st_1’
Text ‘查找:’
SingleLineEdit Name ‘sle_search’
CommandButton Name ‘cb_ok’
Text ‘确定’
由于原程序中为了响应用户改变窗口的大小，在窗口w_tv_dw_link的Open和Resize事件中编有相应的程序，使TreeView控件和各个DataWindow能布满整个窗口。为了使我们新增的几个控件能正常显示，这里简单地使程序对窗口的Resize事件以及Open事件初始化各控件的位置和大小不作响应，这需要把w_tv_dw_link的Open和Resize事件中的以下语句屏蔽掉（在行首加‘//’使其成为注释）：
wf_ResizeBars()
wf_ResizePanels()
然后就可以在命令按钮cb_ok的clicked事件中编写以下程序，实现在TreeView控件中进行查找：
setpointer(hourglass!)
long ll_handle,ll_handletree[],ll_level
int li_find
treeviewitem ltvi_1
if sle_search.text = "" then
messagebox("提示","请先输入查询信息!!")
return
end if
li_find = 0
tv_1.setredraw(false)
ll_handle = tv_1.finditem(RootTreeItem! ,0)
tv_1.expandall(ll_handle)
do while ll_handle $#@62;0
tv_1.getitem(ll_handle,ltvi_1)
if ltvi_1.label = sle_search.text then
li_find = 1
exit
end if
ll_handle = tv_1.finditem
(NextVisibleTreeItem! ,ll_handle)
tv_1.expandall(ll_handle)
loop
ll_level=1
if ll_handle $#@62; 0 then
ll_handletree[ll_level]=ll_handle
ll_handle=tv_1.finditem
(ParentTreeItem! ,ll_handle)
do while ll_handle $#@62; 0
ll_level ++
ll_handletree[ll_level]=ll_handle
ll_handle=tv_1.finditem
(ParentTreeItem! ,ll_handle)
loop
end if
ll_handle = tv_1.finditem(RootTreeItem! ,0)
do while ll_handle $#@62; 0
tv_1.CollapseItem(ll_handle)
ll_handle = tv_1.finditem(NextTreeItem! ,ll_handle)
loop
do while ll_level $#@62; 0 and li_find = 1
tv_1.expanditem(ll_handletree[ll_level])
if ll_level = 1 then
tv_1.selectitem(ll_handletree[ll_level])
tv_1.setfocus()
exit
else
ll_level --
end if
loop
tv_1.setredraw(true)
if li_find = 0 then
messagebox("提示","所给信息没有找到!!")
end if
9
7
3
1
2
4
8
:
该程序是在TreeView控件中逐项进行查找比较，因而执行的效率和显示结果都不是很理想，但我们在实际应用中，通常TreeView控件都是与DataWindow相联系的，因而很容易借助DataWindow实现顺着TreeView控件的树枝往下查找，执行速度快并且定位准确（不必展开一些不必要的分枝）。而且还很容易实现模糊查询（部份匹配）。
9
7
3
1
2
4
8
:
站内文章搜索
