ich versuch gerade dynamisch generierte Objekte zu verwenden erzeugen lass ich sie in einer Methode:
Code:
Dim canvas As New Microsoft.VisualBasic.PowerPacks.ShapeContainer
Dim pHelp As New RectangleShape
With pHelp
.Name = "rctshp_Shape" & CStr(iShape)
.Parent = canvas
End With
wobei iShape einfach eine Integer Zählvariable ist.
Canvas ist als globale deklariert. pHelp und alle weiteren Anweisungen sind Teil der Prozedur.
Ich möchte nun diese Rechtecke in einer anderen Methode wieder verwenden. Versucht habe ich bis jetzt
ganz naiv
Code:
Dim "rctshp_Shape" & CStr(i) as RectangleShape
und
Code:
For i = 1 To iCount
Dim a As RectangleShape
a.Name = "rctshp_Shape" & CStr(i)
a.top =50
Next
und als letztes
Code:
Dim shHelp As RectangleShape
shHelp = canvas.GetNextShape(sender, True)
canvas.SelectNextShape(sender, False, True)
Hat alles nicht funktioniert. Es gibt viele Beispiele für die Benutzung dynamischer Kontrollelemente aber für Shapes hab ich nichts weiteres gefunden und bin mit meinem Latein am Ende. Wäre schön wenn mir hier jemand weiterhelfen könnte wie ich die Rechtecke einzeln oder alle zusammen verwende. _________________