OpenOffice.info

Code: Alles auswählen

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

Option Explicit

Global oDocView As Object
Global oMouseClickHandler As Object

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

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

Sub MyApp_disposing(oEvt)
End Sub

Function MyApp_mousePressed(oEvt) As Boolean
  MyApp_mousePressed = False
End Function

Function MyApp_mouseReleased(oEvt) As Boolean
Dim sMsg As String
  With oEvt
    sMsg = sMsg & "Modifiers = " & .Modifiers & Chr(10)
    sMsg = sMsg & "Buttons = " & .Buttons & Chr(10)
    sMsg = sMsg & "X = " & .X & Chr(10)
    sMsg = sMsg & "Y = " & .Y & Chr(10)
    sMsg = sMsg & "ClickCount = " &  .ClickCount & Chr(10)
    sMsg = sMsg & "PopupTrigger = " & .PopupTrigger '& Chr(10)
    'sMsg = sMsg & .Source.dbg_Methods  
  End With
  
  ThisComponent.text.string = sMsg
  
  MyApp_mouseReleased = False
End Function

Code: Alles auswählen

Global vSelChangeListener   'Muss global sein
Global vSelChangeBroadCast

'Zum Start der Überwachung führen Sie dieses Makro aus.

Sub StartListeningToSelChangeEvents
  Dim sPrefix$
  Dim sService$
  sPrefix = "sel_change_"
  sService = "com.sun.star.view.XSelectionChangeListener"
  
  REM Das Anmeldungsobjekt zur Beobachtung der Auswahländerungen
  REM ist der CurrentController
  vSelChangeBroadCast = ThisComponent.getCurrentController
    
  'Erzeugt einen Listener zum Abfangen der Auswahländerungs-Ereignisse
  vSelChangeListener = CreateUnoListener(sPrefix, sService)
    
  'Registriert den Listener beim Dokument-Controller
  vSelChangeBroadCast.addSelectionChangeListener(vSelChangeListener)
End Sub

Sub StopListeningToSelChangeEvents
  ' Entfernt den Listener
  vSelChangeBroadCast.removeSelectionChangeListener(vSelChangeListener)
End Sub

Sub sel_change_selectionChanged(vEvent)
  Dim vCurrentSelection As Object
   vCurrentSelection =  vEvent.source
   Print "Anzahl der selektierten Bereiche  = " &_
          vCurrentSelection.getSelection().getCount()
End Sub