(non è passato nemmeno questo... rimando da Gmail)
Ciao Paolo
oggi non mi sembri di buon umore... :-)
Paolo Mantovani ha scritto:
Alle 17:32, domenica 24 settembre 2006, Bart Aimar ha scritto:
Al momento non riesco ad accedere alle mie pagine personali... ma se
qualcuno vuole aiutarmi gli mando direttamente il file per fare le prove...
cioè non potevi incollare il codice direttamente nel post?
Si che potevo... ma per venire incontro allo stuolo di volontari
volenterosi avevo preparato un documento calc con tutti i pulsantoni già
pronti... altrimenti diventa difficile spiegare cosa eseguire e quale
sia veramente il problema...
(senza contare le possibilità di errore quando cerco di mandare a capo
le righe lunghe...)
Intanto mrjive stà facendo trasloco e pare stia vendendo tutto (chissà
se vende anche la bellissima fidanzata...) Credo si sia venduto anche il
server che ospitava le mie pagine...
I miei messaggi non arrivano alla lista (credo Fastweb sia nuovamente
sotto blacklist) insomma una giornataccia...
Facciamo così: io metto in coda il codice, allego anche il file e scrivo
anche a te... vediamo cosa arriva e cosa torna... :-)
grazie
Bart
------
Modulo1
Eseguire "blocca_tastiera" prima
Poi eseguire "RegisterKeyHandler" e "UnRegisterKeyHandler"
REM ***** BASIC *****
Sub Blocca_Tastiera
on error goto cleanExit
RegisterKeyHandler
print " La tastiera sarà inibita per i prossimi 10"_
& " secondi... prova a digitare qualcosa...)"
wait(5000)
unRegisterKeyHandler
print "Adesso dovresti riavere il controllo della"_
& " TASTIERA!"
exit sub
cleanExit:
unRegisterKeyHandler
'
End Sub
Sub RegisterKeyHandler
oDocView = ThisComponent.getCurrentController
oKeyHandler = createUnoListener(_
"keyHandler_", "com.sun.star.awt.XKeyHandler")
oDocView.addKeyHandler(oKeyHandler)
End Sub
'----------------------------------------
Sub UnregisterKeyHandler
on error resume next
oDocView.removeKeyHandler(oKeyHandler)
End Sub
'----------------------------------------
Function keyHandler_KeyPressed(oEvt)
keyHandler_KeyPressed=True
End Function
'----------------------------------------
Function keyHandler_KeyReleased(oEvt)
keyHandler_KeyReleased = False
End Function
'----------------------------------------
Function keyHandler_disposing()
end function
----------------------------
Modulo1
Eseguire "Provala" prima
Poi eseguire "RegisterMouseClickHandler_A" e poi
"UnregisterMouseClickHandler_A"
REM ***** BASIC *****
Dim oDoc As Object
Dim oDocView As Object
Dim oKeyHandler As Object
Dim oMouseClickHandler As Object
'++++++++++++++++++++++++++++++++++
Sub Provala
print " Per prossimi 10 secondi l'uso del mouse"_
& "sarà INIBITO (solo all'interno della finestra...)"
Clessid_lock_Start_A
wait 10000
Clessid_lock_End_A
print "Adesso dovresti avere nuovamente il completo"_
& " controllo del Mouse!"
end sub
Function Clessid_lock_Start_A() '
on error goto cleanExit
oDoc = ThisComponent
oDocView = ThisComponent.getCurrentController()
RegisterMouseClickHandler_A
exit function
cleanExit:
Clessid_lock_End_A
END FUNCTION
Sub Clessid_lock_End_A
on error resume next
'print "errore"
UnregisterMouseClickHandler_A
END SUB
'++++++++++++++++++++++++++++++++++++++++++++
Sub RegisterMouseClickHandler_A
If Not IsNull(oMouseClickHandler) Then
oDocView.removeMouseClickHandler(oMouseClickHandler)
End If
oMouseClickHandler = createUnoListener(_
"MyApp_", "com.sun.star.awt.XMouseClickHandler")
oDocView.addMouseClickHandler(oMouseClickHandler)
END SUB
Sub UnregisterMouseClickHandler_A
'''on error resume next
oDocView.removeMouseClickHandler(oMouseClickHandler)
END SUB
Function MyApp_disposing(oEvt)
'Function MyApp_disposing(oMouseClickHandler)
End Function
Function MyApp_mousePressed(oEvt) As Boolean
'Function MyApp_mousePressed(oMouseClickHandler) As Boolean
MyApp_mousePressed = True
End Function
Function MyApp_mouseReleased(oEvt) As Boolean
'Function MyApp_mouseReleased(oMouseClickHandler) As Boolean
MyApp_mouseReleased = False
End Function
