Jack wrote:
Quello che hai scritto e' quello che ho scritto io
Tu hai scritto:
ThisComponent.DrawPage.Forms.Standard.lbl(x)
Io ho scritto:
ThisComponent.DrawPage.Forms.Standard.GetByName("lbl"&(x))
Non direi che sono la stessa cosa.
Io pensavo a una di queste due alternative:
Sub Main
for each Label in ThisComponent.DrawPage.Forms.Standard
if Left(Label.Name,3)="lbl" then ' vedo se il nome del controllo
inizia con lbl
Label.BackgroundColor = 16711680 ' rosso
Wait 250
end if
next
Call Svuota
End Sub
Sub Svuota
for x = 0 to 20 ' so che i controlli sono lbl0, lbl1, ... lbl20
Label =
ThisComponent.DrawPage.Forms.Standard.GetByName("lbl"&(x))
Label.BackgroundColor = 16777215 ' bianco
next
End Sub
--
MC
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]