|
P>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_1if sle_search.text = "" then messagebox("提示","请先输入查询信息!!") returnend ifli_find = 0tv_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)loopll_level=1if 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) loopend ifll_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)loopdo 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 iflooptv_1.setredraw(true)if li_find = 0 then messagebox("提示","所给信息没有找到!!")end if 该程序是在TreeView控件中逐项进行查找比较，因而执行的效率和显示结果都不是很理想，但我们在实际应用中，通常TreeView控件都是与DataWindow相联系的，因而很容易借助DataWindow实现顺着TreeView控件的树枝往下查找，执行速度快并且定位准确（不必展开一些不必要的分枝）。而且还很容易实现模糊查询（部份匹配）。
 |