Chinaunix首页 | 论坛 | 博客
  • 博客访问: 499575
  • 博文数量: 105
  • 博客积分: 2922
  • 博客等级: 少校
  • 技术积分: 1113
  • 用 户 组: 普通用户
  • 注册时间: 2008-07-02 16:30
文章分类

全部博文(105)

文章存档

2018年(1)

2016年(2)

2015年(3)

2014年(6)

2013年(21)

2012年(10)

2011年(8)

2010年(7)

2009年(31)

2008年(16)

我的朋友

分类: 数据库开发技术

2016-04-20 09:34:39

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
阅读(601) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~