OpenOffice.info

Code: Alles auswählen

Global oListener As Variant
Global oView As Variant
global oListener

Sub add_Listener
	Dim oDoc
	Dim oVIEW
   ' get the model
   oDoc = thisComponent
   ' get the controller
   oView = oDoc.getCurrentController()
   ' create the listener
   oListener = CreateUnoListener  ("XList_", "com.sun.star.sheet.XActivationEventListener")
   ' add the listener to controller
   oView.addActivationEventListener (oListener)
 '  msgBox "XActivationEventListener added"
End Sub

Sub remove_Listener
   ' remove the listener from controller
   oView.removeActivationEventListener (oListener)
   msgBox "XActivationEventListener removed"
End Sub



'______________________________________________________
' Interface com.sun.star.sheet.XActivationEventListener
'______________________________________________________
' method activeSpreadsheetChanged()
Sub XList_activeSpreadsheetChanged ( oEvento )
dim oSheet
dim sSheetName

   ' get the event object
   oSheet = oEvento.ActiveSheet
   sSheetName = oSheet.getName()
   if sSheetName = NameWirtschaftsblatt then
	   msgBox (sSheetName, 176, "Active Sheet")
   end if
End Sub

'_________________________________________________________________
' method disposing() of interface com.sun.star.lang.XEventListener
' !! It isn't necessary !!
Sub XList_disposing ( oEvt )
   ' nothing to do
End Sub