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]

Rispondere a