Calcでボタンで引数を渡したい

edit

なるほど、こうするとボタンの名前が渡るわけですね。ということは逆に言うと、渡したい引数を名前に仕込んででおけば、何でもできますね。この発想は、全くなかったです。目からうろこがフィーバー状態です。本当にありがとうございます。

関数名は本当にやろうとしていたことの名残。 なお、この手順の場合、コントロールのプロパティのイベントタブには多分登場しない。 厳密には結構面倒くさい仕組みなんだよね、あれ

Option Explicit
Public Sub Main()
    Dim formModel As Object
    Dim buttonModel As Object
    Dim buttoncontrol As Object
    formModel = ThisComponent.DrawPage.Forms.getByIndex(0)
    REM 名前は変更しています。
    buttonModel = formModel.getByName("PushButton1")
    buttoncontrol = ThisComponent.getCurrentController().getControl(buttonModel)
    buttoncontrol.addActionListener(CreateUnoListener("Buttons_","com.sun.star.awt.XActionListener"))
    REM 名前は変更しています。
    REM 変数は使いまわしました。
    buttonModel = formModel.getByName("PushButton2")
    buttoncontrol = ThisComponent.getCurrentController().getControl(y)
    buttoncontrol.addActionListener(CreateUnoListener("Buttons_","com.sun.star.awt.XActionListener"))
End Sub
Private Sub Buttons_actionPerformed(rEvent As com.sun.star.awt.ActionEvent)
    Msgbox(rEvent.Source.Model.Name)
End Sub

formModel等の型名を調べるのが面倒だったので断念。(っていうかこれWriterでしか動作してなかった。これからCalcについて調べます。

→調べました。

ThisComponent.DrawPage => ThisComponent.getSheets().getByIndex(0).DrawPageで行けそうです。

また、getControl(y)はgetControl(buttonModel)の間違いです。実験時に使っていた変数が残ってました。

それから、このコードでリスナを追加した場合、削除しないとファイルを閉じる時にエラーが出るようなのでremoveActionListenerするため、Global変数に保存しておくほうがいいようです。createUnoListenerをニ回も実行する必要はありませんでしたね。

REM  *****  BASIC  *****
Option Explicit

Global actionListener As Object

Public Sub Main()
    REM (略)
    actionListener = CreateUnoListener("Buttons_","com.sun.star.awt.XActionListener")
    buttoncontrol.addActionListener(actionListener)
    REM (略)
End Sub

Public Sub EndExperiment()
    REM (略)
    buttoncontrol.removeActionListener(actionListener)
    REM (略)
End Sub

GlobalとPublicの違いについては再度勉強してきます。

https://opengrok.libreoffice.org/xref...

https://opengrok.libreoffice.org/xref...

なるほど。>GlobalとPublicの違い