Date: prev next · Thread: first prev next last
2022 Archives by date, by thread · List index


Hey Stefan,

jo, sieht gut aus.

Das mit dem Print nach dem Execute() Befehlt ist normal. Das Makro bleibt bei execute() stehen und läuft erst weiter, wenn der Dialog wieder geschlossen wird. Das ist also alles korrekt.

Wenn es keine anderen Fehler gibt oder ich die nicht sehe, versuche mal folgendes: Benenne den Listener anders, also, gib ihm eine andere Prefix - so etwas wie "Test123_". Vielleicht wird der Name "sel_change" bereits intern irgendwie genutzt - das könnte dann zu Konflikten führen.

Einen Versuch wäre es wert....

Viele Grüße

Thomas


Am 08.09.2022 um 20:50 schrieb Stefan Deutsch:
Hi Thomas,

Hier mal die letzten Zeilen des Makros, in dem das GridControl mit
Inhalt gefüllt wird. Soweit ich das sehe, hab ich das vom Ablauf gemacht
wie du in deinem Beispiel.

    oGridControl = createUnoService("com.sun.star.awt.grid.UnoControlGrid")
    oGridControl.setModel(oGridModel)
    oKommDia.addControl("GridAnzeigeKommission", oGridControl)
    oGridDataModel =
oKommDia.Model.getByName("GridAnzeigeKommission").GridDataModel

'Run this macro to start event intercepting
      sPrefix = "sel_change_"
      sService = "com.sun.star.awt.grid.XGridSelectionListener"

  'Create a listener to intercept the selection change events
      vSelChangeListener = CreateUnoListener(sPrefix, sService)

  'Register the listener to the document controller
      oGridControl.addSelectionListener(vSelChangeListener)

    iData = oGridDataModel.getCellData(3, iRowAktuell)
    oKommDia.getControl("nf_ausgefasst").Value = iData
    oKommDia.Controls(7).deselectAllRows
    oKommDia.Controls(7).selectRow(iRowAktuell)
    oKommDia.execute()
End Sub

Und hier die beiden Subs. disposing wird auch ausgeführt, wenn ich den
Dialog über das X beende.

Sub sel_change_disposing(vEvent)
print 21
End Sub

Sub sel_change_selectionChanged(vEvent)
    Dim vCurrentSelection As Object
       vCurrentSelection =  vEvent.source.CurrentRow
       MsgBox "Selected Row = " & vEvent.source.CurrentRow
print 27
End Sub

Allerdings ist mir auch aufgefallen, dass ein Print, dass ich hinter die
Zeile oKommDia.execute() setze, erst ausgeführt wird, wenn ich den
Dialog beende. Könnte es damit zusammenhängen, dass der Dialog die
anderen im aufrufenden Formular blockiert?

Schönen Abend noch!

Stefan

Am 08.09.2022 um 20:07 schrieb Thomas Krumbein:
Hey Stefan,

tia, wie meldest Du den Listner denn an? Codeschnipsel?

Er muss am Gridelement angemeldet werden, nachdem das Model zugewiesen
wurde:

 oGridControl = createUnoService("com.sun.star.awt.grid.UnoControlGrid")
  oGridControl.setModel(oGridModel)

  oRaDlg.addControl("tab_g1", oGridControl)

  REM Selection Listener erzeugen
  oReAbgLis = CreateUnoListener("ReAblSelection_",
"com.sun.star.awt.grid.XGridSelectionListener")

  oGridControl.addSelectionListener(oReAbgLis)

Dies als Beispiel. Du brauchst dann mindestens noch die zwei Funktionen

'********************
' REM Listener Funktionen
Sub ReAblSelection_selectionChanged(oEvt)
    dim aDSatz()

    If bAblFlag Then
      bAblFlag = false
      Exit sub
    End if
    'MsgBox "Markierte Zeile: " & oEvt.source.CurrentRow
    aDSatz =
oRaDlg.getControl("tab_g1").model.GridDataModel.getRowData(oRaDlg.getControl("tab_g1").getCurrentRow)
    REM Rechnungsdatendetails lesen und Eintragen
    AbgleichEinzelRechnung(aDSatz())

End Sub

Sub ReAblSelection_disposing(oEvt)
End Sub

Es wird immer die komplette Zeile zurückgeliefert - die weitere
Auswahl liegt dann an Dir bzw. dem Code

Vielleicht hilft es :)

Viele Grüße

Thomas



Am 08.09.2022 um 19:49 schrieb Stefan Deutsch:
Guten Abend,

Ich verwende gerade das erste Mal einen Listener in einem Makro. Und
zwar hab ich einen Dialog, das ein GridControl enthält. Dies kann man
zwar einzeichnen, aber muss es ja im Makro zum Leben erwecken. Das
klappt auch soweit. Jetzt wollte ich einen Listener hinzufügen, der auf
SelectionChange anschlägt. Diesen hab ich in dem Objekt angemeldet, das
das UnoControlGrid enthält. Das hat auch geklappt (bzw. es kommt keine
Fehlermeldung). Allerdings wird mein Sub
sel_change_selectionChanged(vEvent) nie ausgelöst, egal, wie viel ich in
der Tabelle rumklicke.

Hat jemand einen HInweis für mich?

Viele Grüße

Stefan




--
Liste abmelden mit E-Mail an: users+unsubscribe@de.libreoffice.org
Probleme? https://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: https://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: https://listarchives.libreoffice.org/de/users/
Datenschutzerklärung: https://www.documentfoundation.org/privacy

Context


Privacy Policy | Impressum (Legal Info) | Copyright information: Unless otherwise specified, all text and images on this website are licensed under the Creative Commons Attribution-Share Alike 3.0 License. This does not include the source code of LibreOffice, which is licensed under the Mozilla Public License (MPLv2). "LibreOffice" and "The Document Foundation" are registered trademarks of their corresponding registered owners or are in actual use as trademarks in one or more countries. Their respective logos and icons are also subject to international copyright laws. Use thereof is explained in our trademark policy.