dotNETportal.cz

Ahoj, jak se pomoci cyklu elegantne vyhnu podobnemu zverstvu?

(omlouvam se za hloupy dotaz)

Set hybridShapePointCoord1 = hybridShapes1.Item("Point Nosniku_01")

Set hybridShapePointCoord2 = hybridShapes1.Item("Point Nosniku_02")

Set hybridShapePointCoord3 = hybridShapes1.Item("Point Nosniku_03")

Set hybridShapePointCoord4 = hybridShapes1.Item("Point Nosniku_04")

Set hybridShapePointCoord5 = hybridShapes1.Item("Point Nosniku_05")

Set hybridShapePointCoord6 = hybridShapes1.Item("Point Nosniku_06")

Set hybridShapePointCoord7 = hybridShapes1.Item("Point Nosniku_07")

Set hybridShapePointCoord8 = hybridShapes1.Item("Point Nosniku_08")

Dokud budete mít 8 proměnných, tak moc snadno ne.

Udělejte si místo nich pole a ty hybridShapePointCoord1, 2, ... nasypejte do toho pole. Pak to bude snadné.