【转帖】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.