Ciao a tutti

Volevo bloccare l' uso del mouse durante l' esecuzione di una macro
ho scritto il codice che riporto sotto
Ho notato, però, che durante l' esecuzione viene bloccato solo il tasto 
sinistro, mentre il destro è ancora attivo
Sbaglio qualcosa?
Oppure XMouseClickHandler intercetta solo il tasto sinistro
Da quel che credo di capire dalle Api dovrebbe intercettare qualsiasi tasto
che viene premuto

Codice

REM  *****  BASIC  *****

Sub Main
        oDocView = ThisComponent.getCurrentController() 
        RegisterMouseClickHandler
        on error goto cleanExit
        
        Wait 5000
        
        cleanExit:
        UnregisterMouseClickHandler
End Sub

Sub RegisterMouseClickHandler
        oMouseClickHandler = createUnoListener("MyApp_",_ 
"com.sun.star.awt.XMouseClickHandler") 
        oDocView.addMouseClickHandler(oMouseClickHandler)
End Sub

Sub UnregisterMouseClickHandler
  on error resume next
  oDocView.removeMouseClickHandler(oMouseClickHandler)
End Sub

Function MyApp_disposing(oEvt)
End Function

Function MyApp_mousePressed() As Boolean
  MyApp_mousePressed = True
End Function

Function MyApp_mouseReleased() As Boolean 
  MyApp_mouseReleased = False
End Function

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Rispondere a