Emanuele ha scritto:
Non sai come si chiama il pulsante??
Il suo nome certamente lo conosco... :-)
Se ce l'hai in un documento sarà qualcosa tipo:
sub attiva_disattiva
oSheet = ThisComponent.Sheets.GetByName("Sheet1")
oDpage = oSheet.DrawPage
oForm = oDpage.Forms.getByName("Standard")
Qui io avevo (su quel doc) "WW-Standard" .... chissà perché...
(Se creo un nuovo doc e faccio un pulsante ho invece ho "Standard"...)
oCtrlModel = oForm.getByName("PushButton")
msgbox oCtrlModel.Enabled
oCtrlModel.Enabled = false
msgbox oCtrlModel.Enabled
OK!
Come ottenere il "oCtrlModel" l'ho trovato qui:
http://www.oooforum.org/forum/viewtopic.phtml?t=8410
Grazie
Al solito... nella ricerca non avevo usato le "parole giuste"... eppure,
ne son certo, avevo scritto nei criteri anche "per favore"...
Se invece ti arriva da un listener e non sai quale pulsante ha generato
l'evento (e non ti interessa saperlo) devi per prima cosa modificare (se
già non è così) la sub del listener in modo che abbia come parametro un
oggetto (tipicamente oEvent):
Sub event_listener (optional oEvent as object)
'poi usi questo:
oEvent.source.model.enabled = false
end sub
Qui mi è un po' meno chiaro... devo fare qualche prova... nel caso
domanderò ancora...
Giusto per completezza,
Direi completo.
E le prove fatte su una macro costruita apposta confermano un
comportamento regolare
Pigio il pulsante
il button è abilitato
lo disabilito
faccio delle cose utili (normali)
(al controllo mi risulta sempre disabilitato)
lo abilito (e se non lo ri-abilito il button è sbiadito e inerte)
fine della macro
Quindi OK... quel codice funziona egregiamente!
Ma le cose si sono rivelate (al solito) più complicate...
Infatti poi provato ad inserire lo stesso codice in una mia macro già
esistente ma in questo caso il pulsante non si disattivava...
malgrado il codice mi confermasse (msgbox oCtrlModel.Enabled=true).
Dopo una giornata di tentativi mi sono risolto a rifare il pulsante
e quello nuovo invece funzionava correttamente.
Ho controllato più volte se c'erano differenze fra i due pulsanti:
nessuna! O meglio nessuna che io abbia rilevato...
Misteri di OO....
Comunque adesso quel pulsante è al sicuro da "ditini" nervosi...
Un'altro passo avanti! :-)
grazie Emanuele...
ciao
Bart
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
