Opening a Dialog With Basic

ダイアログを作成した LibreOffice BASIC ウィンドウで、ダイアログを割り当てるモジュール名のタブをクリックして、エディター画面を切り換えます。モジュール名のタブは、画面の下側に表示されています。

下記の Dialog1Show サブルーチンのコードを入力します。なおこの例では、ユーザー定義したダイアログ名を「Dialog1」としています。


Sub Dialog1Show
    With GlobalScope.BasicLibraries
       If Not .IsLibraryLoaded("Tools") Then .LoadLibrary("Tools")
    End With
    oDialog1 = Tools.ModuleControls.LoadDialog("Standard", "Dialog1")
    oDialog1.Execute()
End Sub

「LoadDialog」を使用しなくても、下記のコードのようにしてダイアログを呼び出すことができます。


Sub Dialog1Show
    DialogLibraries.LoadLibrary("Standard")
    oDialog1 = CreateUnoDialog( DialogLibraries.Standard.Dialog1 )
    oDialog1.Execute()
End Sub

このコードを実行すると「Dialog1」が開きます。ダイアログを閉じるには、タイトルバーにある閉じるボタン (×) をクリックします。

ご支援をお願いします!