Non so quali alchimie mi abbiano fatto pensare stamani che la macro di
potesse funzionare... perché la frase:
oProgressBar = Empty
restituisce inevitabilmente un errore.
Fermi restando quasi tutti i dubbi della mia mail precedente sono giunto
alla seguente conclusione.. e che pare funzionare:
REM ***** BASIC *****
Global oProgressBar As Object
Global sPG1 as long
Sub Barra_apri_chiudi_4
if sPG1 = 0 or isEmpty (sPG1) then
print "nessuna barra (la creo!)"
oProgressBar = _
thisComponent.CurrentController.Frame.CreateStatusIndicator
oProgressBar.Start("",100)'
oProgressBar.Value = 100
oProgressBar.Text = "Attendi pazientemente!"
sPG1 = 1
else
print "barra aperta! (la elimino)"
oProgressBar.end
spg1=0
end if
End sub
Ho pensato che, invece di controllare e/o condizionare lo stato della
var object oProgressBar, era meglio crearne un'altra; una var sPG1
contenente un semplice indicatore dell'esistenza di una barra aperta.
Ovviamente in questo caso, anche sPG1 va indicata come Global.
Pare funzionare, anche con diverse finestre di OOo aperte, e ovunque ci
si trovi, se c'è una barra aperta in giro, quella barra viene chiusa...
Non mi pare il massimo... Qualche idea migliore?
Nessuna nuova sull'indagabilità di stausindicator?
grazie
Bart
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
