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」對話方塊將會開啟。若要關閉該對話方塊,請按一下標題列上的關閉按鈕 (x)。

Please support us!