Re: [de-users] Listener im Dialog benutzen

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
>
>
> --
> Diese E-Mail wurde von Avast-Antivirussoftware auf Viren geprüft.
> www.avast.com

--
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