Listener wieder entfernen
Verfasst: Di 23. Jul 2024, 13:03
Liebe Leute,
habe einen Listener erzeugt, den ich zu gegebenener Zeit auch wieder entfernen möchte möchte. Dazu die Sub "StopEventListener", bekomme aber immer die Fehlermeldung "Objektvariable nicht belegt.". Kann mir jemand sagen, wie ich des richtig mache? Vielen Dank für Eure Hilfe.
VG S.
habe einen Listener erzeugt, den ich zu gegebenener Zeit auch wieder entfernen möchte möchte. Dazu die Sub "StopEventListener", bekomme aber immer die Fehlermeldung "Objektvariable nicht belegt.". Kann mir jemand sagen, wie ich des richtig mache? Vielen Dank für Eure Hilfe.
VG S.
Code: Alles auswählen
Private oListener
Private cellRange as Object
Global AllServices
Type allServicesStruct
svc As String
End Type
'---------------------------------------------------------------------------
Sub AddListener
Dim sheet
Dim cell as Object
sheet = ThisComponent.Sheets.getByIndex(0) 'get first sheet
cellRange = sheet.getCellrangeByName("E4:J5")
oListener = createUnoListener("Modify_","com.sun.star.util.XModifyListener")
cellRange.addModifyListener(oListener)
End Sub
'---------------------------------------------------------------------------
Sub Modify_modified(oEv)
MsgBox AllServices.svc
End Sub
'---------------------------------------------------------------------------
Sub StartDocEventListener
'Listener registrieren
Dim allServicesLocal As allServicesStruct
allServicesLocal.svc = "example"
AllServices = allServicesLocal
AddListener
End Sub
'---------------------------------------------------------------------------
Sub StopEventListener
cellRange.RemoveModifyListener(oListener)
End Sub
'---------------------------------------------------------------------------
Sub Modify_disposing
End Sub