Opening a Dialog With Basic

在创建的对话框所在的 Collabora Office 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。

请支持我们!