Routin Vb - Concatenare stringa oggetto

[jrber]

Non ci crederete... ma mi sono impantanato su di una cosa..

Mi chiedo se si puo concatenare e creare una stringa riguardante un oggetto

Inizialmente ho fatto:

For Y = 1 To 31

Shape1(Y).FillColor = &H0&

Next Y

For Y = 1 To 31

Shape2(Y).FillColor = &H0&

Next Y

.

.

.

ecc... x 40 Shape....

Volevo automatizzarla un attimino.... facendo:

For X = 1 To 40

For Y = 1 To 31

ShapeX(Y).FillColor = &H0&

Next Y

Next X

poi ho provato:

For X = 1 To 40

For Y = 1 To 31

Shape & X &(Y).FillColor = &H0&

Next Y

Next X

Ma non riesco a concatenare la stringa correttamente...

Chiedo a voi... si puo fare...? e come...?

Saluti Max

Modificato: 10 marzo 2004 da jrber

[Nik64]

Colora tutti i controlli di tipo Shape nella Form1

Dim oControl As Control

For Each oControl In Form1.Controls

If TypeOf oControl Is Shape Then

oControl.FillColor = &H0&

End If

Next oControl