Esiste un modo piu' compatto di scrivere questa routine ?, mi spiego, mi
sono fatto una progressBar http://mio.discoremoto.virgilio.it/opendocument/
consiste il 20 Label a cui riassegno il colore di Background
Dim Label (20) as Object
Label (0) = ThisComponent.DrawPage.Forms.Standard.lbl0
Label (1) = ThisComponent.DrawPage.Forms.Standard.lbl1
Label (2) = ThisComponent.DrawPage.Forms.Standard.lbl2
Label (3) = ThisComponent.DrawPage.Forms.Standard.lbl3
Label (4) = ThisComponent.DrawPage.Forms.Standard.lbl4
Label (5) = ThisComponent.DrawPage.Forms.Standard.lbl5
Ecc...
For x = 0 to 20 step 1
Label(x).BackgroundColor = 16711680 ' rosso
Wait 250
Next
Call Svuota
End Sub
Quello che chiedo? e' possibile scrivere un codice piu' compatto ?, ho
provato a scriverlo cosi, pero' non funziona.
La Propieta' Name delle Label l' ho assegnato cosi' Label(0) Label(1)
Label(2) ecc..
e poi ho provato a scrivere
For x = 0 to 20 Step 1
ThisComponent.DrawPage.Forms.Standard.lbl(x).BackgroundColor =
16777215 ' bianco
Next
Pero' non funziona, altre idee ?. Saluti Jack
--
Email.it, the professional e-mail, gratis per te: http://www.email.it/f
Sponsor:
Trova la tua anima gemella con Meetic. Iscriviti subito gratis: potrai trovare
migliaia di single in linea e chattare con loro!
Clicca qui: http://adv.email.it/cgi-bin/foclick.cgi?mid=4048&d=4-3
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
