[vb.NET] count shapes in visio

[Verwijderd]

Hallo

Ik ben een addin aan het maken voor visio 2002 in vb.net
nu het volgende : ik zou mijn shapes op mijn drawing moeten tellen en die shapes in een lus kunnen afgaan om de inhoud van data1, data2 en data 3 in een xml-file te plaatsen. die xml-file maken is geen probleem. maar ik krijg mijn shapes niet geteld en ik geraak dan ook niet in een lus om ze allemaal af te gaan.

ik heb volgende code om dit te doen, maar hij doet niets en ik krijg bij het debuggen ook geen foutmelding:

public function generateXml ()
dim ad as visio.document
dim ap as visio.page
dim ishape as integer
ishape = shapecount (ap)
....
end function

function shapescount(byval root as object) as integer
dim icount as integer
dim shpsObj as visio.shapes
dim shpObj as visio.shape
icount = 0
shpsObj = root.shapes
for each shpobj in shpsObj
if shpObj.type = visTypeGroup then
icount = icount +shapescount(shpObj)
else
icount = icount + 1
end if
next
shapescount = icount
end function

deze functie in vb6 zou mij mss ook al een stuk kunnen helpen ....
tx

[ Voor 4% gewijzigd door Verwijderd op 19-05-2003 19:09 ]

[Verwijderd]

is dit te ingewikkeld voor jullie???

[Brynnie]

Een kick binnen 40 minuten wordt door niemand op prijs gesteld...

Ik heb geen ervaring met VB.Net programmeren voor Visio, dus zal je niet kunnen helpen.

[Verwijderd]

kick?? met mijn eigen reactie wou ik gewoon weten of het wel duidelijk was wa ik daar had neergezet....

[DUX]

Nou kick je weer

Probeer de edit-knop te gebruiken als je iets toe te voegen hebt aan je post (zoals die 'te ingewikkeld'-post)

[dusty]

Hoi, lees onze FAQ.