Long ll_Handle
Treeviewitem ltvi_Item
ll_Handle = tv_1.FindItem(ChildTreeItem!,Handle)
DO WHILE ll_Handle <> -1
tv_1.GetItem(ll_Handle,ltvi_Item)
IF String(ltvi_Item.StatePictureIndex) = '2' THEN
MessageBox("INFO","Label:"+String(ltvi_Item.Label)+&
"~r~nDate:"+String(ltvi_Item.Data)+&
"~r~nstatepictureindex:"+String(ltvi_Item.StatePictureIndex)+&
"~r~nChildren:"+String(ltvi_Item.Children))
END IF
uf_read_tree2(ll_Handle)
ll_Handle = tv_1.FindItem(NextTreeItem!,ll_Handle)
LOOP
阅读(589) | 评论(0) | 转发(0) |
