Alle 08:44, venerdì 17 marzo 2006, fabrizio venerandi ha scritto:
> ringrazio tutti per le risposte, mi scuso se rispondo fuori thread ma
> non so come mantenere il thread leggendo la mailing list come digest
> (comunque l'ho appena modificata).
>
> In soldoni ho preso al balzo il suggerimento di mantovani, anche se non
> ho trovato il riferimento al libro di pitonyak e ho risolto in questo
> modo che è ugualmente semplice (e funziona):
>
> sub cercareturn
> dim leggo$
> leggo$ = finestra.getcontrol("comanda").gettext()
> if asc(right(leggo$,1)) = 10 then test()
> end sub
>
> l'unica avvertenza è quella di consentire al box di testo di avere più
> linee di testo (altrimenti il return viene intercettato prima di finire
> nella stringa) e ovviamente poi nella routine test() devo levare il
> return aggiunto (credo, devo ancora fare una prova).
>
> A livello utente la cosa è rapidissima e non c'è nessun rallentamento
> della digitazione (almeno su mac mini 1,4ghz e neooffice che è lentino
> di suo).
Complimenti per la soluzione ingegnosa, anche se mi spiace che tu non abbia
trovato il riferimento all'esempio.
Cmq l'idea descritta nell'esempio era la seguente:
'--------------------------------------------------
' This macro is manually assigned to the key-pressed
' event of a text-edit control
Sub MyTextEdit_KeyPressed(oEvt)
If oEvt.KeyCode = com.sun.star.awt.Key.RETURN Then
Print "Bingo!!!"
End If
End Sub
'--------------------------------------------------
Si tratta più o meno di quello che hai realizzato tu funziona in modo più
diretto.
saluti
Paolo
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
