查看单个帖子
旧 2009-05-07, 06:11 PM   #1
yang686526
高级会员
 
注册日期: 06-11
帖子: 14579
精华: 1
现金: 224494 标准币
资产: 234494 标准币
yang686526 向着好的方向发展
默认 【转帖】vb.net Problem With For Each

vb.net problem with 'for each'
vb.net problem with 'for each'
private sub button1_click(byval sender as system.object, byval e as system.eventargs) handles button1.click
listbox1.items.clear()
for n = 0 to pdb.blocks.count - 1
blockobj = pdb.blocks.item(n)
listbox1.items.add(blockobj.name)
for each entobj in blockobj
listbox1.items.add(entobj.objectname)
next entobj
next n
end sub
i have the above routine in vb.net. i find that i am unable to repeat this routine, unless the drawing is reloaded first.
the bocks list correctly, but on the second use the entities in each block are not found.
the multiple use of this routine works correctly in vb6.
any ideas please?

hi clive,
it is looks like i have fixed this problem. sorry but this fix does not included to 1.06 version. i think you can ask neil for update.
yang686526离线中   回复时引用此帖
GDT自动化论坛(仅游客可见)