OpenOffice.info

Code: Alles auswählen

' ========================================================================================================
 REM   Global Variables:
 
    Global oListener    As Object
    Global oDocView    As Object
 ' ========================================================================================================
 REM   Run this macro to start event intercepting:
 Sub Example_SelectionChangeListener
 
    oDocView = ThisComponent.getCurrentController
     
    'create a listener to intercept the selection change event
    oListener = CreateUnoListener( "MyApp_", "com.sun.star.view.XSelectionChangeListener" )
     
    ' register the listener to the document controller
    oDocView.addSelectionChangeListener(oListener)
     
 End Sub
 
 ' ========================================================================================================
 REM   Run this macro to stop event intercepting:
 Sub Remove_Listener
 
   ' removes the listener
   oDocView.removeSelectionChangeListener(oListener)
 
 End Sub
 
 ' ========================================================================================================
 REM   All listeners must support this event:
 Sub MyApp_disposing(oEvent)
 
   msgbox "disposing of the listener"
 
 End Sub
 
 ' ========================================================================================================
 REM   What to do when we get an event:
 Sub MyApp_selectionChanged(oEvent)
 
   Dim oCurrentSelection As Object
   ' the source property of the event struct
   ' gets a reference to the event source,
   ' in this case, NOT the onscreen selection,
   ' but rather the currentController:
 
    oCurrentSelection =  oEvent.source
    MsgBox "Fired:" & chr(10) & chr(10) & oCurrentSelection.dbg_properties
    
  '  if oCurrentSelection.showGrid() = TRUE  then
  '  	msgbox "scheinen"
  '  end if
 
'  	msgbox oCurrentSelection.ActiveSheet.Name
   ' This will give us info about the onscreen selection:
    dim oCurr as object
          oCurr = thiscomponent.getcurrentselection
    msgbox "Selection: " & oCurr.getimplementationname
 
 End Sub