Il Friday 20 June 2008 09:09:11 jack ha scritto:
> Ok, routine iniziale - stile main del C++ - o funzione...grazie dei
> suggerimenti :)
Volendo ci sarebbe una terza possibilità, il passaggio di parametri
Mi spiego meglio
Avere una routine che fa il grosso del lavoro e tante piccole routine che
gli passano dei dati ( parametri) per modificare la cella
Ovviamente ogn' una passa dei dati diversi
Piccolo esempio
Sub Evento_uno()
Din Colore As Integer
Colore= 65535 'Colore ciano
ModificaCella(Colore)
End Sub
Sub Evento_due()
Din Colore As Integer
Colore= 16776960 'Colore giallo
ModificaCella(Colore)
End Sub
Sub Evento_tre()
Din Colore As Integer
Colore= 16764057 'Colore arancio
ModificaCella(Colore)
End Sub
Sub ModificaCella(Colore)
'Documento=ThisComponent Questo va tolto, come dice Paolo, visto che Foglio
'viene inizializzato con ThisComponent e non con Documento, è un doppione
Foglio=ThisComponent.getSheets().getByIndex(0)
Cella=Foglio.getCellByPosition(0,0)
Cella.CellBackColor = Colore
End Sub
Questo è il caso più semplice, cioè la cella viene modificata con dei dati
Nel caso che ogn' uno dei tre eventi agisca sulla cella in modo non
controllabile con dei dati si può agire con un ciclo condizionale
Solito esempio
Sub Evento_uno()
Din a As Integer
a=1
ModificaCella(a)
End Sub
Sub Evento_due()
Din a As Integer
a=2
ModificaCella(a)
End Sub
Sub Evento_tre()
Din a As Integer
a= 3
ModificaCella(a)
End Sub
Sub ModificaCella(a)
Foglio=ThisComponent.getSheets().getByIndex(0)
Cella=Foglio.getCellByPosition(0,0)
Select Case a
Case 1
Frantuma la cella
Case 2
Sciogli la cella nell' acido
Case 3
Spara un colpo in testa alla cella
End Select
(Questa mattina mi sento particolarmente buono :-D )
End Sub
Non so se tutto questo può esserti utile
Se non ti è utile pazienza, è stata una "chiacchierata" fra utenti
Ciao
lido
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
