PB实现TreeView多级分类检索（案例）

本文主要是介绍PB实现TreeView多级分类检索（案例），希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

contructor事件：

long ll_row,i
TreeViewItem tv_new
//建立一个图标队列,供其中的TreeViewItem项引用,在这里建立主要是为了能够控制图标大小
//首先设定图标显示尺寸
This.PictureHeight=16
This.PictureWidth=16
//图标队列由4个图标构成,前3个用于标识医嘱类项目的级别,第4个用于标识项目的选中状态
This.AddPicture("DosEdit5! ")
This.AddPicture("custom023!")
This.AddPicture("custom036!")
This.AddPicture("Custom050!")DataStore lds_dw  //定义为实例变量
lds_dw = Create DataStore
lds_dw.DataObject = 'dw_assets_directory'
lds_dw.SetTransObject( Sqlca )lds_dw.SetFilter( "ass_uplevel = 0")
lds_dw.Filter()
lds_dw.ReTrieve()
ll_row = lds_dw.RowCount()for i = 1 to ll_rowtv_New.Label=lds_dw.GetItemString(i,'ass_name')tv_New.Data=lds_dw.GetItemNumber(i,'ass_no')tv_New.level = 1tv_New.PictureIndex=1tv_New.SelectedPictureIndex=4tv_New.Children=TrueThis.InsertItemLast(0, tv_New)
next
Destroy lds_dw

Itempopulate事件：

long Level, n, i
any Parm1, Parm2, Parm3
Long ll_Parent
TreeViewItem tv_Current, tv_Parent, tv_New
//由句柄获得TreeViewItem项,存入变量tv_Current
GetItem(handle, tv_Current)
Level=tv_Current.Level+1
tv_New.PictureIndex=Level
tv_New.SelectedPictureIndex= 4 //自己设计图片此处可以等于Level
//根据展开级别,建立当前展开项目DataStore lds_dw  

这篇关于PB实现TreeView多级分类检索（案例）的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！

---